Comédia Tube
-
Posts
2 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por Comédia Tube
-
-
Eu fiz o meu dessa forma:
Fiz dessa maneira abaixo e já está funcionando, só preciso do FLUXOGRAMA. Posso até fazer um depósito na sua conta pela ajuda.
Segue o programa abaixo:Program Adivinhacao_UERJ ;varmenor,maior,metade,opcao : integer;Beginwriteln('Pense em um número no intervalo de 1 a 60');menor:=1;maior:= 60;repeatmetade:=(maior+menor)div 2;writeln('Por acaso o número é menor ou maior que ',metade,'?');writeln('Se o número for igual digite 1.');writeln('Se o número for maior digite 2.');writeln('Se o número for menor digite 3.');readln(opcao);if (opcao=2) then menor:=metade+1;if (opcao=3) then maior:=metade-1;if maior<=menor then beginmetade:=(maior+menor)div 2;opcao:=1;end;until (opcao=1);writeln('Seu número é ',metade,'!');End.
Douglas, na sala de aula você falou que usando o igual com o menor e o maior não teria como, mas se você parar pra ver, na linha onde tem "if (opção=2) then menor:=metade+1" continua tendo duas saídas. Se for verdadeiro, o menor vai ser igual a metade e vai voltar o metade =(maior+menor)div2 e se for falso vai para a opção 3. O igual, no caso a opção 1 está separado, por isso não haveria problema. É o que eu raciocinei.
E tipo, se o programa está funcionando normalmente, existe um fluxograma pra ele.
O fluxograma ficou do jeito que está no arquivo anexado, só que eu não sei se está certo. Gostaria da ajuda do SImon.
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
Preciso de ajuda com Pascal
em Programação - outros
Postado
kkkkkkk Po cara, esse professor ferrou a gente.
Valeu pela ajuda, Simon