Нужна программа на турбо два одномерных массива а, в длиной n, где n- нечетное число. поменять в каждом из массивов элементы местами – первый с последним, второй с предпоследним и т.д. длину массивов запросить у пользователя. элементы массивов а и в сформировать с функции random (10) в одном цикле. в программе оформить две процедуры: для перестановки элементов массива и для вывода массива на экран. вывести на чистый экран исходные и полученные массивы.
Ответы
Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;
Відповідь:
Дивись фото
Пояснення:
<!DOCTYPE html>
<html>
<head>
<title>Price</title>
<meta charset="utf-8">
</head>
<body>
<p>стоимости переговоров</p>
</body>
<script>
{/*Написать логическое выражение для определения стоимости переговоров, если стоимость переговоров с 22 часов до 8 часов на 20% ниже, а в субботу и в воскресенье дополнительно предоставляется скидка 10%. */}
t = +prompt('время разговоров от 0 до 24 часов')
dt = +prompt('продолжительность разговора в минутах')
s = +prompt('стоимость минуты разговора')
d = +prompt('день недели от 1 до 7')
console.log('t=',t,'dt=', dt, 's=', s, 'd=', d)
function Price (t, dt, d, s) {
let startTalk = t*60
let price = 0
console.log('day = ', d)
for (let i =1; i<=dt; i++){
let night = false
let holiday = false
let p = s
if( (startTalk+i)%1440 === 0 ){
if (d<7){
d=d+1
console.log('day = ', d)
} else {
d=1
console.log('day = ', d)
}
}
if ( (startTalk+i)%1440>=1320 || (startTalk+i)%1440<480){
night = true
}
if ( d === 6 || d===7){
holiday = true
}
if (night){
p = p - s*0.2
}
if (holiday){
p = p-s*0.1
}
price = price+p
console.log('стоимости '+ i+'мин. = '+ p.toFixed(2)+'$')
}
console.log('fin.price', price.toFixed(2), '$')
return price.toFixed(2)
}
{/*Price(t, dt, d, s)*/}
alert('стоимости переговоров ' + '$' + Price(t, dt, d, s))
</script>
</html>
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Переставь буквы в правильном порядке . пчдэта. . заранее .
Много ! решить алгоритмическом языке уравнение: t= +
Акпарат арнасын канша топка болинеди.
1. вывести на экран все целые числа от 100 до 200, кратные трем.
разобраться для алгоритмического языка и С++. Является ли это задание корректным?
Написать какие были раньше виндусы 1 , 2 , 3 , 4 , 5 , 6, 7, 8, 9, рассказать оних и их
const
nn=100;
type
mas=array[1..nn] of integer;
procedure MySwap(var a:mas; n:integer);
var
i,t:integer;
begin
for i:=1 to n div 2 do begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t
end
end;
procedure MyPrint(txt:string; a:mas; n:integer);
var
i:integer;
begin
Write(txt);
for i:=1 to n do Write(a[i],' ');
Writeln
end;
var
i,n:integer;
a,b:mas;
begin
ClrScr;
Write('n='); Readln(n);
ClrScr;
Randomize;
for i:=1 to n do begin
a[i]:=Random(10);
b[i]:=Random(10)
end;
MyPrint('Исходный А : ',a,n);
MySwap(a,n);
MyPrint('Результат А: ',a,n);
MyPrint('Исходный B : ',b,n);
MySwap(b,n);
MyPrint('Результат B: ',b,n);
ReadKey
end.