46740 (607927), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

Додаток А

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

Program MGVS;

{$N+}

Uses crt;

Const size = 60;

type

TMatrix=array[1..size, 1.. size] of double;

VAR lm,Tsr,d,Vs,Vn:double;

l,n,m,i,j,MaxN,MaxM: integer;

A:TMatrix;

FRez:text;

fname:string;

function deg(x:real;y:integer):double;

begin

deg:=Exp(Ln(x)*y);

end;

function fac(x:byte):real;

var i:integer;

rez:real;

begin

rez:=1;

for i:=1 to x do rez:= rez * i;

fac:=rez;

end;

function Pr(p_lm,p_Tsr,p_d,p_Vs,p_Vn:real; p_l,p_n,p_m:byte):double;

var P1,P2,p3,p4,p5:double;

i:Integer;

Begin

P1:=deg(p_Tsr*p_lm, p_n+p_l*p_m) / ( deg(p_n,p_l*p_m) * fac(p_n) );

p3:=0;

for i:=1 to n do p3:=p3+( deg(p_Tsr*p_lm,i)/(fac(i) ) );

p4:=deg(p_Tsr*p_lm,p_n+1)/( p_n*fac(p_n) ) ;

p5:= ( 1 - deg((p_Tsr*p_lm)/n ,p_l*p_m) ) / (1- ((p_Tsr*p_lm)/n) );

P2:=1/(1+p3+p4*p5);

Pr:=(p_d*p_lm)*(1-P1*P2)-(p_Vs*p_n)-(p_Vn*p_m);

end;

BEGIN

ClrScr;

Write('Vvedite fail rezultatov: '); Readln(Fname);

assign(frez,Fname);

Rewrite(frez);

Write('Enter lm = ');readln(lm);

Write('Enter Tsr = ');readln(Tsr);

Write('Enter d = ');readln(d);

Write('Enter Vs = ');readln(Vs);

Write('Enter Vn = ');readln(Vn);

Write('Enter l = ');readln(l);

Write('Enter max n = ');readln(n);

Write('Enter max m = ');readln(m);

for i:=1 to n do

for j:=1 to m do A[i,j]:=Pr(lm,Tsr,d,Vs,Vn,l,i,j);

for i:=1 to n do

for j:=1 to m-1 do IF(A[i,j]

ClrScr;

Write(frez,'n\m');

for i:=1 to m do Write(frez,' | ',i,' | ');

for i:=1 to n do

Begin

Writeln(frez);

Write(frez,i,' ');

for j:=1 to m do

Begin

IF(A[i,j]>0)THEN Write(frez,' | ',A[i,j]:0:2)

ELSE Write(frez,' | ubitok');

end;

end;

Writeln(frez);

write('Rezultat v faile ',fname);

readln;

Close(frez);

END.

Додаток Б

Результати програми:

n\k | 1 | 2 | 3 | 4 | 5 | 6 | 7 | | 8 | 9 | 10 |

1 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

2 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

3 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

4 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

5 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

6 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

7 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

8 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

9 | 126.00 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

10 | 415.05 | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok | ubitok

11 | 523.00 | 497.91 | 464.62 | 421.43 | 365.25 | 291.99 | 196.28 | 71.07 | ubitok | ubitok

12 | 563.23 | 575.66 | 581.51 | 583.87 | 584.32 | 583.72 | 582.53 | 581.02 | 579.34 | 577.55

13 | 576.87 | 584.80 | 585.31 | 584.00 | 582.25 | 580.39 | 578.50 | 576.60 | 574.70 | 572.80

14 | 579.68 | 582.48 | 581.13 | 579.29 | 577.40 | 575.50 | 573.60 | 571.70 | 569.80 | 567.90

15 | 577.97 | 578.07 | 576.29 | 574.40 | 572.50 | 570.60 | 568.70 | 566.80 | 564.90 | 563.00

16 | 574.37 | 573.27 | 571.40 | 569.50 | 567.60 | 565.70 | 563.80 | 561.90 | 560.00 | 558.10

Характеристики

Список файлов курсовой работы