Калькулятор на паскале

[ne4kin]

у меня к каждоме repeat свой until. че лишний ставить ?

[Niro]

лишним он будет когда компилятор скажет.
Хорошо, сейчас скопировав код из поста номер 3, я вставил его в блокнот, воспользовавшись поиском видим

if sx=1 then stop:=true;
repeat
clrscr;

это один

if not stop then
repeat
clrscr;

это два
а вот

until deistvie = 'm';

только один
Теперь поверили?
Отдельные куски программы у вас правильные, а вот связаны в единую программу они не верно

[russian-stalker]

Сообщение от _-Re@l-_

А что, для паскаля уже существуют интерпретаторы? Сколько я помню, паскаль компилируемый язык...
Используйте лучше Borland Pascal 7.0

Да, PascalABC - интерпретатор языка, в следствие чего он не соответствует стандарту, но он очень и очень удобен, во много раз удобнее TP. Про отладку я вообще молчу, невероятно удобно сделана.

[ne4kin]

Теперь все работает.Но!!!
При выборе способа аналитический, т.е. ввод цифры отличной от 1 включается способ арифметический.Логическая операция почему то не работает(
При вводе знака действия в арифметическом способе выходит ошибка, скриншот в прикрепленном файле.
Код, который прислал, я исправил, смотрите последний.
Что мне делать (((?

[Stilet]

А ты учитываешь что завершение ввода для read должен быть либо пробел либо энтер?
т.е. ты должен вводить свое выражение так - "1 + 2". и энтер

[ne4kin]

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

А ты учитываешь что завершение ввода для read должен быть либо пробел либо энтер?
т.е. ты должен вводить свое выражение так - "1 + 2". и энтер

у меня 3 read. Это значит что для ввода выражения надо использовать 3 ввода. тоесть 1 ентер, + ентер, 2 ентер.Вот после ввода плюса ну или любого другого выходит ошибка представленная на скриншоте

[Stilet]

ne4kin

Вот именно поэтому так не пишут.
Вводят строку, а потом ее разбирают парсером.
Опасно вводить элементы через read, он слабо для этого предназначен. А если точнее он морально устарел.

[ne4kin]

а как тогда лучше ввести? через че? и разбор строки тогда производить через цикл и ord()?
Если не затруднит, вы не могли бы подправить код ?

[OCTAGRAM]

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

Задом наперёд — потому что 2 - 2 - 2 = (2 - 2) - 2, то есть, на правый минус нужно натолкнуться раньше, чем на левый.

Сначала пытаюсь распознать строку как сумму. Если получилось, распознаю подстроки. Если не получилось, пытаюсь распознать как произведение. И т. д.

Исходники можно посмотреть здесь: http://sources.codenet.ru/download/3075/DIFF3_PAS.html

[ne4kin]

ну а ввод строки как производить? если не через read, то через что ?