Главная страница
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.051 c
2-1275032909
12
2010-05-28 11:48
2010.08.27
Откуда то происходит beep, при закрытии формы. Не надо его.


2-1268980449
tippa
2010-03-19 09:34
2010.08.27
как лучше огранизовать лог программы


2-1270734164
Pavel
2010-04-08 17:42
2010.08.27
Проблема с кодировкой


2-1274083814
Сид
2010-05-17 12:10
2010.08.27
TDBLookupComboBox для редактирования поля


15-1268049903
Дмитрий С
2010-03-08 15:05
2010.08.27
Храниение картинок/фотографий в базе.