writeln(‘ alyn1= ‘,alyn1:11:4,’ ‘,tlyn1); writeln(MMM,’ alyn1 ‘,alyn1:11:
writeln(‘ alyn2= ‘,alyn2:11:4,’ ‘,tlyn2); writeln(MMM,’ alyn2 ‘,alyn2:11:
writeln(‘ akvadr1= ‘,akvadr1:11:4,’ ‘,tkvadr1);
writeln(MMM,’ akvadr1 ‘,akvadr1:11:4,’ ‘,tkvadr1);
writeln(‘ akvadr2= ‘,akvadr2:11:4,’ ‘,tkvadr2);
writeln(MMM,’ akvadr2 ‘,akvadr2:11:4,’ ‘,tkvadr2);
writeln(‘ akvadr3= ‘,akvadr3:11:4,’ ‘,tkvadr3);
writeln(MMM,’ akvadr3 ‘,akvadr3:11:4,’ ‘,tkvadr3);
writeln(‘ aexp1= ‘,aexp1:11:4,’ ‘,texp1);
writeln(MMM,’ aexp1 ‘,aexp1:11:4,’ ‘,texp1);
writeln(‘ aexp2= ‘,aexp2:11:4,’ ‘,texp2);
writeln(MMM,’ aexp2 ‘,aexp2:11:4,’ ‘,texp2)
Источник: studfile.net
Как написать программу калькулятора в паскале
Многие часто задаются вопросом как написать нормально работающий, аккуратный калькулятор или ищут уже готовую версию.
Создание калькулятора в Pascal(Урок 1)
Если кому-то пригодится — то вот код:
Ошибки:
Программа пытается делить на ноль
Не работает возведение в отрицательную степень.
Версии:
1.3 — исправлена проблема деления на 0, упорядочен код.
1.5 — окончательная исправлена ошибка при делении. Подготовка к возведению в отр. степень.
Последний раз редактировалось Michаel; 19.11.2017 в 20:42 . Причина: Версия 1.5
Регистрация: 17.11.2010
Сообщений: 19,042
А что в нем от pro? На 0 пытается разделить, не знает, что степень отрицательная бывает ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Регистрация: 19.11.2017
Сообщений: 4
А что в нем от pro? На 0 пытается разделить, не знает, что степень отрицательная бывает ))
То что это лучший и самый нормально работающий калькулятор, который я нашёл, а любые ошибки можно исправить, для этого я и выложил его на форум.
Регистрация: 17.11.2010
Сообщений: 19,042
| исправлена проблема деления на 0 |
ага, заодно запретил и остальные действия с нулем ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Источник: www.programmersforum.ru
Программа для калькулятора в паскале
Здравствуйте, начинающие программисты! Из данной статьи вы узнаете как создать программу на Pascal ABC, например, простейший калькулятор.
Заходим в программу Pascal ABC, перед нами открывается чистый лист с названием Program1.pas— это файл программных модулей для написания кода. В дальнейшем его можно компилировать в .exe— исполняемый файл, который будет открывать созданную нами программу.
Для начала назовём нашу программу, к примеру, «Решебник», в коде пишем:
Простой калькулятор на Pascal /pascal programming lesson #1
Program reshebnik;
Не забывайте в конце каждой строчки обязательно ставить точку с запятой. Так как мы создаём простейший калькулятор, наш «Решебник» будет вычислять буквально одно действие — сложение двух переменных, то есть a+b=c. Во второй строчке кода объявляем переменные a, b, cи добавляем integer(с англ. — «целое») — уточнение, что a, b, c — целые числа:
Var a, b, c: integer;
Var— в языках программирования означает «переменная».
Теперь создадим блок команд (операторов), который начинается со слова beginи заканчивается словом end. Пишем:
begin
Следующей сторочкой предложим пользователю ввести число. Инструкция Write(с анг. — «запись») выведет на экран монитора наше сообщение, WriteLN— ещё и переведёт курсор в начало следующей стороки, то есть пишем в файле четвёртой строчкой:
WriteLN (‘Введите число A:’);
Пятой строчкой выполним ввод пользователя с помощью команды read(с англ. — «читать»):
ReadLN (a);
То же самое проделаем со вторым числом b:
WriteLN (‘Введите число B:.’);
ReadLN (b);
Выполняем подсчёт введённых переменных. Знак «:=» означает присваивание, присваиваем числу c значение a+b:
Выводим ответ и завершаем блок операторов:
WriteLN (‘Ответ’, c);
end.
Итак, наш «Решебник» готов к использованию. Проверим, как он работает. В Верхнем меню программы Pascal ABC выбираем Программа -> Выполнить.
Program reshebnik;
Var a, b, c: integer;
begin
WriteLN (‘Введите число A:’);
ReadLN (a);
WriteLN (‘Введите число B:’);
ReadLN (b);
c := a+b;
WriteLN (‘Ответ’, c);
end.
Вот и все. Надеюсь, всё понятно. Желаю удачи и хороших результатов!
Волков
Последний раз редактировалось: 2018-01-10
Задача
Написать программу, в которой вводятся два операнда Х и Y и знак операции (+, –, /, *). Вычислить результат Z в зависимости от знака. Предусмотреть реакции на возможный неверный знак операции, а также на ввод Y=0 при делении. Организовать возможность многократных вычислений без перезагрузки программа (т.е. построить цикл). В качестве символа прекращения вычислений принять ‘0’.
Решение
Алгоритм решения задачи:
- Вводим знак. Если он является символом ‘0’, то прерываем цикл.
- Если введенный символ принадлежит к перечисленным, то запрашиваем два числа и выполняем вычисления в зависимости от введенного знака.
- Иначе сообщаем о некорректном вводе знака.
Исходник калькуляторадля паскаля, который умеет складывать, вычитать, умножать, находить корень и квадрат числа, а также делитьв обычном и привычном для нас виде и в целых числах с остатком. Использованы операторыsqrt, sqr, mod и div, +, -, /, *. Теперь он выполняет те функции, которые Вам надо, а не выводит всё сразу. Данная функция реализована с помощью оператора условия if.
Имеет не скомпилированный формат для редактирования .pas. Открывается в таких программах, как Pascal ABC, Pascal ABC.Netи Turbo Pascal. В программе есть пояснительные комментарии к каждой строке.
Исходный код калькулятора на паскале:
Нет связанных сообщений
Источник: motorevive.ru