Автор Александр Костюничев задал вопрос в разделе Другие языки и технологии
формула в delphi и получил лучший ответ
Ответ от Ivantrs[гуру]
может переменная не того типа ?
а функция такая есть:
Ответ от Elizabeth Krivonos[активный]
модуль math в uses есть? a2 объявлена как extended?
модуль 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. удачи в програмировании!
Число ПИ записывается 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. удачи в програмировании!
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: формула в delphi