Предмет: Информатика, автор: polinamatveeva

помогите переделать программу в процедуру без параметров

program Pl_kruga;
uses crt;
var L,S,R:real;

BEGIN
writeln(введи...);
readln(L);
R:=L/2*3.14;
S:=3.14*R*R;
writeln(S:4:2);
end.

Ответы

Автор ответа: Аноним
0
program Pl_kruga;

uses
  crt;

procedure SKr(L: real; var S: real);
var
  R: real;
begin
  R := L / 2 * Pi;
  S := Pi * sqr(R);
end;

{ а это вызов }

var
  L, S: real;

begin
  Writeln('введи...');
  Readln(L);
  SKr(L, S);
  Writeln(S:4:2)
end.

Похожие вопросы
Предмет: Математика, автор: Artemis20000
Предмет: Информатика, автор: vzlomfun5
Предмет: Литература, автор: Настёна12092003