помощь нубке, я только учусь, и сразу проблема Опции

[shprot]

program bobr_1;
var
a: integer;
c: integer;
BEGIN
write (' введите число для нахождение корня');
Readln (a);
c:=sqrt(a);
Writeln ('PE3yJIbTAT : ',c);
END.

Не работает по не понятным причинам, думаю кто нибудь скажет в чем проблема.
Простите за очень тупой вопрос, не кому больше обратиться.

P.S: для дальнейшего обучения мне архее важен ответ на этот вопрос

Сообщение отредактировано: shprot - 8.03.2009 13:43

[shprot]

вопрос не по теме: как округлять значения до целых чисел и очищать каждый раз экран автомотически

[klem4]

У вас переменная с - целочисленная (integer), а должна быть дробной - (single или double).

[shprot]

спасибо

[amega]

для очистки екрана подключаеш модуль crt; а очитка clrscr;
а формат вывода можно так позначать
Writeln ('PE3yJIbTAT : ',c:1:0);
c:1:0 ознчает что будет выводится 0 знаков после запятой и 1 знак перед запятой но паскаль для нужды переставит если будет например чило 10 или больше кол знаков перед запетой

Сообщение отредактировано: amega - 8.03.2009 14:42

[shprot]

огромное спасибо вам АМЕГА

Сообщение отредактировано: shprot - 8.03.2009 14:51

[amega]

shprot С 8 МАРТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

з.ы. меня девушки с каждым днем удевляют нет что б сегодня радоватся днем они програмками мучаются

[shprot]

спс тебе опять амега