Jump to content


Photo

Soma De Matrizes No Pascal


  • Faça o login para participar
11 replies to this topic

#1 Luke

Luke

    O Que Sei É Que Nada Sei

  • Usuários
  • 304 posts
  • Sexo:Não informado
  • Localidade:Bsb

Posted 13/09/2006, 11:21

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?!?!
######################
"A humanidade está perdendo seus maiores gênios... Aristóteles faleceu, Newton bateu as botas, Einstein morreu, e eu não tô passando muito bem hoje... "

#2 Nebert

Nebert
  • Visitantes

Posted 28/09/2006, 11:31

Amigo o problema esta com seu m3, se vc for querer que ele seja uma matriz vc tem que declarar ele como uma matriz.
Ou arrumar seu writeln da soma...
E como se trata de Integer, vc não precisa explicar a forma com que vai aparecer..se fosse real ai sim vc colocaria m3:3;



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"]");
							  end;
							  writeln;
			 end;
		end;
	end;
end.

o que tem de errado?!?!
[/quote]

#3 S4ur0N

S4ur0N

    Ainda Normal

  • Usuários
  • 274 posts
  • Sexo:Não informado
  • Localidade:Blumenau - SC

Posted 29/09/2006, 23:09

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.

©2009 - Todos os direitos reservados.

#4 Ernesto Oleques

Ernesto Oleques

    Novato no fórum

  • Usuários
  • 2 posts
  • Sexo:Não informado

Posted 04/10/2006, 17:56

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.


#5 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 25/09/2017, 22:10

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

#6 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 01/10/2017, 06:41

Motilium Without Prescription Cheap Seroquel No Prescription generic cialis Canadian Drugstores

#7 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 07/10/2017, 02:35

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

#8 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 09/10/2017, 03:12

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

#9 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 25/10/2017, 05:54

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

#10 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 06/11/2017, 00:30

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

#11 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 17/11/2017, 16:40

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

#12 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 29/11/2017, 03:28

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




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq