Составить программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму

@Gigazo1d · Регистрация: 10.01.2013

Author24 — интернет-сервис помощи студентам

Дано: Составить программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга (2 варианта: с процедурой и с функцией).

С процедурой вроде как сделал, с функцией не поможете?

Pascal

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.

@APALoff · 09.04.2014, 12:31

Сообщение от Gigazo1d

С процедурой вроде как сделал, с функцией не поможете?

Вы привели как раз вариант с функцией!

@Gigazo1d · 09.04.2014, 12:46 **[ТС]**

Сообщение от APALoff

Вы привели как раз вариант с функцией!

Да, вы правы, спасибо что исправили, ошибся. Значит нужно с процедурой

@APALoff · 09.04.2014, 12:53

Pascal

var r1,r2,sr1,sr2:real;
Procedure Scirkle(r:real;var sr : real);
begin
 sr:=pi*sqr(r);
end;
begin
 writeln('r1,r2');
 readln(r1,r2);
 Scirkle(r1,sr1);
 Scirkle(r2,sr2);
 writeln('Площадь кольца равна**',sr1-sr2);
 readln;
end.

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	09.04.2014, 12:31	2
	Сообщение от Gigazo1d С процедурой вроде как сделал, с функцией не поможете? Вы привели как раз вариант с функцией! 0

@Gigazo1d 2 / 2 / 0 Регистрация: 10.01.2013 Сообщений: 167
	09.04.2014, 12:46 [ТС]	3
	Сообщение от APALoff Вы привели как раз вариант с функцией! Да, вы правы, спасибо что исправили, ошибся. Значит нужно с процедурой 0

	09.04.2014, 12:53

Составить программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму

Решение