Про число Pi

[Shevali]

Позвольте задать вопрос.
При попытке делить какое-либо число на число Pi ругается, мол на ноль делить нельзя. А если напишу вместо Pi просто 3,14 то всё нормально. Что не так?
Спасибо.

[Sazary]

А что за компилятор? Может, проблема в нем?
Такая программа:

uses crt;
begin
clrscr;
writeln(3/pi);
readkey;
end.

у вас тоже не работает?

Может, вы где-нибудь его переопределяете?

[Levsha100]

Скорее всего Вы,как написал Sazary , не добавили библиотеку crt!

[Shevali]

Вы уж простите, но я всего пятый день самостоятельно изучаю Паскаль (и то по вечерам) и выполняю предложенные в учебнике задачки. И пока что Ваши мудрые советы мне не совсем понятны. Задачи я составляю пока что элементарные, к примеру на вычисление площадей фигур, где и применяется упомянутое выше число Pi. Уж не знаю как составлялся учебник, но про библиотеки ещё не читал (возможно в следующих главах).

[Sazary]

В начале программы напишите

uses crt;

Таким образом вы подключите эту библиотеку.

[Levsha100]

Удачи! Все у Вас получится!!!

[Shevali]

Пока не получается, вычисляю я радиус зная площадь круга. Составил так:

Program r;
uses crt; - это вставил по вашему совету
var
s, r: real;
Pi: integer;
Begin
writeln ('vvesti s: ');
readln (s);
r:= sqrt(s/Pi);
writeln ('r: ',r);
end.

Всё равно говорит что делю на ноль.

[Sazary]

Все ясно.

Pi: integer;

Вы повторно объявляете Pi (этого делать не надо) и не инициализируете его.
Уберите эту строчку. Эта константа объявлена в самой библиотеке.

[Shevali]

Спасибо, всё получилось.

[Levsha100]

Кстати можете сделать проверку введенных данных:

readln (s);
if s<>0 then
  r:= sqrt(s/Pi);
writeln ('r: ',r);