дуже потрібно до завтра, допоможіть.

[kama4i]

Визначити площу кола, описаного навколо квадрата, сторона якого дорівнює а (алгоритм i pascal-програма)

From Stilet:
Перевод: Получить площадь окружности, описанной около квадрата, сторона которого равна "а".

[Stilet]

Попытки были?

[Randall C. Walker]

Спробуй це

Program S_kola;
uses crt;
var
   a, s : real;
begin
     clrscr;
     writeln('Введiть сторону квадрата, см:');
     write('а=');
     read(a);
     s:=pi*sqr(a)/2;
     writeln('Площа кола, описаного навколо квадрата:');
     writeln('S=',s:6:3,' см.');
     readkey
end.

[BDA]

Randall C. Walker, только площадь равна Pi * r^2 = Pi * d^2 / 4
d^2 = 2 * a^2
S = Pi * a^2 / 2

[min@y™]

implementation

{$R *.lfm}

{ TMainForm }

procedure TMainForm.goButtonClick(Sender: TObject);
var
  a, S, R: double;
begin
  a:= aSpin.Value;
  R:= 0.5 * a * 1.41421356237;
  S:= pi * sqr(R);
  rPanel.Caption:= FloatToStrF(R, ffFixed, 10, 4) + ' ';
  sPanel.Caption:= FloatToStrF(S, ffFixed, 10, 4) + ' ';
end;

[kama4i]

Спасибо очень помогли, а то не идет мне Паскаль)

[kama4i]

да Randall C. Walker работает!!!