1 Востаннє редагувалося urbancheg (24.12.2012 18:45:43)

Тема: Допоможіть КПІ-шнику))))

Ось як таке робити??

Post's attachments

Screen shot 2012-12-24 at 17.10.53.png 138.39 kb, 93 downloads since 2012-12-24 

Re: Допоможіть КПІ-шнику))))

Ну і що наш юний КПІ-шник встииг накодити ?

3

Re: Допоможіть КПІ-шнику))))

Unit  Mymodul;
interface
uses crt;
const n=6;
var
    X: array [1..n]      of real;
    A: array [1..n,1..n] of real;
implementation
function getA(i,j:integer):real;
 begin
   getA:=2-8.11*i*i+100*j*sin(i);
 end;

procedure outA;
var i,j:integer;
 begin
   for i:=1 to n do
   begin
     write('| ');
     for j:=1 to n do
       begin
         A[i,j]:=getA(i,j);
         write(A[i,j]:6:2,' ');
         if (i=1) then write(' ');
         if (i<>n) then write(' ');
         if (i=2) and (j=4) then write ('  ');
         if (i=2) and (j=6) then write (' ');;
       end;
       writeln('|');
       writeln('|','|':56);
   end;
 end;

Procedure outX;
Var i,j:integer;
begin
write('(');
for i:=1 to n-1 do
begin
X[i]:= a[i,n-i+1];
write(' ',X[i]:6:2,' ');;
end;
X[n]:=0;
for j:=1 to n-1 do
for i:=1 to j-1 do
x[n]:=x[n]+a[i,j];
writeln(X[n]:6:2,' )');
write(')');
end;

Procedure outX2;
Var i,j:integer;
begin
write('( ');
for i:=n downto 3 do
begin
x[i]:=(x[i]+x[i-1]+x[i-2])/3;
write(' ',x[i]:6:2,' ');
end;
end;


begin
 clrscr;
 writeln('MATRIX A:':33);
 outA;
 writeln;
 writeln('VECTOR X:':33);
 outX;
 writeln;
 writeln('VECTOR X2':33);
 outX2;
 readln
end.

4

Re: Допоможіть КПІ-шнику))))

Начебто усе нормально. Залишилося тільки прибрати глобальні змінні, і додати процедурам параметри.