Процедуры - Turbo Pascal (249959)
Формулировка задачи:
Дана лабораторная работа №1 :
Условие:вычислить значение выражения:
Решение задачи: «Процедуры»
textual
Листинг программы
Program L1; var x,y:integer; A,M,tg:real; begin writeln('Enter x,y'); readln(x,y); tg:=sin(sqr(x))/cos(sqr(x)); A:=sqrt((x+y-tg*(sqr(x)))/(exp(ln(y)*9)+exp(ln(x)*4)-cos(x*y))); M:=(abs(cos(x)+100-sqr(y)))/(A-y+1*3); writeln('Rezultat A =' ,A); writeln('Rezultat M =' ,M); readln; End.
Объяснение кода листинга программы
- Программа начинается с объявления переменных: целочисленных x, y, а также вещественных A, M, tg. Значения переменных A и M будут вычисляться в процессе выполнения программы.
- Пользователю предлагается ввести значения переменных x и y с помощью функции readln().
- Затем вычисляется значение переменной tg с помощью функции sin() и sqr(). Функция sin() вычисляет синус, а sqr() - квадрат числа.
- Далее вычисляется значение переменной A с использованием функций sqr(), exp(), ln() и cos(). Функция sqr() вычисляет квадрат числа, exp() - экспоненту, ln() - натуральный логарифм, а cos() - косинус.
- После этого вычисляется значение переменной M с использованием функций abs(), cos() и ln(). Функция abs() возвращает абсолютное значение числа, cos() - косинус, а ln() - натуральный логарифм.
- Наконец, значения переменных A и M выводятся на экран с помощью функции writeln().
- Программа завершается после того, как пользователь нажмет Enter.