Pascal, Детальна інформація

l=10;

a=-6;

b=6.4;

c=8.85;

var

f:real;

begin

clrscr;

f:=(exp(a)+2*ln(b+c))/(arctan(b))+a*b;

gotoxy(k,l);

textcolor(2);

write('Вiдповiдь : ');

textcolor(3);

write(f:7:5);

textcolor(14);

write(' при а=-6, в=6.4, с=8.85');

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;