№1 Туристы три часа спускались с вершины горы. За первый час туристы x км, а за каждый следующий час - id1842520520220608 от Chokoladik 08.06.2022 00:30

Question

Информатика: №1 Туристы три часа спускались с вершины горы. За первый час туристы x км, а за каждый следующий час - на y км больше, чем за час. Постройте математическую модель и сделайте блок-схему для вычисления пути, какого туристы. Входные данные: Конечные результаты: Формулы: Блок-схема алгоритма Выполните составной алгоритм для двух наборов значений входных данных. №2 Вкладчик положил x грн на депозитный счёт в банк на p лет под y % годовых. Постройте математическую модель и сделайте блок-схему алгоритма

Chokoladik · Accepted Answer

Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.

MOGZ ответил