Регистрация
Zasxca
28.02.2022 14:29
Информатика
Есть ответ 👍

Вычислить сумму периметров прямоугольников. Длина первого 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пункт не обязательно, нужна сама программа...

241
490
Посмотреть ответы 1

Ответы на вопрос:

puzhalina77Frik
puzhalina77Frik
4,5(37 оценок)

Возможный вариант решения:

function main(): integer;

begin

 var c: cardinal:= ReadInteger('Введите сторону c:');

 var n: cardinal:= ReadInteger('Введите сторону n:');

 'Площадь прямоугольника: '.Concat((c*n).ToString).Println();

 main:= -1;

end;

begin main(); end.

Допустим и следующий код:

var  c,n: integer;

begin

    writeln('Введи стороны прямоугольника c и n');

    readln (c,n);  

    writeln('s=',c*n);

    readln;

end.

Популярно: Информатика