Текст програми. var a, b, c, cos1, cos2, cos3:real;

Program funktion;

uses crt;

var a, b, c, cos1, cos2, cos3:real;

function truk (a, b, c:real):real; {fynkcija dlja perevirku, chu isnyje trukytnuk}

begin

if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then

writeln ('trukytnuk z takumu storonamu isnyje') else writeln ('takogo trukytnuka ne isnyje');

end;

function rivnost(a, b, c:real):real;

begin {fynkcija dlja perevirku, chu trukytnuk rivnostoronnij}

if (a=b) and (a=c) and (b=c) then

writeln ('trukytnuk rivnostoronnij');

end;

function rivnobedr(a, b, c:real):real;

begin

if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then

begin {fynkcija dlja perevirku, chu trukytnuk rivnobedrenuj}

if (a=b) or (b=c) or (c=a) then

writeln ('trukytnuk rivnobedrenuj');

end;

end;

function kytu(a, b, c:real):real;

begin

if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then

begin

cos1:=((a*a-b*b-c*c)/(-2*b*c)); {fynkcija dlja perevirku, chu truk. gostrokytnij, chu typokytnij}

cos2:=(b*b-c*c-a*a)/(-2*a*c);

cos3:=(c*c-a*a-b*b)/(-2*a*b);

if (cos1<0) or (cos2<0) or (cos3<0) then

writeln ('trukytnuk typokytnij')

else if (cos1=0) or (cos2=0) or (cos3=0) then writeln ('trukytnuk prjamokytnij') else writeln ('truk. gostrokytnij');

end;

end;

begin

TEXTCOLOR (0);

TEXTBACKGROUND(10);

clrscr;

writeln ('vvedit tru chusla');

readln (a, b, c);

truk(a, b, c);

if (a>0) and (b>0) and (c>0) then

begin

rivnost(a, b, c);

rivnobedr(a, b, c);

kytu(a, b, c);

end;

readkey;

readln

end.

Апробація

1) vvedit tru chusla

1 2 3

takogo trukytnuka ne isnyje

2) vvedit tru chusla

5 3 4

Trukytnuk z takumu storonamu isnyje

Trukytnuk prjamokytnij

3) vvedit tru chusla

-5 3 -5

takogo trukytnuka ne isnyje

4) vvedit tru chusla

8 5 8

Trukytnuk z takumu storonamu isnyje

Trukytnuk ivnobedrenuj

Truk. gostrokytnij

Завдання № 6

тема завдання

Постановка задачі

Розкласти функцію y =sh(x) у ряд Тейлора та написати рекурсивну функцію для обчислення її значення у точці x ₀>0 з точністю e=0.0001.

Опис алгоритму

Текст текст текст

Текст програми

Program a6;

USES CRT;

const E=0.0001;

var y,x,x0,f:real; n,i:integer;

function ex(x0,x:real;n:integer):real; {rekyrsia, yaka ob4uslue n-uu dodanok}

Begin

CLRSCR; {exp(x) za formylou Teulora}

if n=0 then ex:=exp(x0)

else ex:=ex(x0,x,n-1)*(x-x0)/n;

end;

Begin

writeln('vvedit x i x0 (x>x0)');

read(x,x0);

n:=0; y:=exp(x0); {znahodumo nomer elementa,po4unau4u z yakogo zna4ennia<E}

while y>=E do begin

n:=n+1;

y:=y*(x-x0)/n;

end;

y:=0;

for i:=0 to n do

y:=y+(ex(x0,x,i)-ex(-x0,-x,i))/2; Readln; {rozpus za formylou Teulora}

writeln('za formylou Teulora sh(x)=',y);

f:=(exp(x)-exp(-x))/2;

writeln('f=(exp(x)-exp(-x))/2=',f);

REPEAT UNTIL KEYPRESSED;

Readln;

end.

Апробація

1) vvedit x I x0 (x>x0)

6 3 – вводимо дані

Za formyloy Tejlora sh(x)=2.0171315300E+02

F=(exp(x)-exo(-x))/2= 2.0171315737E+02

2) vvedit x I x0 (x>x0)

7 0 – вводимо дані

Za formyloy Tejlora sh(x)=5.4831611686E+02

F=(exp(x)-exo(-x))/2= 5.4831612327E+02

3) vvedit x I x0 (x>x0)

8 2 – вводимо дані

Za formyloy Tejlora sh(x)=1.4904788258E+03

F=(exp(x)-exo(-x))/2= 1.4904788258E+03

Завдання № 7

тема завдання

Дата добавления: 2015-07-17