Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму
204
215
Ответы на вопрос:
Program vozvedenie;
uses crt;
var r1,r2:real;
function Scirkle(r:real):real;
begin
Scirkle:=pi*sqr(r);
end;
begin
clrscr;
writeln('r1,r2');
readln(r1,r2);
writeln('Площадь кольца равна**',Scirkle(r1)-Scirkle(r2));
readln;
end.
uses crt;
var r1,r2:real;
function Scirkle(r:real):real;
begin
Scirkle:=pi*sqr(r);
end;
begin
clrscr;
writeln('r1,r2');
readln(r1,r2);
writeln('Площадь кольца равна**',Scirkle(r1)-Scirkle(r2));
readln;
end.
Популярно: Другие предметы
-
SuperMaksni4ic13.01.2021 04:10
-
balashova129608.10.2021 18:47
-
annnnka1613.08.2022 19:50
-
lina00p0cjtl20.04.2022 18:02
-
juliakovta08.02.2021 18:33
-
SerezhaYakovle17.05.2020 15:55
-
kuklas22829.09.2020 10:03
-
guljanatkabdrasheva26.08.2020 21:20
-
ikurgan07.07.2022 07:33
-
allonso14.08.2022 11:51