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

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

______________________________________________________________________________

program zanattia3_variant2;

uses crt;

const

a=-2.3;

b=-8;

t1=-4.5;

t2=1.2e-3;

t3=4.3;

var

y,t:real;