Программирование линейных вычислительных процессов с использованием операторов, реализующих базовые структуры следования. Вариант № 4

Программирование в среде Turbo Pascal 7.0.

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

Тема  -  программирование линейных вычислений с использованием операторов, реализующих базовые структуры следования.

Цель работы – освоить на практике программирование линейных вычислительных процессов, используя для этого, простейшие операторы ввода – вывода и присваивания, изучить построение и использование арифметических выражений, научиться откладке программ и подготовке с этой целью тестов.

Выполнил студент группы ТО-07

Штукерт Руслан Сергеевич

Проверил доц.каф.ИКТ Журов Г.Н.

Дата 31.03.2008

Задача 1.

Составить программу для вычисления и печати b указанных величин при заданных значениях x=3.7 причём каждое подвыражение должно вычисляться по одному разу, Для обеспечения последнего условия ввести в случае необходимости промежуточные переменные. По формуле:

Напечатать

Решение:

1. Расчётные формулы:

,  ,  .

2.Тест для отладки программы:

x=3.7 , , ,

.

3.Исходные данные: х=3,7==>3.7¿

4.  Блок – схема:

5 Программа:

Program Prim1;            {Программирование линейного

вычислительного процесса}

Var    x,b,c,y:real;          {описание переменных}

Begin

WriteLn('Введите значение x');   {Ввод x}

readLn (x);                        {‘вывод x’}

b:=exp(x-2);

c:=1+sqr(cos(x));

y:=(2*sqrt(x)*(x-2)/c)+b;     {Вычисление y}

WriteLn;

WriteLn('x=',x:2:1,' b=',b:5:2,' c=',c:6:3,' y=',y:4:1);

End. {Конец программы}

6. Вид печати

Введите значение x

3.7

x=3.7 exp(x-2)= 5.47 1+sqr(cos(x))= 1.719 y= 9.3

Задача 2.

Составить программу вычисления при x=0,2,  a=3,5 значения y по формуле

Напечатать значения x, a, lna, y

Решение.

1. Расчетные формулы:

b=lna;

c=;

;

2. Тесты для отладки программы:

x=0,2; a=3,5;  b=ln3,5=1,25;  c=1/cos0,2=1,001;

y==0,576288

3. Исходные данные x=0,2,  a=3,5

4. Блок-схема.

 

5. Программа:

program Prim2; {программа линейного вычислительного

процесса}

var x,a,y,c,b:real; {описание переменных}

begin

writeln('‚ввести значения x,a:'); {ввод значений x, a}

readln(x,a);

b:=ln(a);       {вычисление b}

c:=1/cos(x);    {вычисление c}

y:=exp(c*ln(2))*((sqr(x)/b)+(2*x)/sqr(b)); {вычисление y}