Скрін-код програми

programpb21_07_01;

varKAS:integer;

NA1,DI,RIN,x,y,a:real;

K,Z,a1,c,d,b,b1:boolean;

Begin

writeln('лаб. робота №1');

writeln('Програмування алгоритмів лінійної структури ');

writeln('Виконав: Запоошнюк Андрій Анатолійович , Варіант №7');

writeln;

writeln('Перша частина роботи');

writeln('Введіть вхідні дані');

writeln('Введіть KAS');

readln(KAS);

writeln('Введіть NA1');

readln(NA1);

writeln('Введіть DI');

readln(DI);

writeln('Введіть RIN');

readln(RIN);

K:=false

Z:=true

writeln('Друк змінних в рядок');

writeln(KAS:0, NA1:0:7, DI:0:3, RIN:0);

writeln('Друк змінних в стовпчик');

writeln('KAS= ',KAS:0);

writeln('NA1= ' ,NA1:0:7);

writeln('DI= ',DI:0:3);

writeln('RIN= ',RIN:0);

writeln('Друк змінних в рядок з пробілом');

writeln(KAS:0,' ', NA1:0:7,' ', DI:0:3,' ',RIN:0);

writeln('друга частина');

writeln ('Введіть данні');

writeln ('введіть y');

readln (y);

writeln ('введіть x');

readln (x);

a1:=true;

c:=true;

b:=false;

d:=false;

a:=sqr(1+y)*((x+y)*(sqr(x)+4))/exp(x-2);

b1:=(not(a1) or((b) or(c)) and(d))or((x+y)<=(sqrt(x)-y)/4);

writeln('a=',a:0:3);

writeln ('b1=',b1);

readln;

end.

Результат виконання програми