Процедуры - 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.

Объяснение кода листинга программы

  1. Программа начинается с объявления переменных: целочисленных x, y, а также вещественных A, M, tg. Значения переменных A и M будут вычисляться в процессе выполнения программы.
  2. Пользователю предлагается ввести значения переменных x и y с помощью функции readln().
  3. Затем вычисляется значение переменной tg с помощью функции sin() и sqr(). Функция sin() вычисляет синус, а sqr() - квадрат числа.
  4. Далее вычисляется значение переменной A с использованием функций sqr(), exp(), ln() и cos(). Функция sqr() вычисляет квадрат числа, exp() - экспоненту, ln() - натуральный логарифм, а cos() - косинус.
  5. После этого вычисляется значение переменной M с использованием функций abs(), cos() и ln(). Функция abs() возвращает абсолютное значение числа, cos() - косинус, а ln() - натуральный логарифм.
  6. Наконец, значения переменных A и M выводятся на экран с помощью функции writeln().
  7. Программа завершается после того, как пользователь нажмет Enter.

Оцени полезность:

15   голосов , оценка 4.4 из 5
Похожие ответы