Написать программу вычисления функции паскаль

Задание: написать программу калькулятор, осуществляющего простейшие арифметические действия над вещественными числами.

Program C;
uses crt;
var y,a,b:real;
ch:char;label 1;
begin
repeat
writeln (‘введи два числа a,b’);
readln (a,b);
writeln (‘введи операцию над числами (+,-,*,/)’);
ch:=readkey;
case ch of
‘+’ :y:=a+b;
‘-‘ :y:=a-b;
‘*’ :y:=a*b;
‘/’ :y:=a/b;
else
begin
writeln (‘неверные данные’);
goto 1;
end
end;
writeln (a:8:5,ch,b:8:5,’=’,y:8:5);
1: writeln (‘продолжим вычисления? y/n’);
ch:=readkey
until ch=’n’
end

Пояснения
1. Программа демонстрирует использование оператора case, который в зависимости от значения введенного символа («+», «-», «*», «/») выполняет соответствующее действие: сложение, вычитание, умножение, деление.

2. Вычисления продолжаются до тех пор пока на запрос:
ПРОДОЛЖИМ ВЫЧИСЛЕНИЯ ? y/n

Паскаль с нуля [ч5]. Математические функции. Простой калькулятор. От блок-схемы к программе

пользователь не нажмет кнопку n.

1. Найти количество одинаковых элементов в двух массивах (Pascal)
2. Программа на Pascal: найти минимальное из трех чисел
3. Пример задачи на Pascal (вычислить определенный интеграл функции)
4. Нахождение делителей целого числа на Pascal
5. Вычисление значения функции одного аргумента с выбором формулы
6. Вычисление суммы ряда через Pascal
7. Построение таблицы значений функции y=sin(x) на Pascal
8. Выражения в Pascal: арифметические, логические
9. Вычислить количество положительных, отрицательных и нулевых элементов на Pascal
10. Вычисление функции разложением ее в ряд (задача на Паскале)
11. Программа эмуляции работы КЭШ-памяти
12. Простейшие операции в машине
13. Программа для решение уравнений онлайн
14. Описание самодельного калькулятора
15. Программа на основе метода наискорейшего спуска и метода Фибоначчи
16. Операторы управления в VHDL
17. Оператор выбора CASE в Pascal

Источник: all4study.ru

Как вычислить ctg (котангенс) на Pascal?

Издеваетесь 🙂 Какой перевод градусов в радианы? Что можно передать функции sqrt , чтоб получить градусы.

11 мар 2017 в 12:24
13 мар 2017 в 8:29

1 / tan(sqrt(x)) это правильный вариант. Результаты отличаются из-за градусов/радианов. Необходимо перевести радианы в градусы (умножить на 180/PI ) или наоборот (умножить на PI/180 )

Отслеживать
ответ дан 9 мар 2017 в 18:24
danielleontiev danielleontiev
143 4 4 бронзовых знака
Спасибо. Очень помогли)
9 мар 2017 в 18:26

Важное на Мете

Похожие

Подписаться на ленту

Лента вопроса

Для подписки на ленту скопируйте и вставьте эту ссылку в вашу программу для чтения RSS.

Математические выражения их запись в Паскале

lang-pascal

Нажимая «Принять все файлы cookie» вы соглашаетесь, что Stack Exchange может хранить файлы cookie на вашем устройстве и раскрывать информацию в соответствии с нашей Политикой в отношении файлов cookie.

Источник: ru.stackoverflow.com