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

end.

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

______________________________________________________________________________

Вiдповiдь : -34.54943 при а=-6, в=6.4, с=8.85

______________________________________________________________________________

Задача 2:

program zanattia3_variant1;

uses crt;

const

a=-2.3;

b=-8;

t1=-4.5;

t2=1.2e-3;

t3=4.3;

var

y,t:real;

function obch(t:real):real;

begin

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

if t<-3 then obch:=exp(a)+a*b;

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

end;

begin

clrscr;

t:=t1;