Предмет: Информатика,
автор: dian4ik12
№1 составить программу формирования и вывода на экран в строку с тремя знаками после запятой массива, заданного 8-ю вещественными числами из отрезка [-20;20)
№2 составить программу формирования и вывода на кран в обратном порядке массива,заданного 13 цельными числами из отрезка [5,18]
№3 составить программу формирования и вывода на экран в столбец массива, зданного 7 цельными числами из отрезка [104,128]
Ответы
Автор ответа:
0
1. Program enot;
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
end.
2. Program fg;
Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
end.
3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
end.
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
end.
2. Program fg;
Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
end.
3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
end.
Автор ответа:
0
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
end.
вот эту часть не понимаю
writeln(a[i]:8:3);
end;
end.
вот эту часть не понимаю
Автор ответа:
0
что именно не понятно? команда рандом?
Автор ответа:
0
ну, постараюсь разложить все по полочкам.
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
надеюсь понятно для чего мы вводим это в цикл. сразу берется I =1, и в ячейку a[1] кладем число, которое рандомно выбирается из 25 чисел, начиная с 104.
потом выводим это число с помощью команды writeln.
потом снова возвращаемся к for, и терь прога берет I под значением 2, и т.д. до 7.
Что не понятно? :)
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
надеюсь понятно для чего мы вводим это в цикл. сразу берется I =1, и в ячейку a[1] кладем число, которое рандомно выбирается из 25 чисел, начиная с 104.
потом выводим это число с помощью команды writeln.
потом снова возвращаемся к for, и терь прога берет I под значением 2, и т.д. до 7.
Что не понятно? :)
Похожие вопросы
Предмет: Английский язык,
автор: talgatbekgulsezim
Предмет: География,
автор: dimalipov310783
Предмет: Английский язык,
автор: army851
Предмет: Математика,
автор: angelina2007
Предмет: Математика,
автор: Аллочка35