[PASCAL] Czyt/Zap Plików - Macierze

[Tur! 0]

Witam wszystkim mam mały problem z Pascalem.

 

Mamy napisać program który pobiera macierze z plików tekstowych, wymnaża, tworząc trzecią i zapisuje ją do pliku tekstowego.

 

Wszystko niby jest dobrze, czyta, mnoży, zapisuje, ale wychodzą jakieś głupie liczby, za każdym razem wychodzą takie same bzdury, nie mam na to już sił, może wy coś pomożecie?

Z góry dziękuje za pomoc.

 

KOD PROGRAMU:

Program ZADANIE7;
Uses CRT;
{================================================================= DEKLARACJE}
const
 n=3;
type
 MAC_A=array[1..n,1..n] of integer;
 MAC_B=array[1..n,1..n] of integer;
 MAC_C=array[1..n,1..n] of integer;
{=================================================================== PROC/FUN}
Procedure CZYTAJ_A(Nazwa_pliku:string);
var i,j:word;
 plik:text;
 liczba:integer;
 tA:MAC_A;
Begin
 assign(plik,Nazwa_pliku);
 reset(plik);
 writeln('WCZYTANA MACIERZ A WYGLADA NASTEPUJACO:');
 While not eof(plik) do
  for i:=1 to n do
Begin
 writeln;
 for j:=1 to n do
  Begin
   readln(plik,liczba);
   tA[i,j]:=liczba;
   write(tA[i,j]:6);
  End;
End;
 close(plik);writeln;writeln;
End;

Procedure CZYTAJ_B(Nazwa_pliku:string);
var i,j:word;
 plik:text;
 liczba:integer;
 tB:MAC_B;
Begin
 assign(plik,Nazwa_pliku);
 reset(plik);
 writeln('WCZYTANA MACIERZ B WYGLADA NASTEPUJACO:');
 While not eof(plik) do
  for i:=1 to n do
Begin
 writeln;
 for j:=1 to n do
  Begin
   readln(plik,liczba);
   tB[i,j]:=liczba;
   write(tB[i,j]:6);
  End;
End;
 close(plik);writeln;writeln;
End;


Procedure STWORZ_C(Nazwa_pliku:string);
var i,j,k:word;
 plik:text;
 tA:MAC_A; tB:MAC_B; tC:MAC_C;
Begin
 assign(plik,Nazwa_pliku);
 rewrite(plik);
 writeln('ZAPISANA MACIERZ C WYGLADA NASTEPUJACO:');
 for i:=1 to n do
  Begin
writeln;
for j:=1 to n do
 Begin
  tC[i,j]:=0;
  for k:=1 to n do
   tC[i,j]:=tC[i,j]+tA[i,k]*tB[k,j];
  writeln(plik,tC[i,j]);
  write(tC[i,j]:6);
 End;
  End;
 close(plik);
End;
{====================================================================== TRESC}
Begin
CLRSCR;
writeln('**************************** ZAD7 ********************************');
writeln;

CZYTAJ_A('A.txt');
CZYTAJ_B('B.txt');
STWORZ_C('C.txt');

ReadKey;
End.

 

 

ZAWARTOSC PLIKU 'A.txt':

1
0
2
0
2
2
0
4
0

 

 

ZAWARTOSC PLIKU 'B.txt':

1
2
3
4
5
6
7
8
9

 

A OTO ZAWARTOSC TWORZONEGO PLIKU 'C.txt':

30038
30223
-28097
29565
-5125
9340
-31520
24959
-18761

 

Jak widzicie wychodzą same bzudry

 

Będę wdzięczny za pomoc.

[Agnes 6]

Usuń capsa z tytułu tematu, proszę.

[Tur! 0]

Przepraszam, za długo już w tym Pascalu siedzę

/Poprawione

[januzi 24]

var 
...
 tA:MAC_A; tB:MAC_B; tC:MAC_C;

 

mnozysz elementy, ktore nie istnieja

[Tur! 0]

Są zadeklarowane w zmiennych globalnych, na samym początku:

type
 MAC_A=array[1..n,1..n] of integer;
 MAC_B=array[1..n,1..n] of integer;
 MAC_C=array[1..n,1..n] of integer;

[januzi 24]

to tylko typ, dzialasz na zmiennych lokalnych, w ktorych NIE MA wartosci

[Tur! 0]

Czyli w procedurze muszę wywołać?

 

Procedure STWORZ_C(Nazwa_pliku:string,tA:MAC_A;tB:MAC_B;var tC:MAC_C);

 

O to chodzi?

 

Zaraz sprawdzę i napiszę.

 

/DODANE:

 

Oto zmiany które wprowadziłem:

{W zmiennych globalnych:}

var A:MAC_A;B:MAC_B;C:MAC_C;

{no i przy procedurach:}

...
Procedure CZYTAJ_A(Nazwa_pliku:string;var tA:MAC_A);
...
Procedure CZYTAJ_B(Nazwa_pliku:string;var tB:MAC_B);
...
Procedure STWORZ_C(Nazwa_pliku:string;tA:MAC_A;tB:MAC_B;var C:MAC_B);
...

 

i działa, bardzo dziękuje za pomoc.

Jeżeli jest możliwość, to czy mógłbym prosić o wytłumaczenie dlaczego wcześniej nie działało poprawie,

co prawda te tA,tB,tC, były w zmiennych lokalnych, ale odnosiły się do tablic deklarowanych w zmiennych globalnych.

[emes30 0]

Jeżeli jest możliwość, to czy mógłbym prosić o wytłumaczenie dlaczego wcześniej nie działało poprawie,

co prawda te tA,tB,tC, były w zmiennych lokalnych, ale odnosiły się do tablic deklarowanych w zmiennych globalnych.

Problem polega na tym, że nie deklarujesz nigdzie zmiennych globalnych tylko typy danych.

zamiast

type
 MAC_A=array[1..n,1..n] of integer;
 MAC_B=array[1..n,1..n] of integer;
 MAC_C=array[1..n,1..n] of integer;

powinno być tak

type
 MAC=array[1..n,1..n] of integer;

var
 tA, tB, tC : MAC;

 

i wyrzuć wszystkie deklaracje tA, tB i tC z procedur lokalnych.

Też powinno działać (chociaż nie sprawdzałem).