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