При проведении вычислений или другой обработки данных в программе необходимо вывести результаты из памяти компьютера, для того, чтобы пользователь мог их увидеть. Самой простой формой вывода является вывод данных на экран компьютера.
Простейшая форма записи операторов вывода на экран имеет вид:
Write(выражение1, выражение2, …);
Writeln(выражение1, выражение2, …);
В скобках оператора writeln (или write) указывается так называемый список вывода, то есть имена переменных, выражения, значения которых необходимо вывести на экран. Имена перечисляется через запятую. Пробелы, кроме входящих в строковые константы, игнорируются.
Var a:array [1..7] of real; i:integer; begin write ('Массив: '); for i:=1 to 7 do begin a[i]:=random(201)-100; write (a[i],' '); end; writeln; write ('Массив * 2: '); for i:=1 to 7 do begin a[i]:=a[i]*2; write (a[i],' '); end; end.
это возможно что выше а ниже значение 50 на 1 измени и все uses crt;var mas:array[1..20] of integer;i,b:integer;beginclrscr;randomize;for i:=1 to 20 do beginmas[i]:=random(51)+50;write(mas[i]:4);end;write('B=');readln(b);for i:=1 to 20 do beginmas[i]:=mas[i]+b;write(mas[i]:4);end;readkey;end.
При проведении вычислений или другой обработки данных в программе необходимо вывести результаты из памяти компьютера, для того, чтобы пользователь мог их увидеть. Самой простой формой вывода является вывод данных на экран компьютера.
Простейшая форма записи операторов вывода на экран имеет вид:
Write(выражение1, выражение2, …);
Writeln(выражение1, выражение2, …);
В скобках оператора writeln (или write) указывается так называемый список вывода, то есть имена переменных, выражения, значения которых необходимо вывести на экран. Имена перечисляется через запятую. Пробелы, кроме входящих в строковые константы, игнорируются.
i:integer;
begin
write ('Массив: ');
for i:=1 to 7 do
begin
a[i]:=random(201)-100;
write (a[i],' ');
end;
writeln;
write ('Массив * 2: ');
for i:=1 to 7 do
begin
a[i]:=a[i]*2;
write (a[i],' ');
end;
end.
это возможно что выше
а ниже значение 50 на 1 измени и все uses crt;var mas:array[1..20] of integer;i,b:integer;beginclrscr;randomize;for i:=1 to 20 do beginmas[i]:=random(51)+50;write(mas[i]:4);end;write('B=');readln(b);for i:=1 to 20 do beginmas[i]:=mas[i]+b;write(mas[i]:4);end;readkey;end.