Паскаль. Деление матриц. Немогу запустить программу!!!

[Stilet]

Что ти слышал но толком не помню!!!!

А здря....

все равно выводит шо то не то!!!!!

Ну прикинь: у тебя цикл от 1 до cola но cola равна 0, значит второй внутренний цикл ниразу не выполнится, соответственно ничего и не выводится.

Проверяй где у тебя обнуляется cola, почему она у тебя равна 0.

[metamfetamin]

Cola обнуляется где то пред етими циклами........или после етих циклов........бо я шо то сижу и вообще не могу вкурить что к чему!!!!

[Stilet]

Явно что перед.

[metamfetamin]

Сообщение от Stilet

Проверяй где у тебя обнуляется cola, почему она у тебя равна 0.

Люди помогите прога выводит что то не то, сидел 3 дня, немогу понять!!!!
Stilet сказал что где то обнуляется cola в етой (code)части листинга а где я вообще немогу сообразить. Помогите пожалуста!!!!

Program Labor2; uses crt;
const size=16;
var
A,A4:text;
B,B4:text;
f:text;
MatrA:array[1..size, 1..size] of integer;
MatrB:array[1..size,1..size] of integer;
TempMatr:array[1..size,1..size] of integer;
A1:array[1..size,1..size] of integer;
A0:array[1..size,1..size] of integer;
A2:array[1..size,1..size] of integer;
A3:array[1..size,1..size] of integer;
B1:array[1..size,1..size] of integer;
BO:array[1..7,1..7] of integer;
B2:array[1..7,1..7] of integer;
B3:array[1..7,1..7] of integer;
C1:array[1..7,1..7] of integer;
C2:array[1..7,1..7] of integer;
C21:array[1..7,1..7] of integer;
C22:array[1..7,1..7] of integer;
C3:array[1..7,1..7] of integer;
C4:array[1..7,1..7] of integer;
i, j , k, x, y, rowa, cola, rowb, colb, sumcl, sumc2, rozbivAX, rozbivAY,
rozbivBX,rozbivBY:integer;

procedure ReadAB;
Begin
Assign(A, 'A.txt');
Reset(A);
Assign(B,'B.txt');
Reset(B); {init file}
Readln(A);
Read(A,rowa);
Readln(A);
Read(A,cola);
Readln(A);
Read(A,rozbivAX);
Readln(A);
Read(A,rozbivAY);
Readln(A);

{Chtenye MatrixA iz fila}
For i:=1 to rowa do
Begin
For j:=1 to cola do
Read(A,matrA[i,j]);
Readln(A);
End;
Close(A);
Readln(B);
Read(B,rowb);
Readln(B);
Read(B,colb);
Readln(B) ;
Read(B,rozbivBX);
Readln(B);
Read(B,rozbivBY);
Readln(B) ;
Readln(B);

{Chtenye Matrix B iz fila}
For i:=1 to rowb do
Begin
For j:=1 to colb do
Read(B,matrB[i,j]);
 Readln(B);
End;
Close(B);
end;

procedure writeMatrA;
Begin
assign(f,'A.txt');
reset(f);
writeln('Matrica A budet pazbita x= ',rozbivAX,'y= ',rozbivAY);

.......

writeln('Matrica A budet pazbita x= ',rozbivAX,'y= ',rozbivAY);

В етой строке должа выводится матрица А разбита следующим образом, но оно не выводит ничего кроме етой строки!!!!
Прогу я прикрепил!!!! И 2 матрицы тоже!!

[puporev]

Я так понимаю, что cola это у Вас количестство столбцов матрицы и прочитать это из файла нельзя, т.к. чтение идет по строкам. СolA определяется как количество чисел в строке, RowA - количество строк. Когда все подсчитаете, определите размерность матрицы. Дальше делайте необходимые преобразования. И вообще, разберитесь с задачей с самого начала, пошагово. После каждого шага осуществляйте контроль путем вывода на экран промежуточных итогов. Задача у Вас большая и никто кроме Вас в ней разбираться не будет.

[metamfetamin]

Подскажите какими должны быть елементы матрицы в текстовом файле (такими 0.1 или такими 1(целые))что б ниже приведенная программа их могла открыть????? И как в даном случае нужно вводить имя матрицы (что б оно его считывало с файла)????
Код прикрепил!!!

[puporev]

Не то я написал, не в этом дело.

[Stilet]

metamfetamin, У тебя переменная Cola в операторе Read(A,cola); обнуляется а вернее там ноль вычитывается в нее
т.е. первая строка файла должна содержать через пробел кол-во колонок и строк.

...
rewrite(f);
writeln('Matrica A budet pazbita x= ',rozbivAX,'y= ',rozbivAY);
...

Это как минимум...

[metamfetamin]

Сообщение от metamfetamin

Подскажите какими должны быть елементы матрицы в текстовом файле (такими 0.1 или такими 1(целые))что б ниже приведенная программа их могла открыть????? И как в даном случае нужно вводить имя матрицы (что б оно его считывало с файла)????
Код прикрепил!!!

Когда я просил подсказать какими должны быть елементы матрицы, я имел ввиду программу которая прикреплена ниже (совсем другая), а ни ту которую я выкладывал раньше!!!!!

[metamfetamin]

Короче есть прога делит матрицу на блоки. Матрицы использывающиеся в программе с сцелочисленными значениями, а мне нужно что бы значение в файлах были типа 0.2 0.3 и т.д. (показано ниже) У меня вопрос что нужно изменить в программе кроме масива с integer на real что бы прогрмма могла открыть файлы описаны ниже:
Файлы:
programma.txt (прога которую нужно исправить)
matrix.txt (матрицы с целочисленными значениями которую я использую)
mx.txt (матрицы кторые мне нужно открыть в етой проге)
Программу и те матрицы которые я использывал в программе с целочисленными значениями прикрепил ниже!!!!!

Что касается исправлений!
Короче изменил описание переменных масив описал как real:
Вот так былодля целочисленных)

program umblok;
uses crt;
type mas=array[1..7,1..7] of integer;
var
m,n,k,i,j,p,s,r,l,l1,kk,w,g,t,SA11,SA12,SA21,SA22,SB11,SB12,SB21,SB22:integer;
a,b,c,d:mas;
A11,A12,A21,A22,B11,B12,B21,B22:mas;
z1,z2:boolean;
c01,c02,c03,c04,c05,c06,c07,c08:mas;
c11,c12,c21,c22:mas;
t1:text;
name1:string;

Вот так стало после моей поправки под те числа которые надо мне:

program umblok;
uses crt;
type mas=array[1..7,1..7] of real;
var
l1,kk,w,g,t,SA11,SA12,SA21,SA22,SB11,SB12,SB21,SB22:real;
s,r,l,p,i,j,m,n,k:integer;
a,b,c,d:mas;
A11,A12,A21,A22,B11,B12,B21,B22:mas;
z1,z2:boolean;
c01,c02,c03,c04,c05,c06,c07,c08:mas;
c11,c12,c21,c22:mas;
t1:text;

Но мне выдает ошибку в процедуре умножения

...
procedure umnog(X,Y:mas;mx,kx,nx:integer;var Z:mas);
begin
  for i:=1 to mx do
   for j:=1 to kx do
    begin
     s:=0;
     for p:=1 to nx do
      s:=s+X[i,p]*Y[p,j];
     z[i,j]:=s;
    end;
end;
...

в строке s:=s+X[i,p]*Y[p,j]; type mismatch