Привет!Очень срочно!!!Написать программу и блок -схему для вычисления площади кольца, используя подпрограмму нахождения площади круга: S=pi *R^2
Ответы
Ответ дал:
0
procedure MinMax(var min, max: real);
var
a: real;
begin
if (min > max) then
begin
a := min;
min := max;
max := a;
end;
end;
var
r1, r2: real;
begin
readln(r1, r2);
r1 := pi * sqr(r1);
r2 := pi * sqr(r2);
MinMax(r1, r2);
writeln('S = ', r2 - r1);
end.
var
a: real;
begin
if (min > max) then
begin
a := min;
min := max;
max := a;
end;
end;
var
r1, r2: real;
begin
readln(r1, r2);
r1 := pi * sqr(r1);
r2 := pi * sqr(r2);
MinMax(r1, r2);
writeln('S = ', r2 - r1);
end.
Приложения:
![](https://st.uroker.com/files/b86/b8693fbdbfb455cc4cb863fd5a2cfc70.jpg)
Ответ дал:
0
Там описка в блок-схеме S1-S2, а не R1-S2
Ответ дал:
0
Спасибо большое!!!
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад