Ваша большая проблема вот в этих кусках кода:
- Код: Выделить всё
if c = '+' then
rezult := a + b;
write('Сумма чисел равна: ',rezult)
else
Конструкция If ... Then ... Else - это единая конструкция, где вместо многоточия между Then ... Elseподставляется только одна функцияпроцедура. Если функцийпроцедур должно быть много, то они обрамляются программными скобками Begin ... End. Вот правильный кусок кода:
- Код: Выделить всё
if c = '+' then
Begin
rezult := a + b;
write('Сумма чисел равна: ',rezult);
End
else
Об этом пишется на первой же странице любой книжки по Паскалю. И если Вы на многократные и справедливые, для Вашего случая, советы почитать книжку по Паскалю, будете продолжать ехидно хихикая говорить, что не хотите ничего читать, то приготовьтесь к тому, что Вам тут никто больше помогать не будет. Смысла нет никакого Вам помогать с таким отношением к учёбе.
Добавлено спустя 26 минут 36 секунд:
Kassper
А лучше бы Вы не пользовались IDEшкой, а компилировали программу в командной строке:
C:\FreePascal\bin\i386-win32>fpc summa_2.pas
Компилятор командной строки fpc выдаёт номер строки и номер символа, в котором случилась ошибка. Видимо у Вас IDEшка не работает. Я сам ею не пользуюсь, поэтому в чём там проблема - сказать не могу.
