Программирование на Pascal / Delphi / Лабораторная работа1 / Lab_2

Program lab_2;
var
x1,x2,x3,x4:integer;
z,y1,y2,y3,y4,f:real;
Begin
f:=0;
writeln('‚лзЁб«Ґ­ЁҐ §­ зҐ­Ёп дг­ЄжЁЁ');
writeln('‚ўҐ¤ЁвҐ §­ зҐ­Ёп е');
read(x1,x2,x3,x4);
if 8*x1-x4>0 then
begin
y1:=1/sqr(8*x1-x4);
writeln('y1=',y1);
end
else
begin
f:=1;
writeln('дг­ЄжЁп y1 ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
end;
if 4*x1-x2>0 then
begin
y2:=(2*x1+5*x2)/ln(4*x1-x2);
writeln('y2=',y2);
end
else
begin
f:=1;
writeln('дг­ЄжЁп y2 ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
end;
if 5*x3-11>0 then
begin
y3:=ln(5*x3-11)+exp(12*x1+x4);
writeln('y3=',y3);
end
else
begin
f:=1;
writeln('дг­ЄжЁп y3 ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
end;
if 2*cos(x3)-sin(x4)>0 then
begin
y4:=(cos(x3)-5*sin(x4))/sqr(2*cos(x3)-sin(x4));
writeln('y4=',y4);
end
else
begin
f:=1;
writeln('дг­ЄжЁп y4 ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
end;
if (f=0) and ((y1+y2+y3+y4)>0) then
begin
z:=ln(y1+y2+y3+y4);
writeln('z=',z);
end
else
begin
writeln('дг­ЄжЁп z ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
end;
readln;
readln;
end.