esercitazione con matrici e turbo pascal
Program matri1; (* inserimento e stampa valori interi per matrice *) (* righe e colonne assegnate *) uses crt; const righe=6;colonne=4; var mat:array[1..righe,1..colonne] of integer; contarighe,contacolonne: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 contarighe:=1 to righe do begin for contacolonne:=1 to colonne do begin write('riga ',contarighe,' colonna ',contacolonne,' valore = '); readln(mat[contarighe,contacolonne]);end; end; pausa;cancella; writeln('stampo la matrice inserita ');writeln; for contarighe:=1 to righe do begin for contacolonne:=1 to colonne do begin write(mat[contarighe,contacolonne]: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.