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

Программирование в среде TurboPascal 7.0

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

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

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

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

Шапочкин А.С.

Проверил: Журов Г.Н.

Дата: 24.03.08.

Задача 1. Составить программу для вычисления  при заданном значении  по формуле . Напечатать .

Решение.

Блок-схема:

Программа:

Program Prim; {Программирование линейного вычислительного процесса}

Var x,a,t:real;

Begin

WriteLn('введите  x=0.36');

ReadLn(x);

a:=sin(x)/cos(x);

t:=(1+a*a)*exp(-x)-exp(x)*a;

WriteLn;

WriteLn('x=',x:4:2,'  sin(x)=',sin(x):7:5,

'  cos(x)=',cos(x):7:5,'  t=' ,t:8:6);

End.

Вид печати:

введите  x=0.36

0.36

x=0.36  sin(x)=0.35227  cos(x)=0.93590  t=0.257013

Задача 2. Составить программу для вычисления  при заданных значениях  и  по формуле .

Напечатать .

Решение.

Программа:

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

Var x,y,t:real;

Begin

WriteLn('введите  x,t');

ReadLn(x,t);

y:=x/(t*(x*x+1))-1/16*sqr(arctan(x/t));

WriteLn;

WriteLn('x=',x:4:1,'  t=',t:3:1,'  y=',y:8:6);

End.

Вид печати:

введите  x,t

12 8

x=12.0  t=8.0  y=-0.050023

Задача 3. Составить программу  вычисления и печати при  значений  и по формулам  и . Округлить значения и до ближайших целых значений. Найти частное от деления и остаток от деления округленного значения на округленное значение . Напечатать эти значения.

Решение.

Программа:

Program Prim3; {Программирование линейного вычислительного процесса}

Var x,y,t,z:real;

yokr,zokr,del,ost:Integer;

Begin

x:=0.7;{Ввод x}

t:=sqr(x)*x+1;

y:=Pi/2-sqr(x)*x/sqrt(t*(1-sqr(x)*x));

z:=1.5+t/abs(t)*exp(ln(abs(t))/3);

yokr:=round(y);

zokr:=round(z);

del:=yokr div zokr;

ost:=yokr mod zokr;