| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ошибка при выводе матрицы на экран [D7]

yagluboko ©   (2010-05-18 02:43:00) 

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

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.


---

12   (2010-05-18 09:14:00) [1]

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]);

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

---

Пылкий   (2010-05-18 04:15:00) [2]

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

---

Наверх