Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:asd / корзина / лекции по TP / Lecture_Pascal / graph / LAB1
.PAS Program Lab;
uses Crt;
var x,y,u:real;
begin
ClrScr;
Write('‚ўҐ¤ЁвҐ x (x<>2) :');
Readln(x);
if x<=-2 then begin
Write('‚ўҐ¤ЁвҐ г (y<>0) :');
Readln(y);
if y<>0 then begin
u:=ln(sqrt(exp(x))+exp(abs(y)+ln(2)))/y;
Writeln('u=',u:5:2)
end
else Writeln('ЏаЁ y=0 дгЄжЁп Ґ ®ЇаҐ¤Ґ«Ґ !')
end
else if x<1.5 then begin
u:=sin(x-2)+sqr(cos(x-1));
Writeln('u=',u:5:2)
end
else if x<>2 then begin
u:=2*sin(sqr(x)-6*x)/(sqr(x)-2*x);
Writeln('u=',u:5:2)
end
else
Writeln('ЏаЁ x=2 дгЄжЁп Ґ ®ЇаҐ¤Ґ«Ґ !');
end.
uses Crt;
var x,y,u:real;
begin
ClrScr;
Write('‚ўҐ¤ЁвҐ x (x<>2) :');
Readln(x);
if x<=-2 then begin
Write('‚ўҐ¤ЁвҐ г (y<>0) :');
Readln(y);
if y<>0 then begin
u:=ln(sqrt(exp(x))+exp(abs(y)+ln(2)))/y;
Writeln('u=',u:5:2)
end
else Writeln('ЏаЁ y=0 дгЄжЁп Ґ ®ЇаҐ¤Ґ«Ґ !')
end
else if x<1.5 then begin
u:=sin(x-2)+sqr(cos(x-1));
Writeln('u=',u:5:2)
end
else if x<>2 then begin
u:=2*sin(sqr(x)-6*x)/(sqr(x)-2*x);
Writeln('u=',u:5:2)
end
else
Writeln('ЏаЁ x=2 дгЄжЁп Ґ ®ЇаҐ¤Ґ«Ґ !');
end.
Соседние файлы в папке graph