Pascal, Детальна інформація
Pascal
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;
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;
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;
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;
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021