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

Балаковский институт техники технологий и управления

Лабораторная работа №1

Вариант 7

Выполнил студент УИТ-2в

Балаково 2007 год.

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

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

,

где a = 0,7 b = 0,05 x = 0,5

Блок-схема алгоритма решения представлена на рис.1. В блоке 3 вводятся исходные данные a, b, x. В блоках 4 и 5 вычисляются значения функций R и S, а в блоке 7 осуществляется вывод вычисленных значений.

1

2

3

4

5

7

8

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

Программа, реализующая приведенный алгоритм имеет вид:

Program Lab_1;

var

a,x,r,s,b : real;

Begin

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

Read (a,b,x);

r := sqr(x)*(x+1)/b-sqr(sin(x+a));

s := sqrt(x*b/a)+sqr(cos(exp(3*ln(x+b))));

Writeln ('R=',r:1:3);Writeln ('S=',s:1:3);

End.