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