esercitazione con pascal e matrici
Program matri2;
(* inserimento e stampa valori interi matrice *)
(* righe e colonne prefissate *)
uses crt;
const righe=6;colonne=4;
Program matri2; (* inserimento e stampa valori interi matrice *) (* righe e colonne prefissate *) uses crt; const righe=6;colonne=4; var mat:array[1..righe,1..colonne] of integer; r,c:integer; procedure pausa; begin writeln('premi ENTER ');readln; end; procedure cancella; begin clrscr; end; procedure fine; begin writeln('fine operazione:confermare :premi enter'); readln; end; procedure pro1; begin writeln('scrivi valori interi per la matrice:ENTER dopo ogni valore'); writeln; for r:=1 to righe do begin for c:=1 to colonne do begin write('riga ',r,' colonna ',c,' valore = '); readln(mat[r,c]);end; end; pausa;cancella; writeln('stampo la matrice inserita ');writeln; for r:=1 to righe do begin for c:=1 to colonne do begin write(mat[r,c]:5); end; writeln; end; writeln;writeln; end; procedure scelta; var s,sn:string;opzione:integer; begin clrscr; writeln('seleziona opzione per '); writeln('1...inserimento elementi per matrice '); writeln('9...fine '); writeln('scelta =');readln(opzione);cancella; case opzione of 1:pro1; 9:fine; end; writeln('chiama insegnante per verificare e valutare ');pausa;pausa; writeln('altra operazione?Esperimenti?:premi S...fine:premi N '); readln(sn); if ((sn='S') or (sn='s')) then scelta ; end; begin (* programma di lancio *) clrscr; scelta; end.