Hallo,
ich möchte eine Klasse für Matrixoperationen
realisieren. Bei der Methode für die Eingabe über die Konsole
werden 2 Schleifen ausgeführt. Sobald
die erste Textausgabe ausgeführt wird,
wird die Schleife anscheined abgebrochen und das Programm verlassen.
Kann jemand den Fehler finden und erklären?
die eingabe-methode:
<pre>
procedure matrix.Read_cons();
var
i,j:integer;
begin
writeln('Eingabe der ' + string(m) + ' zu ' + string(n) + ' Matrix! ');
readln;
for i := 0 to m do
for j := 0 to n do begin
write('['+string(i+1)+','+string(j+1)+']: ');
readln(elem[i,j]);
end
end;
</pre>
Das Hauptprogramm
----------------------
<pre>
var
nn,nm:integer;
mat:matrix;
begin
writeln('m?');readln(nm);
writeln('n?');readln(nn);
mat := matrix.create(nm,nn);
mat.Read_cons;
mat.ausg_cons;
readln;
end.
</pre>
Thx Ralf
ich möchte eine Klasse für Matrixoperationen
realisieren. Bei der Methode für die Eingabe über die Konsole
werden 2 Schleifen ausgeführt. Sobald
die erste Textausgabe ausgeführt wird,
wird die Schleife anscheined abgebrochen und das Programm verlassen.
Kann jemand den Fehler finden und erklären?
die eingabe-methode:
<pre>
procedure matrix.Read_cons();
var
i,j:integer;
begin
writeln('Eingabe der ' + string(m) + ' zu ' + string(n) + ' Matrix! ');
readln;
for i := 0 to m do
for j := 0 to n do begin
write('['+string(i+1)+','+string(j+1)+']: ');
readln(elem[i,j]);
end
end;
</pre>
Das Hauptprogramm
----------------------
<pre>
var
nn,nm:integer;
mat:matrix;
begin
writeln('m?');readln(nm);
writeln('n?');readln(nn);
mat := matrix.create(nm,nn);
mat.Read_cons;
mat.ausg_cons;
readln;
end.
</pre>
Thx Ralf
Comment