inserimento matrici

esci algebraturbo.htm

Program matri4;
(* inserimento e stampa matrice valori interi *)
(* possibile indicare numero righe e colonne *)

uses crt;
const righe=8;colonne=8;

var mat:array[1..righe,1..colonne] of integer;
r,c,rx,cx:integer;

begin
write('scrivi numero righe matrice:massimo 8 :');readln(rx);
write('scrivi numero colonne matrice:massimo 8 :');readln(cx);
writeln('scrivi valori interi per la matrice:ENTER dopo ogni valore');
writeln;
for r:=1 to rx do
begin
for c:=1 to cx do
begin
write('riga ',r,' colonna ',c,' valore = ');
readln(mat[r,c]);end;
end;
writeln;writeln('premi ENTER');readln;clrscr;
writeln('stampo la matrice inserita ');writeln;
for r:=1 to rx do
begin
for c:=1 to cx do
begin
write(mat[r,c]:5);
end;
writeln;
end;
writeln;writeln;
writeln('chiama insegnante per verificare e valutare ');readln;readln;
end.