Операции с разными типами чисел (real c integer не умножается!)

[uvamosk]

Как в таких случаях принято говорить, спасите-помогите скорее пожалуйста препожалуйста...
Не могу решить простую задачку по информатике. На паскале написать программу вычисления площади круга.

const p: real = 3.14;
var
r: integer;

бла-бла-бла, человек вводит r - радиус, и должен печататься результат p*r*r, но печатается 3.140000000E+02

что я не так делаю?

[Sazary]

Приведите полный код.

[uvamosk]

хорошо, вот, правда с латиницей))))

rogram ploshadkruga;

const
p: real = 3.14;


var
r, d, l, s: real;
a, ans: string;


begin

repeat

begin {repeat}
writeln ('viberite sposob podscheta ploshadi kruga:');
writeln ('1 - cherez radius');
writeln ('2 - cheraz diametr');
writeln ('3 - cherez dlinu okruznosti');
readln (a);

if a= '1' then
begin
writeln ('vvedite radius=');
readln (r);
s := p*r*r;
writeln ('ploshad kruga ravna=', s);
end;

if a= '2' then
begin
writeln ('vvedite diametr=');
readln (d);
s := p*((d/2)*(d/2));
writeln ('ploshad kruga ravna=', s);
end;

if a= '3' then
begin
writeln ('vvedite dlinu okruzhnosti=');
readln (l);
s := p * ((l/(p*2)) * (l/ (p*2)));
writeln ('ploshad=', s);
end;
if (a <> '1') and (a <> '2') and (a <> '3') then writeln ('viberitesposob podscheta tsiframi 1 ili 2 ili 3');

writeln ('poschitat esche? 1 - da, luboe drugoe vihod');
readln (ans);
end; {repeat}
until ans <> '1';



End.

[uvamosk]

я понимаю, что не шикарно, я вообще-то програмированием занимался лет десять назад, щас просто попросили школьнику помочь, пришлось в вспоминать всё заново. НЕ получается почему-то. (((

[uvamosk]

Да, буду очень благодарен, если ответите в 30 минут. ))) Мне до 10 часов вечера надо сделать. )))

[anGeee]

Ну если проблема только в выводе.. То "write(<вещественное число>)" выводит на экран число в виде с плавающей точкой, как получалось у вас. Для вида с фиксированной точкой пишите так :

write('ploshad=', s:4:2) Первое число - это ширина поля вывода, второе число - количество знаков после точки.

зы в паскале для Пи есть константа Pi

[uvamosk]

)))))
Спасибо, работает! Вы меня спасли!
Но почему там буква Е да еще потом плюс02 ? Это последствия запуска древнего паскаля под вистой, или я что то не так делаю?

[Air]

program aa;
var
S:real;
r: integer;
begin
writeln('wwedite radius');
read(r);
S:=pi*(r*r);
writeln('S=',s:2:1);
readln;
readln;
end.

А почему нельзя сделать так???
_____
ГЫ... опоздал

[Sazary]

Сообщение от uvamosk

Но почему там буква Е да еще потом плюс02 ? Это последствия запуска древнего паскаля под вистой, или я что то не так делаю?

Это экспоненциальная форма записи. Виста не при чем

[uvamosk]

то есть все вычисления с real по умолчанию, при печати на экран, будут так выдаваться?