Выбивает Паскаль

[alligator]

всем привет! я тут новенький,прости если тему создал не там
подскажите в таком трудном вопросе: у меня есть ноутбук,на нём виста,ХР ставить не получится,т.к. на родном сайте нету НОРМАЛЬНО работающих драйверов,все с косяками и крякозябринами.Под семёрку тоже.Только виста нормально работает.
ну да ладно.
я установил паскаль 7.1 и написал простую программу калькулятор
где надо ввести х,у и потом выводится z в зависимости от знака между х и у,соотвественно и вот комплию прогу, ввожу х,ввожу знак,ввожу у нажимаю ентер (и как поидее должно выводится сумма зет) но НЕТ тупо выбивает в код программы.и всё.ничего с этим сделать не могу
пробывал на фри паскаль - такаяеже фиговина
паскальАБК вообще странный и не предлагать)
что скажете?

[Pein95]

а вы в конце проге попробуйте написать такую строчку
Readln;

[Hacker19_90]

Предлажу вам КОД ПОКАЗАТЬ!

[Pein95]

давайте код)

[Shift_sk]

абс лучше нет)

[alligator]

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

абс лучше нет)

в абс подругому как то всё.и модуль графики там другой.не удобно.

var
s: Char;
x,y,z: real;
begin
Write(' x=');
readln(x);
Write(' Znak=');
readln(s);
Write(' y=');
if s='+' then z:=x+y;
if s='-' then z:=x-y;
if s='*' then z:=x*y;
if s='/' then z:=x/y;
write(x,s,y,'=',z);
end.


и о ЧУДО.заработало.когда я доставил вконце строчку реадлн.а теперь обьясните мне пожалуйста зачем было её вставлять в конец?)
и да,кстате когда y,x,z принимают значения реал то всегда будет выдывать =*.000000E+00 ?

[Hacker19_90]

я доставил вконце строчку реадлн.а теперь обьясните мне пожалуйста зачем было её вставлять в конец?)

Процедура Readln считывает параметр с буфера! Так вот пока в буфере ничего нет, Readln будет ждать когда что-то появится! Следовательно программа не закроется!
Для альтернативы предлагаю использовать ReadKey из модуля Crt;

когда y,x,z принимают значения реал то всегда будет выдывать =*.000000E+00 ?

Это стандартный вывод дробных чисел! Для того, чтобы вывести дробные числа в десятичной записи надо задать количество разрядов для целой части и дробной!
Примерно так

writeln (chislo:4:4);

[alligator]

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

Процедура Readln считывает параметр с буфера! Так вот пока в буфере ничего нет, Readln будет ждать когда что-то появится! Следовательно программа не закроется!
Для альтернативы предлагаю использовать ReadKey из модуля Crt;

Это стандартный вывод дробных чисел! Для того, чтобы вывести дробные числа в десятичной записи надо задать количество разрядов для целой части и дробной!
Примерно так

writeln (chislo:4:4);

всё понял.
только я вместо writeln сделал write('summa=',z:1:2); и всё отлично.спасибо