7/25/2019 Scrieti Un Program Pascal Care Realizeaza Urmatoarele Prelucrari

1/5

Scrieti un program Pascal care realizeaza urmatoarele prelucrari :

- calculeaza suma, diferenta, produsul a doua matrici ;

- determina maximul elementelor unei matrici, folosind proceduri si

functii . (Se va folosi tehnica "meniului" )

PROGRAM matr;{Autor Monica Vladoiu}USES crt;TYPE matrice=ARRAY [1..5,1..5] OFreal;...sir=STRING [3];

VAR

...m,n,p:integer; {aria!ile de intrare = dimensiunimatrici}...a,!, {aria!ile de intrare = matricile de prelucrat}...s:matrice; {aria!ila de iesire = matricea re"ultat}...ma#:real; {aria!ila de iesire = ma#imul elementelormatricei}...c,c$:c$ar; {aria!ile de stare = caractere decontrol}

PROCEDURE citire%m&m,n:integer;VAR a:matrice;s:sir';{procedura de citire a unei matrici}

VAR i,(:integer;BEGIN

...)riteln&* initiali"are matrice *';

...FOR i:=1 TO m DO

......FOR (:=1 TO n DO

......BEGIN

.........)rite&s,i,(,*=*';

.........read&a[i,(]';

.........)riteln......ENDEND; {s+arsit procedura citire%m}

PROCEDURE a+isare%m&m,n:integer;p:matrice';{procedura de a+isare unei matrici}

VAR i,(:integer;

7/25/2019 Scrieti Un Program Pascal Care Realizeaza Urmatoarele Prelucrari

2/5

BEGIN

...)riteln&* matrice re"ultat: *';

...FORi:=1 TOm DO

...BEGIN

......FOR (:=1 TO n DO

.........)rite&* *,p[i,(]:1:3';

......)riteln

...ENDEND; {s+arsit procedura a+isare%m}

PROCEDURE suma%m&m,n:integer;a,!:matrice;VAR s:matrice';{procedura pentru suma a doua matrici}

VAR i,(:integer;

BEGIN...FOR i:=1 TO m DO......FOR (:=1 TO n DO.........s[i,(]:=a[i,(]-![i,(]END; {s+arsit procedura suma%m}

PROCEDURE di+erenta%m&m,n:integer;a,!:matrice;VAR s:matrice';{procedura pentru di+erenta a doua matrici}

VAR i,(:integer;

BEGIN

...FOR i:=1 TO m DO

......FOR (:=1 TO n DO

.........s[i,(]:=a[i,(]![i,(]END; {s+arsit procedura di+erenta%m}

PROCEDURE produs%m&m,n,p:integer;a,!:matrice;VAR s:matrice';{ procedura pentru produsul a doua matrici }

VAR

i,(,/:integer;BEGIN...FOR i:=1 TO m DO......FOR(:=1 TO p DO......BEGIN.........s[i,(]:=;.........FOR /:=1 TO n DO

7/25/2019 Scrieti Un Program Pascal Care Realizeaza Urmatoarele Prelucrari

3/5

............s[i,(]:=s[i,(]-a[i,/]0![/,(]

......ENDEND; {s+arsit procedura produs}

FUNCTION ma#%matrice&m,n:integer;a:matrice':real;{+unctia pentru determinarea ma#imului elementelor uneimatrici}

VAR i,(:integer;...ma#:real;BEGIN

...ma#:=a[1,1];

...FOR i:=1 TO m DO

......FOR(:=1 TO n DO

.........IF ma# a[i,(] THEN ma#:=a[i,(];

......ma#%matrice:=ma#END; {s+arsit +unctie ma#%matrice}

BEGIN {programprincipal}...clrscr;...)rite&*doriti sa ramineti 2 [4n] *'; c$:=read/e;)riteln;...WHILE c$ = ** DO...BEGIN......)riteln&* - adunare 4 scadere 4 0 produs 4

ma#im *';......c:=read/e;......CASE c of........*-* :.........BEGIN............)rite&*6ntroduceti m n *'; read&m,n';)riteln;............citire%m&m,n,a,*a*';............citire%m&m,n,!,*!*';............IF&m7' and&n7' THEN............BEGIN...............suma%m&m,n,a,!,s';...............a+isare%m&m,n,s'............END............ELSE )riteln&*matrice ine#istenta 8 *'.........END;

7/25/2019 Scrieti Un Program Pascal Care Realizeaza Urmatoarele Prelucrari

4/5

........** :

.........BEGIN

............)rite&*6ntroduceti m n *'; read&m,n';)riteln;............citire%m&m,n,a,*a*';............citire%m&m,n,!,*!*';............IF &m7' and&n7' THEN............BEGIN...............di+erenta%m&m,n,a,!,s';...............a+isare%m&m,n,s'............END............ELSE )riteln&* matrice ine#istenta 8*'.........END;........*0* :

.........BEGIN............)rite&*6ntroduceti m n p *'; read&m,n,p';)riteln;............citire%m&m,n,a,*a*';............citire%m&n,p,!,*!*';............IF &m7' and&n7' THEN............BEGIN...............produs%m&m,n,p,a,!,s';...............a+isare%m&m,p,s'............END

............ELSE )riteln&* matrice ine#istenta 8*'

.........END;

........** :

.........BEGIN

............)rite&*6ntroduceti m n *'; read&m,n';)riteln;............citire%m&m,n,a,*a*';............IF &m 7 ' and&n 7 ' THEN............BEGIN...............ma#:=ma#%matrice&m,n,a';...............)riteln&*ma# este :*,ma#:1:9'............END............ELSE )riteln&* matrice ine#istenta 8 *'.........END........ELSE )riteln&* caracter inalid 8*'......END;

7/25/2019 Scrieti Un Program Pascal Care Realizeaza Urmatoarele Prelucrari

5/5

......)rite&*doriti continuarea 2 [4n] *';c$:=read/e; )riteln...ENDEND. {matr}