Skip to content

Информатика №5

Август 24, 2010

2. ПРИЛОЖЕНИЯ

2.1 Листинг программы

PROGRAM Stepan;

VAR i,c,k,l,n:integer;

x1,x2,x3,a,stp,fak:real;

F,new_m:array [1..3,0..9] of real;

Lin_m:array [0..29] of real;

P:array [1..3] of real;

max,min,vrem:real;

FRez:string;

REZU:text;

BEGIN {Основная программа}

writeln (‘Vvedite isxodnie dannie:’);

write (‘X1 = ‘); readln(x1);

write (‘X2 = ‘); readln(x2);

write (‘X3 = ‘); readln(x3);

P[1]:=x1; P[2]:=x2; P[3]:=x3;

F[1,0]:=1;

F[2,0]:=1;

F[3,0]:=1;

FOR i:=1 TO 3 DO begin

n:=0;

fak:=1;

WHILE n<9 DO

BEGIN

n:=n+1;

stp:=(exp((2*n)*ln(P[i])));

fak:=fak*(2*n)*(2*n-1);

F[i,n]:=F[i,n-1]+(stp/fak);

END;

END;

writeln;

{Вывод значения десятого члена ряда,

соответствующего гиперболическому косинусу}

writeln (‘Znachenija hiperbolicheskogo kosinysa:’);

writeln (‘ch(‘,X1:3:1,’) = ‘,F[1,n]:6:3);

writeln (‘ch(‘,X2:3:1,’) = ‘,F[2,n]:6:3);

writeln (‘ch(‘,X3:3:1,’) = ‘,F[3,n]:6:3);

writeln (‘Dlja prodoljenia najmite ENTER’);

readln;

{Поиск максимального и минимального значения}

max:=F[1,0];

min:=F[1,0];

for i:=1 to 3 do

for k:=0 to 9 do

begin

if F[i,k]>max then max:=F[i,k];

if F[i,k]<min then min:=F[i,k];

end;

WriteLn(‘Maksimalniu element massiva = ‘,max:6:3);

WriteLn(‘Minimalniu element massiva = ‘,min:6:3);

readln;

l:=1;

for i:=1 to 3 do

for k:=0 to 9 do

begin

Lin_m[l]:=F[i,k];

l:=l+1;

end;

for i:=0 to 29 do

for k:=i+1 to 30 do

if(lin_m[i]>lin_m[k]) then

begin

vrem:=lin_m[i];

lin_m[i]:=lin_m[k];

lin_m[k]:=vrem;

end;

l:=1;

for i:=1 to 3 do

for k:=0 to 9 do

begin

new_M[i,k]:=lin_m[l];

l:=l+1;

end;

writeln (‘Vvedite imja faila dlja sohranenija rezyltatov:’);

readln (FRez);

assign (REZU,FRez+’.txt’);

rewrite (REZU);

WriteLn(‘Originalnaja matrica:’);

for i:=1 to 3 do

begin

for k:=0 to 9 do begin

Write(F[i,k]:6:4,’ ‘);

Write(REZU,F[i,k]:8:4,’ ‘); end;

WriteLn;

WriteLn(REZU);

end;

close(REZU);

WriteLn;

WriteLn(‘Sortirovanaja matrica:’);

for i:=1 to 3 do

begin

for k:=0 to 9 do

Write(new_m[i,k]:6:4,’ ‘);

WriteLn;

end;

readln;

END.

No comments yet

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: