Ir ao conteúdo
  • Cadastre-se

JackaLoko

Membro Júnior
  • Posts

    5
  • Cadastrado em

  • Última visita

posts postados por JackaLoko

  1. Boa noite pessoal, venho aqui pedir a ajuda de vocês em mais um problema .

     

    wmi895.jpg

     

     

    Este é o problema que preciso resolver galera, segue abaixo o código que fiz até o momento :

    Program produtos ;	var	codigo : array [1..5] of integer;	produto : array [1..5] of string;	preco : array [1..5] of real;	x, op : integer;	Begin			for x := 1 to 5 do 				Begin        	writeln('Digite o Codigo do ', x , ' produto' );        	readln(codigo[x]);                	writeln('Digite o Nome do ', x , ' produto' );        	readln(produto[x]);                	writeln('Digite o Preço do ', x , ' produto' );        	readln(preco[x]);        end;       			 writeln('Código : ',codigo[1]);			 writeln('Nome Do Produto : ',produto[1]);			 writeln('Preço : ',preco[1]);			 writeln();			 			 writeln('Código : ',codigo[2]);			 writeln('Nome Do Produto : ',produto[2]);			 writeln('Preço : ',preco[2]);			 writeln();			 			 writeln('Código : ',codigo[3]);			 writeln('Nome Do Produto : ',produto[3]);			 writeln('Preço : ',preco[3]);			 writeln();			 			 writeln('Código : ',codigo[4]);			 writeln('Nome Do Produto : ',produto[4]);			 writeln('Preço : ',preco[4]);			 writeln();			 			 writeln('Código : ',codigo[5]);			 writeln('Nome Do Produto : ',produto[5]);			 writeln('Preço : ',preco[5]);			 writeln();                    writeln('Digite a opção desejada:');     writeln('1 - Concretizar Venda ');     writeln('2 - Sair ');		 readln(op);				if ( op = 1 ) then begin		 writeln('');		end;    				if ( op = 2 )then begin		 exit;		end;		   End.

    Preciso continuar a parte de quando concretizar a venda ele me mostrar os produtos e dependendo do código selecionado ele busca o preço e multiplica pela quantidade vendida.

     

    Se alguém tiver uma sugestão de como fazer ficarei muito grato .

  2. Pra mostrar o maior valor você teria que mudar uns trechos:

    for i := 1 to 10 doBegin    writeln('Digite o ', i , ' valor para ser armazenado no PIRMEIRO vetor');    readln(vetor1[i]);   end;for i := 1 to 10 doBegin    writeln('Digite o ', i , ' valor para ser armazenado no SEGUNDO vetor');    readln(vetor2[i]);end;for i := 1 to 10 doBegin      vetor3[i] := vetor1[i] + vetor2[i]; end;//crie uma variável "maior" no início do programafor i := 1 to 10 doBegin    if i == 1 then        maior := vetor3[i]    else if vetor[i] > maior then        maior := vetor3[i];end;for i := 1 to 10 doBegin    writeln('TERCEIRO vetor: ', vetor3[i]);   end;writeln('MAIOR numero do TERCEIRO vetor: ', maior);   

     

    Com este code não obtive êxito Math, estou usando o Pzim para programar e está dando erro em algumas sintaxes e fui modificar e a saída não ficou perfeita ...

     

    Olha como eu fiz, mas não está dando certo.

     

    Program tresvetores ; var vetor1:array[1..10] of integer; var vetor2:array[1..10] of integer; var vetor3:array[1..10] of integer; var i, maior : integer;Beginfor i := 1 to 4 doBegin    writeln('Digite o ', i , ' valor para ser armazenado no PIRMEIRO vetor');    readln(vetor1[i]);   end; for i := 1 to 4 doBegin    writeln('Digite o ', i , ' valor para ser armazenado no SEGUNDO vetor');    readln(vetor2[i]);end; for i := 1 to 4 doBegin      vetor3[i] := vetor1[i] + vetor2[i]; end; //crie uma variável "maior" no início do programafor i := 1 to 4 doBegin    if ( i = 1 ) then begin        maior := vetor3[i]                 end;     if vetor3[i] > maior then begin        maior := vetor3[i];        endend; for i := 1 to 10 doBegin    writeln('TERCEIRO vetor: ', vetor3[i]);   end; writeln('MAIOR numero do TERCEIRO vetor: ', maior);   End.
  3.  

    Teste isso:

    for i := 1 to 10 doBegin    writeln('Digite o ', i , ' valor para ser armazenado no PIRMEIRO vetor');    readln(vetor1[i]);   end;for i := 1 to 10 doBegin    writeln('Digite o ', i , ' valor para ser armazenado no SEGUNDO vetor');    readln(vetor2[i]);end;for i := 1 to 10 doBegin      vetor3[i] := vetor1[i] + vetor2[i]; end;for i := 1 to 10 doBegin    writeln('TERCEIRO vetor: ', vetor3[i]);   end;

     

    Olá Math, olha ficou legal essa forma que você me mandou ai, se não for pedir de mais você poderia me ajudar a escrever apenas o maior valor do vetor3 ? 

  4. Não entendi a dúvida.

    Aparentemente está certo. (Tirando que seu FOR só tem 4 posições e os vetores são de 10 posições).

    Só falta você exibir o vetor3 (depois do END do faço FOR).

    O normal seria alimentar primeiro o vetor 1, depois alimentar o vetor 2, depois somar, depois mostrar vetor 3.

    Você está alimentando os 2 vetores ao mesmo tempo.

     

    Olá Math , então a questão é esta : 

     

    Preciso de um programa que : Leia dois vetores de 10 posições, e alimente um terceiro vetor com a soma dos dois primeiros vetores, em seguida mostre qual o maior valor do terceiro vetor.

     

    No caso ali tem 4 posições apenas para testar.

     

    Deste jeito que eu fiz o vetor3 está recebendo apenas a soma dos dois ultimos valores digitados, exemplo : o usuário digitou : 10,20,30,40,50,60,70,80 o vetor3 está recebendo apenas 70+80 ... eu preciso que some a cada dois valores digitados e me mostre o maior valor do vetor3.

  5. Primeiramente boa noite a todos(as), sou novo no fórum pois estou iniciando agora o baracharelado em sistemas de informação e como não poderia faltar já temos alguns exercícios, até então estava indo tranquilo porém pela falta de material na facul eu estou com dificuldades nesta atividade, se alguém puder ajudar ficarei agradecido .
     
    Preciso de um programa que : Leia dois vetores de 10 posições, e alimente um terceiro vetor com a soma dos dois primeiros vetores, em seguida mostre qual o maior valor do terceiro vetor.
     
    * Minha dificuldade está em armazenar os valores sem sobrescrever, pois eu só consegui até o momento pegar os dois últimos valores somados.
     
    Meu código até o momento. ( ME DESCULPEM QUALQUER ERRO OK ? )
     

    Program tresvetores ; var   vetor1:array[1..10] of integer;  vetor2:array[1..10] of integer;  vetor3:array[1..10] of integer; i, aux : integer;Beginfor i := 1 to 4 doBegin    writeln('Digite o ', i , ' valor para ser armazenado no PIRMEIRO vetor');    readln(vetor1[i]);        writeln('Digite o ', i , ' valor para ser armazenado no SEGUNDO vetor');    readln(vetor2[i]);       vetor3[i] := vetor1[i] + vetor2[i];       end;          End.

     
     
    Me ajudem por favor galera ?  Lembrando , PASCALZIM .
     
     
    Obrigado desde já pessoal !!!!!!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!