11 replies to this topic

[Luke]

Galera...

escrevi um code pra somar o valor de duas matrizes....
mas não estou conseguindo fazer o code rodar....

dah os seguintes erros:

matriz~2.pas(23,34) Error: Illegal qualifier
matriz~2.pas(23,36) Error: Illegal qualifier
matriz~2.pas(24,42) Error: Illegal qualifier
matriz~2.pas(24,44) Error: Illegal qualifier
matriz~2.pas(32) Fatal: There were 4 errors compiling module, stopping

o code é esse:

program somaMatrizes;
	uses crt;
	const 
	n=2;
	m=3;
var
m1,m2:Array[1..n,1..m]of integer;
m3,i,j: integer;


begin

for i:=1 to n do
	begin
	for j:=1 to m do
		begin
			 writeln('entre com m1:[',i,'][',j,']');
			 read(m1 [i][j]);
			 begin
			 writeln('entre com m2[',i,'][',j,']');
			 read(m2[i][j]);
							  begin
							  m3[i,j]:=m1[i,j]+ m2[i,j];
							  writeln(m3[i,j]:3);
							  end;
							  writeln;
			 end;
		end;
	end;
end.

o que tem de errado?!?!

[S4ur0N]

A variável "m3" estava definida como integer, sendo que era usada como matriz. E na linha da escrita da matriz você usou " " em vez de ' '. Agora tá ei em baixo ele funcionando. E não achei muito bom esse seu esquema de soma, seria muito melhor se você lêsse as duas matrizes antes e escrevesse ela toda na tela de uma vez no fim.

program somaMatrizes;
	uses crt;
	const
	n=2;
	m=3;
var
m1,m2,m3:Array[1..n,1..m]of integer;
i,j: integer;


begin

for i:=1 to n do
	begin
	for j:=1 to m do
		begin
			 writeln('entre com m1:[',i,'][',j,']');
			 read(m1 [i][j]);
			 begin
			 writeln('entre com m2[',i,'][',j,']');
			 read(m2[i][j]);
							  begin
							  m3[i,j]:=m1[i,j]+ m2[i,j];
							  writeln('m3[',i,',',j,']');
							  end;
							  writeln;
			 end;
		end;
	end;
end.

[Ernesto Oleques]

Soma duas matrizes, A e B, porem elas devem ter o mesmo tamanho:

Program soma_de_matrizes; 
Var matrizA: array [1..50,1..50] of integer; 
	matrizB: array [1..50,1..50] of integer; 
	matrizAB: array [1..50,1..50] of integer; 
	lin1, col1, lin2, col2, i, j, k: integer; 
Begin 
	 writeln; writeln('--------  SOMA DE MATRIZES  --------');	  
	 writeln;
	 writeln; write('Digite o numero de linhas da primeira matriz: '); 
	 readln(lin1);	 
	write('Digite o numero de colunas da primeira matriz: '); 
	readln(col1);	
	writeln; write('Digite o numero de linhas da segunda matriz: '); 
	readln(lin2);	
	write('Digite o numero de colunas da segunda matriz: '); 
	readln(col2);	  
	 writeln;		
	 writeln('Escreva os elementos da matriz A: ');	  
	 for i:=1 to lin1 do begin
		   for j:=1 to col1 do begin 
			   write('a',i,j,': '); 
			   read(matrizA[i,j]); 
		   end;
		  writeln;
	 end;	  
	  writeln; writeln('Escreva os elementos da matriz B: ');	  
	  for i:=1 to lin2 do begin 
		  for j:=1 to col2 do begin 
			   write('b',i,j,': '); 
			   read(matrizB[i,j]);
		  end;
		 writeln; 
	  end;	   
	  for i:=1 to lin1 do begin 
		  for j:=1 to col2 do begin
			   matrizAB[i,j]:=0;  
				matrizAB[i,j]:=matrizA[i,j]+matrizB[i,j];
		  end; 
	  end; 
	  writeln; writeln('A matriz A+B :'); 
	  for i:=1 to lin1 do begin 
		  for j:=1 to col2 do begin
		   write('ab',i,j,': ', matrizAB[i,j],' '); 
		  end;
		 writeln;
	 end; 
End.

by Ernesto

Edição feita por: Ernesto Oleques, 04/10/2006, 18:03.

[RonsisM]

Eli Lilly Cialis 20mg cialis Ampicillin For Dogs Overnight Delivery Trecator Sibusat
Xenical Buy 60mg Uk Amoxil Avant Stockage Reconstitue cialis Viagra Avec Ou Sans Prescription Feline Dosage For Amoxicillin Amoxicillin Tendon Pain
Provera Medicine In Us Cash Delivery viagra cialis Buy Cheap Cialis Site
Sale Original Propecia cialis buy accutane online canada Amoxicilline Clavulanate Potassium Tablets Kamagra Ajanta Uk

[Miguceamma]

Motilium Without Prescription Cheap Seroquel No Prescription generic cialis Canadian Drugstores

[HaroNism]

Discount Cephalexin 500 Mg Pharmacy Rx By Crystal Zamudio Secure Generic Stendra Cod Only Worldwide Mastercard buy viagra online Order Alli Buy. Amytryptline Levitra Generika Strips
Cialis A Buon Prezzo Progesterone Purchasing Discount Cash On Delivery viagra online pharmacy Cialis Moins Cher Paris Kamagra Oral Jelly Amazon

[Miguceamma]

Tadalafil Prix Phenergan cheap cialis Acticin 30gm Website Keflex Decrease Milk Priligy Seguridad Social

[RonsisM]

Comprar Cialis Rapido viagra Dapoxetine Price Kamagra Aus Deutschland Bestellen
Cialis Nebenwirkungen Durchfall Cialis Cost Per Pill Usa Propecia viagra Viagra On Canadian Pharmacy
Cialis Packungsgro?En levitra canada Gta
Cialis Generico Postepay viagra Tamoxifen Citrate For Sale Chyavanaprasha Viagra En Ligne Ou Acheter

[RonsisM]

Cialis E Levitra Forum generic cialis 8ahr0cdovlzixni4xnz Problemi Propecia Propecia Fertilita
Zithromax Where To Buy Viagra Per Cuore Buy Azithromycin No Prescription viagra online prescription Bulgaria Buy Viagra Viagra Serve La Ricetta
Diflucan Over The Counter Alternative Overnight Pharmacy Online Amoxil No Prescription cialis price Genuine Cialis Brand From Europe
Propecia Traductor Propranolol Tablets Buy Online Uk Todo Sobre El Viagra viagra Buy Zithromax Ireland

[RonsisM]

Pharmacy In Canada Buy Azithromycin Online Overnight cialis price Discount Drugs Of Canada

[RonsisM]

Acquistare Kamagra In Francia Viagra 100 Wiki Levitra Cost online pharmacy Amoxicillin With Clavulanic Acid Priligy En Quito
Keflex Not Work generic viagra Priligy User Review Alcohol And Amoxicillin
Kamagra Generique Toradol Over Night vardenafil india bay Prezzo Cialis In Italia Viagra No Prescription Online
Zithromax Rosacea Amoxicillin Order From Canada viagra online prescription Kamagra What Is It Viacom Orlistat Diet Pill Viagra Super Active 3 8 Day Shipping