Поделитесь своими знаниями, ответьте на вопрос:
Вычислить сумму периметров прямоугольников. Длина первого a=2 м, ширина b=1м, а ширина каждой другого увеличивается на 1 до тех пор, пока периметр прямоугольника не превысит 30. Математический аппарат а, b- стороны прямоугольника p – периметр р=2(a+b) s – сумма периметров S=S+p b=b+1 увеличение длины Решить задачу двумя используя цикл с последующей и предыдущей проверкой условия Вычислить сумму периметров прямоугольников. Длина первого a=2 м, ширина b=1м, а ширина каждой другого увеличивается на 1 до тех пор, пока периметр прямоугольника не превысит 30. Математический аппарат а, b- стороны прямоугольника p – периметр р=2(a+b) s – сумма периметров S=S+p b=b+1 увеличение длины Порядок математических действий для цикла с пред. условием 1. Задать начальные значения a, b и начальное значение суммы 2. Найти периметр первого прямоугольника. 3. Вход в цикл с проверкой р<30 4. Тело цикла: найти сумму увеличить ширину найти периметр 5. Вывести сумму на экран Порядок математических действий для цикла с пред. условием 1. Задать начальные значения a, b и начальное значение суммы 2. Вход в цикл 3. Тело цикла: Найти периметр первого прямоугольника. найти сумму увеличить ширину 4. Выход из цикла с проверкой р>30 5. Вывести сумму на экран 5пункт не обязательно, нужна сама программа...
var a:array [1..n,1..m] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:6);
end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.
Пример:
Исходный массив:
5 8 2 -5 -4
1 -10 9 1 -4
8 2 -6 -4 -4
8 7 3 2 2
min=a[2,2]=-10