Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

ошибка при выводе матрицы на экран   Найти похожие ветки 

← →
yagluboko ©   (2010-05-18 02:43) [0]

Пожалуйста, помогите найти ошибку- программа должна читать матрицу и вектор из файла, а затем выводить их на экран, у меня же она вместо реальных элементов выводит нули.

program QR;

{$APPTYPE CONSOLE}

uses
 SysUtils;

type
 TMatrix = array [1..5, 1..5] of real;
 TVector = array [1..5] of real;

var
 fm, fv: TextFile;

procedure InputFromFile (var dim: integer; A: TMatrix; B: TVector);
var
 i, j: integer;
begin
 AssignFile (fm, "Ìàòðèöà À.txt");
 AssignFile (fv, "Âåêòîð b.txt");
 Reset (fm);
 Reset (fv);
 dim := 0;
 i := 1;
 j := 0;
 while not Eof(fm) do
 begin
   while not EOln(fm) do
   begin
     inc(j);
     read (fm, A[i,j]);
   end;
   inc(i);
   inc(dim);
   readln (fm);
 end;
 for i := 1 to dim do
 begin
   read (fv, B[i]);
   readln (fv);
 end;
 Close (fm);
 Close (fv);
end;

procedure PrintMatrix (dim: integer; var A: TMatrix);
var
 i, j: integer;
begin
 for i := 1 to dim do
 begin
   for j := 1 to dim do
     write (A[i,j]:7:3, " ");
   writeln;
 end;
end;

procedure PrintVector (dim: integer; var B: TVector);
var
 i: integer;
begin
 for i := 1 to dim do
 begin
   write (B[i]:7:3, " ");
   writeln;
 end;
end;

var
 A: TMatrix;
 B: TVector;
 dim: integer;

begin
 InputFromFile (dim, A, B);
 writeln ("Matrix A");
 writeln;
 PrintMatrix (dim, A);
 writeln;
 writeln ("--------------------------------------------------------------------------------");
 writeln ("Vector B");
 writeln;
 PrintVector (dim, B);
 readln;
end.


---

← →
Пылкий   (2010-05-18 04:15) [1]

http://jpgme.ru/0/932473203.jpg такого типа?

---

← →
12 ©   (2010-05-18 09:14) [2]

procedure InputFromFile (var dim: integer; A: TMatrix; B: TVector);
var
i, j: integer;
begin
AssignFile (fm, "Ìàòðèöà À.txt");
AssignFile (fv, "Âåêòîð b.txt");
Reset (fm);
Reset (fv);
dim := 0;
i := 1;
j := 0;
while not Eof(fm) do
begin
  while not EOln(fm) do
  begin
    inc(j);
    read (fm, A[i,j]);

Чему равно считываемое?

---

Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.058 c