Составление программ для решения поставленных задач, страница 2

 

1.3.Текст программы:

Program Zad4a;

Var x,f,g,a,b,c,xgr:real;

Begin

Write('Vvedite a=');

Readln(a);

Write('Vvedite b=');

Readln(b);

Write('Vvedite c=');

Readln(c);

Write('a=',a:2:1,' b=',b:2:1,' c=',c:2:1);

Writeln;

Writeln('_____________________');

Writeln(' x       f       g ');

Writeln('_____________________');

xgr:=b+0.5*c;

x:=a;

repeat

f:=(2/100)*ln(x)/x;

g:=x/(x*x-4*x+5);

Writeln(x:2:1,f:10:5,g:7:3);

x:=x+c;

until x>xgr;

End.

1.4.Результаты выполнения программы. Вид печати:

a=1.2 b=2.2 c=0.2

_____________________

 x       f       g

_____________________

1.2   0.00304  0.732

1.4   0.00481  1.029

1.6   0.00588  1.379

1.8   0.00653  1.731

2.0   0.00693  2.000

2.2   0.00717  2.115

1.5.Проверка результатов в MS Excel.

	D	E	F
11	x	f	g
12	1,2	0,003039	0,731707
13	1,4	0,004807	1,029412
14	1,6	0,005875	1,37931
15	1,8	0,006531	1,730769
16	2	0,006931	2
17	2,2	0,007168	2,115385

x	f	g
1,2	=(2/100)*LN(D12)/D12	=D12/(D12*D12-4*D12+5)
1,4	=(2/100)*LN(D13)/D13	=D13/(D13*D13-4*D13+5)
1,6	=(2/100)*LN(D14)/D14	=D14/(D14*D14-4*D14+5)
1,8	=(2/100)*LN(D15)/D15	=D15/(D15*D15-4*D15+5)
2	=(2/100)*LN(D16)/D16	=D16/(D16*D16-4*D16+5)
2,2	=(2/100)*LN(D17)/D17	=D17/(D17*D17-4*D17+5)