inserimento matrici

esci algebraturbo.htm

Program matri6;
(* inserimento e stampa valori interi o reali per matrice *)
(* righe e colonne assegnabili con input *)

uses crt;
const righe=8;colonne=8;
var mat:array[1..righe,1..colonne] of real;
contarighe,contacolonne,rx,cx: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
write('indica numero righe matrice:massimo 8 :');readln(rx);
write('indica numero colonne matrice :massimo 8 :');readln(cx);
writeln('scrivi valori interi per la matrice:ENTER dopo ogni valore');
writeln('se valori reali,massimo cifre intere e decimali:6 ');
writeln;
for contarighe:=1 to rx do
begin
for contacolonne:=1 to cx 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 rx do
begin
for contacolonne:=1 to cx do
begin
write(mat[contarighe,contacolonne]:10:2);
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.