Нужна помощь в добавлении примечаний к 2 маленьким кодам.
Есть два правильных кода. К основному телу программы мне нужно сделать примечания, что это за строчка, что в ней происходит. Потому что не совсем понимаю в программировании и стараюсь понять "на пальцах", что происходит и как.
Для примера в первом коде добавила банальные примечания, просто для примера и чтобы объяснить, что мне нужно.
var
a, i, b: integer; // описываем переменные
begin // начало программы
read(a); // считываем число
b := 0;
for i := 1 to a do
if a mod i = 0 then
b := b + 1;
writeln(b);
end. // конец программы
var
A: array[1..15, 1..15] of integer;
i, j, m, n, max: integer;
begin
writeln('Вводим двумерный массив:');
writeln;
randomize;
n := 1 + random(15);
m := 1 + random(15);
for i := 1 to n do
begin
max := 0;
for j := 1 to m do
begin
a[i, j] := random(200);
write(a[i, j]:4);
if max < a[i, j] then max := a[i, j]
end;
writeln('max = ':10, max)
end
end.
Нужна помощь в добавлении примечаний к 2 маленьким кодам.
Есть два правильных кода. К основному телу программы мне нужно сделать примечания, что это за строчка, что в ней происходит. Потому что не совсем понимаю в программировании и стараюсь понять "на пальцах", что происходит и как.
Для примера в первом коде добавила банальные примечания, просто для примера и чтобы объяснить, что мне нужно.
var
a, i, b: integer; // описываем переменные
begin // начало программы
read(a); // считываем число
b := 0;
for i := 1 to a do
if a mod i = 0 then
b := b + 1;
writeln(b);
end. // конец программы
var
A: array[1..15, 1..15] of integer;
i, j, m, n, max: integer;
begin
writeln('Вводим двумерный массив:');
writeln;
randomize;
n := 1 + random(15);
m := 1 + random(15);
for i := 1 to n do
begin
max := 0;
for j := 1 to m do
begin
a[i, j] := random(200);
write(a[i, j]:4);
if max < a[i, j] then max := a[i, j]
end;
writeln('max = ':10, max)
end
end.
Есть два правильных кода. К основному телу программы мне нужно сделать примечания, что это за строчка, что в ней происходит. Потому что не совсем понимаю в программировании и стараюсь понять "на пальцах", что происходит и как.
Для примера в первом коде добавила банальные примечания, просто для примера и чтобы объяснить, что мне нужно.
var
a, i, b: integer; // описываем переменные
begin // начало программы
read(a); // считываем число
b := 0;
for i := 1 to a do
if a mod i = 0 then
b := b + 1;
writeln(b);
end. // конец программы
var
A: array[1..15, 1..15] of integer;
i, j, m, n, max: integer;
begin
writeln('Вводим двумерный массив:');
writeln;
randomize;
n := 1 + random(15);
m := 1 + random(15);
for i := 1 to n do
begin
max := 0;
for j := 1 to m do
begin
a[i, j] := random(200);
write(a[i, j]:4);
if max < a[i, j] then max := a[i, j]
end;
writeln('max = ':10, max)
end
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
A: array1..15,1..151..15, 1..151..15,1..15 of integer; // объявление двумерного массива 15x15
i, j, m, n, max: integer; // объявление переменных
begin // начало программы
writeln′Вводимдвумерныймассив:′'Вводим двумерный массив:'′Вводимдвумерныймассив:′; // выводим сообщение о начале ввода
writeln; // пустая строка
randomize; // инициализация генератора случайных чисел
n := 1 + random151515; // случайное число для количества строк
m := 1 + random151515; // случайное число для количества столбцов
for i := 1 to n do // начало цикла по строкам
begin
max := 0; // инициализация переменной максимального значения в строке
for j := 1 to m do // начало цикла по столбцам
begin
ai,ji, ji,j := random200200200; // заполнение ячейки массива случайным числом до 200
writea[i,j]:4a[i, j]:4a[i,j]:4; // вывод значения ячейки с выравниванием по 4 символа
if max < ai,ji, ji,j then max := ai,ji, ji,j // проверка и обновление максимального значения в строке
end;
writeln′max=′:10,max'max = ':10, max′max=′:10,max // вывод максимального значения в строке
end
end. // конец программы