лабораторная работа / Лабораторная работа1

ЛАБОРАТОРНАЯ РАБОТА №1.

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

Дано: , где a=0,81, b=0,03, x=0,44.

, где z=1,43.

БЛОК СХЕМА. ПРОГРАММА.

program lab1(input, output);

{ Лабораторная Работа 1 }

{ Студента Группы УИТ 22 }

var

a, b, c, x, y, z, g, r, f: real;

begin

writeln(' ВВЕДИТЕ a, b, x, z');

read(a,b,x,z);

c:=sin(x+a)*sin(x+a);

g:=cos(z*z)*cos(z*z)*cos(z*z)*2;

r:=(1+cos(z))/cos(z);

y:=sqr(x)*(x+a)/b+c;

f:=abs((sqr(g/(1+sin(z))))/r);

writeln('y=',y:8:3,' f=',f:8:3);

end.

Результаты вычислений: у=153.301, f=0.428.