лабораторная работа / 1

Цель работы: знакомство с основами алгоритмизации и программирования линейных вычислительных процессов на языке Turbo Pascal.

Задание. Вычислить и вывести на экран значения переменных y и d, исполь-зуя расчетные формулы:

;

;

где a=3.2; b=17.5; x=-4.8.

Блок-схема алгоритма решения.

НАЧАЛО

Введите a, b, x

Ввод a, b, x

Вывод y, d

КОНЕЦ

Текст программы:

Program Lab1;

Var

a,b,x,y,d: real;

Begin

Writeln ('Введите a, b, x');

Read (a, b, x);

y:=b*sqr(sin(x)/cos(x))-a/sqr(sin(x/a));

d:=a*exp(-a*x)*cos(b*x/a);

Writeln ('y=',y:8:3, 'd=',d:8:3);

End.

Результаты выполнения программы:

y(3.2;17.5;-4.8)=2265.051

d(3.2;17.5;-4.8)=6569529.085

Проверка в математическом редакторе Mathcad: