pi delphi

Ответ от Elizabeth Krivonos[активный]
модуль math в uses есть? a2 объявлена как extended?

Ответ от Андрей[гуру]
Число ПИ записывается pi это раз
во вторых у тебя а1 присвоено значение но ни где не используется
в третьих ты умножаешьна на Пи значит будет вот так :=pi*(sqr(b)*(1-(ArcCos(a2))/180)+a*sqrt(4*sqr(b)-sqr(a))
в четвертых скобку одну не закрыл
в пятых как сказали ранее модуль math в uses добавить надо
написал на Паскале в Делфи на майл выслал
var
b,a,a1,a2,s:real;
begin
writeLn('Введите А');
read(a);
writeLn('Введите В');
read(B);
a1:=a/2;
a2:=abs(a/(2*b));
s:=pi*(sqr(b)*(1-(ArcCos(a2))/180)+a*sqrt(4*sqr(b)-sqr(a));
writeLn('S=',S);
end.
P.S. удачи в програмировании!

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]