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.