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

Програмирование в Turbo Paskal 7.0

Отчет по лабораторной работе №2

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

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

Выполнил: ст. гр.  ТО-07 Цыренов Ж.Е.

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

Дата: 07.04.08

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

Напечатать: x,1+cos².x, y,e^(x-2)

Решение: Program Prim1;

Var x,c,y: real;

Begin

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

ReadLn(x);

c:=cos(x);

y:=2*sqrt(x)*(x-2)/(1+sqr(c))+exp(x-2);

WriteLn;

WriteLn('x=',x:6:2,' cos(x)=',c:7:4,'y=',y:8:4);

End.

введите x 0.42

x=  0.42 cos(x)= 0.9131y= -0.9108

Задание 2.Составить программу для вычисления z при заданном значении p = 1.42 и x = 0.5  по формуле

Напечатать: x,p,z,

Решение: Program Prim2;

Var x,p,z,a:real;

Begin

WriteLn('Введите значение x,p');

ReadLn(x,p);

a:=(1+sqr(sin(p/x)));

z:=(x*a+ln(a)/ln(10));

WriteLn;

WriteLn('x=',x:3:1,'  p=',p:4:2,

' (1+sqr(sin(p/x)))=',a:4:2, '  z=',z:8:6);

End.

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

0.5   1.42

x=0.5  p=1.42 (1+sqr(sin(p/x)))=1.09  z=0.580839

Задание 3. Составить программу вычисления и печати при х =-8.4 значений y и z по формулам 

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

Решение: Program Prim3;

Var x,a,y,z:real;

    yokr,zokr,del,ost:Integer;

Begin

x:=(-8.4);

a:=cos(1/x);

y:=sqr(3+a);

z:=(-x+ln(3+a)/ln(10));

yokr:=round(y);

zokr:=round(z);

del:=yokr div zokr;

ost:=yokr mod zokr;

WriteLn;

WriteLn('x=',x:5:2,'  y=',y:6:4,'  z=',z:7:5);

WriteLn('yokr=',yokr:2,'   zokr=',zokr:2);

WriteLn('остаток от деления y на z=',ost:2);

WriteLn('частное от деления y на z=',del:2);

end.

x=-8.40  y=15.9434  z=9.00129

yokr=16   zokr= 9

остаток от деления y на z= 7

частное от деления y на z= 1

Задание 4. Составить программу вычисления величины z=u/x  если  и при a =-2.6, y =7.77. Напечатать значения .Определить целую часть и дробные части величины  z . Напечатать эти значения.

Решение: program prim4;

var z,u,x,y,a,b,c,d:real;

zcel,zdrob:real;

begin

a:=-2.6;

y:=7.77;

b:=(sqr(a)+1);

d:=(b/abs(b)*exp(ln(abs(b)/3)));

c:=ln(y)/ln(10);

u:=c/d;

x:=sqr(1-4.2/y);

z:=u/x;

zcel:=int(u);

zdrob:=frac(u);

writeln;

writeln('y=',y:3:1,'a=',a:3:1,'b=',b:8:6,'x=',x:8:6,'u=',u:8:6,'z=',z:8:6);

writeln('zcel=',zcel:3:0,'   zdrob=',zdrob:8:6);

end.

y=7.8a=-2.6b=7.760000x=0.211103u=0.344235z=1.630649