Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы по численным методам / Численные методы / Численные методы / числ / Program1
.pas program mat ;
var
a: array [1..40,1..40] of real;
b,x: array [1..40] of real ;
i,j,r,count: integer;
f: boolean;
beg: integer;
t: real ;
s: text;
s1: file of real;
begin
assign(s,'mas.txt');
reset(s);
for i:=1 to 40 do
begin
for j:=1 to 40 do
read(s,a[i,j]);
read(s,b[i])
end;
close(s) ;
{for i:=1 to 40 do
for j:=1 to 40 do
writeln(a[i,j]);
for i:=1 to 40 do
writeln(b[i]); }
begin
t:=a[1,1];
for i:=1 to 40 do
begin
a[1,i]:=a[1,i]/t;
writeln(a[1,i]);
for i:=1 to 40 do
begin
for j:=1 to 40 do
a[i,j]:=a[i,j]-a[i,1]*a[1,j];
writeln(a[i,j]);
end;
end ;
//j:=2;
//r:=round(sqrt(i));
{ while f and (j<=r) do
if i mod j = 0 then f:=false
else j:=j+1;
if f then
begin
write(i,' ');
Inc(count);
if count mod 5 = 0 then writeln; }
end;
writeln;
end.
var
a: array [1..40,1..40] of real;
b,x: array [1..40] of real ;
i,j,r,count: integer;
f: boolean;
beg: integer;
t: real ;
s: text;
s1: file of real;
begin
assign(s,'mas.txt');
reset(s);
for i:=1 to 40 do
begin
for j:=1 to 40 do
read(s,a[i,j]);
read(s,b[i])
end;
close(s) ;
{for i:=1 to 40 do
for j:=1 to 40 do
writeln(a[i,j]);
for i:=1 to 40 do
writeln(b[i]); }
begin
t:=a[1,1];
for i:=1 to 40 do
begin
a[1,i]:=a[1,i]/t;
writeln(a[1,i]);
for i:=1 to 40 do
begin
for j:=1 to 40 do
a[i,j]:=a[i,j]-a[i,1]*a[1,j];
writeln(a[i,j]);
end;
end ;
//j:=2;
//r:=round(sqrt(i));
{ while f and (j<=r) do
if i mod j = 0 then f:=false
else j:=j+1;
if f then
begin
write(i,' ');
Inc(count);
if count mod 5 = 0 then writeln; }
end;
writeln;
end.