лабораторная работа / вар22 / лаб1
.docБалаковский институт техники технологий и управления
Лабораторная работа №1
Вариант 22
Выполнил студент УИТ-22
Балаково 2007 год.
Цель работы: знакомство с основами алгоритмизации и программирования линейных вычислительных процессов на языке Turbo Pascal.
Задание: Вычислить и вывести на экран значения переменных y и p, используя расчетные формулы:
,
где x = 1,22, t = 0,3
Блок-схема алгоритма решения представлена на рис.1. В блоке 3 вводятся исходные данные a, b, x. В блоках 4 и 5 вычисляются значения функций R и S, а в блоке 7 осуществляется вывод вычисленных значений.
1
2
3
4
5
7
8
Рис.1. Блок-схема алгоритма решения
Программа, реализующая приведенный алгоритм имеет вид:
Program Lab_1;
var
a,x,t,b : real;
Begin
Writeln ('Введите x, t');
Read (x,t);
a :=exp(x*ln(2))*cos(x*t+1)-sqrt(abs(x*t+1));
b :=x*(sin(sqr(t)*cos(2*t))/cos(sqr(t)*cos(2*t)))+2*t;
Writeln ('a=',a:1:3);Writeln ('b=',b:1:3);
End.