F�rum Duvidas com logica de estrutura de repeti��o #524104

25/06/2015

ola gente precisaria de uma ajuda, estou fazendo question�rio do meu t�cnico mas n�o consegui por mim ter a logica.

1- Em delphi mostrar na tela os n�meros �mpares entre 100 e 1000 em ordem inversa (999, 997, ..., 101).
2 - leia 100 n�meros digitados pelo usu�rio e, no final, apresente o maior e o menor valor fornecido, sem utilizar vetores ou arrays

So poderia usar estrutura de repeti��o, tentei fazer mas no final dava errado, e precisaria de uma ajuda quem pudesse ajudar, estou tendo dificuldade, se pudessem me dar uma luz eu agrade�o muito

Lucas Ascencio

Curtir t�pico

+ 0

Responder

Post mais votado

26/06/2015

2 - leia 100 n�meros digitados pelo usu�rio e, no final, apresente o maior e o menor valor fornecido, sem utilizar vetores ou arrays

Uma vari�vel para guardar o maior valor digitado ( inicializada com zero )
Uma vari�vel para guardar o menor valor digitado ( inicializada com zero )

Um loop para suportar a entrada dos 100 n�meros digitados ( 100 !!! )
Em cada itera��o do loop fa�a
 Se o numero digitado � maior que a variavel com o maior numero digitado
 Ent�o, atualiza a variavel do maior valor digitado com o valor corrente

 Se o numero digitado � menor que a variavel com o menor numero digitado
 Ent�o, atualiza a variavel do menor valor digitado com o valor corrente

Na sa�da do loop voc� ter�, nas duas vari�veis de controle, o maior e o menor valor digitado.

Marcos P

Responder

Gostei + 1

Mais Posts

26/06/2015

Lucas Ascencio

A 1 eu consegui resolver, mas a segunda nao consigo ver uma forma que nao utilize vetor ou arrays.
PS: aprendi somente com vetor e array, utilizando loop nao consigui de forma alguma chegar perto.

Responder

Gostei + 0

26/06/2015

Lucas Ascencio

blz, vlw, vo tentar aqui

Responder

Gostei + 0

26/06/2015

Rafael Mota

Acho que ficaria +ou - assim:

var
  lcvMenor,
  lcvMaior,
  lcvContador: Integer;
  lcvNumero  : string;
begin
  lcvContador := 1;
  if( InputQuery('N�MERO','Informe um n�mero',lcvNumero) ) then
  begin
    lcvMaior := StrToInt(lcvNumero);
    lcvMenor := StrToInt(lcvNumero);
    lcvNumero := '';
  end;
  while lcvContador < 100 do
  begin
    if( InputQuery('N�MERO','Informe um n�mero',lcvNumero) ) then
    begin
      if( StrToInt(lcvNumero) > lcvMaior ) then
        lcvMaior := StrToInt(lcvNumero);
      if( StrToInt(lcvNumero) < lcvMenor  ) then
        lcvMenor := StrToInt(lcvNumero);
      lcvNumero := '';
      inc(lcvContador);
    end;
  end;
  ShowMessage('Maior = ' + IntToStr(lcvMaior));
  ShowMessage('Menor = ' + IntToStr(lcvMenor));
end;

Responder

Gostei + 1

26/06/2015

Lucas Ascencio

Marcos obrigado pela ajuda, sua logica me ajudou a ter uma visao melhor, tentei fazer aqui mas deu tudo errado, ao analisar o seu codigo mota me ajudou a esclarecer que eu estava me esquecendo de utilizar o Inc.... :/
Agrade�o os dois, apesar de ser uma logica b�sica, se agente nao exercita a logica agente esquece, como aconteceu comigo hahaha

Responder

Gostei + 0