Uses CRT; Const nmax=40; mmax=40; var a,b:array[1..nmax,1..mmax] of integer; i,j,n,m:integer; begin ClrScr; repeat write('N:='); Readln(n); until n in [1..nmax]; repeat write('M:='); Readln(m); until m in [1..mmax]; writeln('Исходный массив: '); randomize; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10)-3; write(a[i,j]:5); b[i,j]:=a[i,j]*a[i,j]*a[i,j]; end; writeln; end; writeln('Результирующий массив: '); for i:=1 to n do begin for j:=1 to m do begin write(b[i,j]:5); end; writeln; end; readkey end.
Алгоритм выполнения домашнего задания. Начало Взять дневник. Посмотреть домашние задания. Распланировать последовательность выполнения заданий. Распределить время выполнения. Открыть нужные учебники и тетради. Начать выполнять домашнее задание. После их выполнения сложить учебники и тетради в портфель. Конец. Алгоритм рецепта приготовления пирога. Начало. Налить 250 мл кефира в стакан. Взять 2 яйца. Взять 1 стакан муки. Взять 1 луковицу. Взять 1 картофелину. Взять 1 банку консервированной горбуши. Взять 1/2 ложки гашенной соды. Смешать в тарелке яйца, кефир, муку, соду. Замешать тесто. Нарезать картофель мелкой соломкой. Половину полученного теста вылить в форму для запекания. Выложить на него картофель. Обжарить лук до прозрачности. Разминаем горбушу. Кладем ее вместе с луком к картофелю. Заливаем полученное второй половиной теста. Разогреваем духовку до 180 градусов. Выпекаем 40 минут. Зубочисткой проверяем готовность пирога. Конец. Алгоритм мытья посуды. Начало. Берем губку. Наносим на нее моющее средство. Грязную посуду складываем в раковину. Протираем губкой посуду. Включаем воду. Смываем ею моющее средство с посуды. Складываем чистую посуду в шкаф. Конец. Алгоритм путешествия Колобка в известной сказке. Начало. Уйти от бабушки с дедушкой. Встретить зайца. Уйти от него. Встретить волка. Уйти от него. Встретить медведя. Уйти от него. Встретить лису. Поверить лисе. Оказаться съеденным. Конец.
CRT;
Const
nmax=40;
mmax=40;
var a,b:array[1..nmax,1..mmax] of integer;
i,j,n,m:integer;
begin
ClrScr;
repeat
write('N:=');
Readln(n);
until n in [1..nmax];
repeat
write('M:=');
Readln(m);
until m in [1..mmax];
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(10)-3;
write(a[i,j]:5);
b[i,j]:=a[i,j]*a[i,j]*a[i,j];
end;
writeln;
end;
writeln('Результирующий массив: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(b[i,j]:5);
end;
writeln;
end;
readkey
end.
Начало
Взять дневник.
Посмотреть домашние задания.
Распланировать последовательность выполнения заданий.
Распределить время выполнения.
Открыть нужные учебники и тетради.
Начать выполнять домашнее задание.
После их выполнения сложить учебники и тетради в портфель.
Конец.
Алгоритм рецепта приготовления пирога.
Начало.
Налить 250 мл кефира в стакан.
Взять 2 яйца.
Взять 1 стакан муки.
Взять 1 луковицу.
Взять 1 картофелину.
Взять 1 банку консервированной горбуши.
Взять 1/2 ложки гашенной соды.
Смешать в тарелке яйца, кефир, муку, соду.
Замешать тесто.
Нарезать картофель мелкой соломкой.
Половину полученного теста вылить в форму для запекания.
Выложить на него картофель.
Обжарить лук до прозрачности.
Разминаем горбушу.
Кладем ее вместе с луком к картофелю.
Заливаем полученное второй половиной теста.
Разогреваем духовку до 180 градусов.
Выпекаем 40 минут.
Зубочисткой проверяем готовность пирога.
Конец.
Алгоритм мытья посуды.
Начало.
Берем губку.
Наносим на нее моющее средство.
Грязную посуду складываем в раковину.
Протираем губкой посуду.
Включаем воду.
Смываем ею моющее средство с посуды.
Складываем чистую посуду в шкаф.
Конец.
Алгоритм путешествия Колобка в известной сказке.
Начало.
Уйти от бабушки с дедушкой.
Встретить зайца.
Уйти от него.
Встретить волка.
Уйти от него.
Встретить медведя.
Уйти от него.
Встретить лису.
Поверить лисе.
Оказаться съеденным.
Конец.