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