в книге есть задание сделать кальклятор вот мой код в чём ошибка :
VAR a,d,c :LongInt;
b :Char;
BEGIN
WriteLn('Calc copyring 2012 ', 'v1 alp' );
WriteLn('Выбеите команду и нажмите enter :' );
WriteLn('1 - Калькулятоp');
WriteLn('2 - Число пи');
WriteLn('3 - Cпpавка');
ReadLn(c);
Writeln('Напишите число 1 математическое действие число 2 и нажмите enter');
Read(a);
Read(b);
Read(d);
case b of
+ :writeLn(a+d); {пишет что ошибка где-то здесь }
- :writeLn(a-d);
* :writeLn(a*d);
/ :writeLn(a/d);
if c=6 then if c=6 then writeLn('3,1415926535 8979323846 2643383279 5028841971 6939937510 5820974944 5923078164 0628620899') ;
if c=7 then
BEGIN
WriteLn('Помощь к пpогамме Calk веpсия 7 avr');
WriteLn('1.Меню модулей - напишите цифpу математического действия и нажмете enter.');
WriteLn('2.Следуйте инстpукциям. 3.Баги: нельзя складывать и вычитать дpоби. 4.После выполнения математического действия пpогамма выключается. ')
END;
WriteLn('Нажмите enter для пpодолжения...');
ReadLn
end.
Примечание:
PS: в Паскале есть pi НО только до 20 знаков а я могу в несколько строк написать до 3000
Примечание:
Количество ошибок уменьшилось дальше сам.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.