Program pr_1a;

uses crt;

var n1,x,x2,x4,x5,chis,znam,y,y0,y1,y2,f: real;

Begin

clrscr;

write('x='); readln(x);

n1:=sqrt(2);

x2:=sqr(x);

x4:=sqr(x2);

x5:=x4*x;

writeln('x=',x:6:2,' x2=',x2:6:2,' x4=',x4:6:2,' x5=',x5:6:2);

chis:=x5+x4-x2*n1+2;

znam:=x4-x2*n1+1;

y:=chis/znam;

y0:=sqrt(y);

writeln('chis=',chis:6:2,'znam=',znam:6:2,'y=',y:6:3,'y0=',y0:6:3);

y1:=sin(pi/2)+abs(sin(x/6)/cos(x/6));

y2:=exp(0.1*x);

f:=y0+y1+y2;

writeln('y0=',y0:6:3,'y1=',y1:6:3,'y2=',y2:6:3,' f=',f:6:3);

readln;

End.

{ Протокол роботи програми

для трьох запусків на виконання з різними значеннями х

x=5

x= 5.00 x2= 25.00 x4=625.00 x5=3125.00

chis=3716.64 znam=590.64 y= 6.293 y0= 2.508

y0= 2.508 y1= 2.101 y2= 1.649 f= 6.258

x=10

x= 10.00 x2=100.00 x4=10000.00 x5=100000.00

chis=109860.58 znam=9859.58 y=11.143 y0= 3.338

y0= 3.338 y1=11.399 y2= 2.718 f=17.455

x=20

x= 20.00 x2=400.00 x4=160000.00 x5=3200000.00

chis=3359436.31 znam=159435.31 y=21.071 y0= 4.590

y0= 4.590 y1= 1.194 y2= 7.389 f=13.173}

6. Варіанти індивідуальних завдань до лабораторної роботи

№	Розрахункова формула		№	Розрахункова формула

Лабораторна робота N 2

Тема: Розробка і реалізація алгоритмів, що містять розгалуження і цикли