Решаем задачи Абрамян на Паскале. Proc 19

Proc19. Описать функцию RingS($$R_1$$, $$R_2$$) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами $$R_1$$ и $$R_2$$ ($$R_1$$ и $$R_2$$ — вещественные, $$R_1 > R_2$$). С ее помощью найти площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса $$R$$: $$S = \pi*R^2$$. В качестве значения $$\pi$$ использовать 3.14.

Решение:

program Proc19;

Function RingS(R1,R2:Real):Real;
begin
  RingS:=3.14*(sqr(R1)-sqr(R2))
end;


var
  R1,R2:Real;
  i:integer;
begin
 for i:=1 to 3 do 
  begin
   Write('R1 :');
   Readln(R1);
   Write('R2 :');
   Readln(R2);
   Writeln(RingS(R1,R2));
  end;
end.

program Proc19;

Function RingS(R1,R2:Real):Real;

begin

RingS:=3.14*(sqr(R1)-sqr(R2))

end;

var

R1,R2:Real;

i:integer;

begin

for i:=1 to 3 do

begin

Write('R1 :');

Readln(R1);

Write('R2 :');

Readln(R2);

Writeln(RingS(R1,R2));

end;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 19

Комментарии:

Добавить комментарий Отменить ответ