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

[metamfetamin]

Люди не могу запустить прогу. Пишет "file not open for input".
В программе использывается 2 матрицы А и B которые находятся в 2-ух отдельных файлах. (прикреплены). Должно происходить деление матриц с выделением нулевого блока!
Шаг 1.Вывод матриц А и В. Те что в файле!!!
Шаг 2 Разбиение и собственно вывод блоков матриц А и В после деления:

Что касается того как поделены матрицы то нужно делить их так что бы выделить максимально большой нулевой блок и матрицу нужно брать которая больше, соответственно ето матрица B. В матрице В я выделил максимально большой нулевой блок(так как показано) в соответствии с тем как поделина мтрица В, матрица А делится соответствующим образом (т.е. что б поделить матрицу А, нужно смотреть на матрицу В и делить ее (матрицу А) с соответствием матрицы В)......потому что в дальнейшем мне нужно будет нахождить результирующую матрицу С которая будет получена в результате перемножения соответствующих блоков А и В.

Шаг 3. Вывод матрицы С полученой в результате перемножения блоков матриц А и В за следующим алшоритмом.
Так как во втором шаге, только для матрицы С.

Прогу тоже прикрепил, так как при вставлении в Код пишет что слишком много символов!!!!

[Stilet]

))) Дык смотри что ты творишь:

........................
Assign(f, 'A.txt'); <- Мы создали файловую переменку f
Reset(f);            <- Открыли на чтение f
Assign(f,'B.txt');   <- Тут же переинициалили ее на другой файл (Ужос!!!)
Reset(f); {init file}
Readln(A);           <- А теперь пытаемся читать из файла А, который ну нигде не открыт
Read(A,rowa);
Readln(A);
Read(A,cola);
Readln(A);
Read(A,rozbivAX);
Readln(A);
Read(A,rozbivAY);
Readln(A);
.....................

Нуна примерно так, ну учитавя что я смысл твоего кода не совсем понял

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

[metamfetamin]

Должно получится примерно слудующее:
Сначала Вывод то что в файлах Матрицы А и В.
А потом такое:

Блок А1                                                    Блок А0
0.2     0.3         0.       0.                            0.         0.
0.4	 0.        0.5      1.7	                           0.	      0.

Блок A2                                                    Блок А3
 0.     2.3	    0.      7.3                            0.9        0.
 0.	 0.        3.7       0.                            4.1	      0.
 0.	 0.	    0.      8.4	                            0.       6.1

B:
Блок B1                                          Блок B0
2.5    5.3	0.	 0.	0.	         0.	0.   
3.8	0.     0.2      1.4	0.	         0.	0.   
 0.    7.6	0.      3.9    9.7	         0.	0.   
 0.	0.     5.7       0.    6.8	         0.	0.   
 

Блок B2                                          Блок В3
0.	0.	0.      5.4	0.              6.5	0.   
0.	0.	0.       0.	0.	         0.    7.6

Ну что то пока не получается!!!!

[Stilet]

Ну что то пока не получается!!!!

Извини, а что должно получаться? (Чет туго думаю...)

[metamfetamin]

Ну вывод етих Censored блоков

[Stilet]

Ну дык а что получается?
Что выдает?

[metamfetamin]

Если исправлять по твоему т.е так:

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

то пишет file not found там где выделено красным!!!!

[puporev]

Возможно Ваши файлы А и В находятся не в папке TP\BIN, тогда нужно указать путь к ним. Вы столько бьетесь с этими файлами, что уже давно бы разобрались по любому учебнику.

[metamfetamin]

Все скинул В TP\BIN пишет invalid numeric format там красным помечено!!!!

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

Может у меня что то описано не правильно в VARe ?????

[puporev]

Мне кажется у Вас неправильно созданы входные файлы. Если Вы хотите читать из них числа, то числа должны быть записаны в допустимых форматах, с допустимыми разделителями и т.д.

106 Invalid numeric format (Неверный числовой формат).
Генерируется процедурами READ или READLN в случае, если числовое значение, считанное из текстового файла, не соответствует правильному числовому формату

Ну а VARе должны быть такие же форматы.
Вот прилагаю расшифровку ошибок по русски, раз уж сам не можешь найти.