Розробка та виконання програм на мові Pascal

function obch(t:real):real;

begin

if t>3 then obch:=exp(t)/ln(t) else

if t<-3 then obch:=exp(a)+a*b else obch:=sin(t)/cos(t)+sqrt(a*b+b);

end;

begin

clrscr;

t:=t1;

y:=obch(t);

writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);

t:=t2;

y:=obch(t);

writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);

t:=t3;

y:=obch(t);

writeln('при t=',t:7:3,' вiдповiдь : ',y:7:3);

end.

Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :

______________________________________________________________________________

при t= -4.500 вiдповiдь : 18.500

при t= 0.001 вiдповiдь : 3.226

при t= 4.300 вiдповiдь : 50.527______________________________________________________________________________

Задача 3:

program zanattia3_variant1;

uses crt;