Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.157 c
2-1272198220
rendall
2010-04-25 16:23
2010.08.27
сочетание клавиш в фоновом режиме


15-1273350599
Юрий
2010-05-09 00:29
2010.08.27
С днем рождения ! 9 мая 2010 воскресенье


4-1237551600
mreg
2009-03-20 15:20
2010.08.27
Как отловить вызов WinApi функции?


2-1267766469
lady
2010-03-05 08:21
2010.08.27
Как получить все вероятные значения Bin


3-1240748319
ford
2009-04-26 16:18
2010.08.27
список несуществующих записей