Rondondlr

Então, estou tentando aqui fazer com as duas opções de verdadeiro ou falso. Qualquer coisa eu posto aqui. Você pode estar certo com esse fluxograma também, porém eu ainda nao consegui raciocinar dessa forma (memoria de pentiunII! Rs).

Exatamente. Essa é a minha dúvida. Como fazer o pascal ler isso! Um grande abraço!

Apos ter feito isso tudo, o professor disse que podem existir duas possibilidades: sim ou nao. Nao posso fazer com essas minhas 3: maio, menor ou igual. Agora me enrolei todo. você sabe como eu poderia fazer? Mais uma vez agradeço

Desculpe, mas não entendi o que você falou. Sou muito ruim em programação e peço desculpas por não está entendendo de forma mais objetiva. Então, coloquei o 52 e acertei pelo programa já na 3 pergunta. Porque agora a lógica é a seguinte: O número é 30? l = se for menor do que 30, h = se for maior do que 30, c = se estiver correto então o 52 já aparece na 3 pergunta

Consegui fazer, porém há um erro, onde não consigo colocar upp para 'h' e low para 'l' Program GuessIt(input, output); var ok: boolean; resposta, low, upp: integer; res: char; begin writeln ('Pense em um número entre 1 e 60.'); writeln ('Pressione ENTER para começar'); readln; low := 1; upp := 60; repeat ok := false; resposta := ( ( upp - low ) div 2 ) + low; write ('O seu número é ',resposta:4, '?'); write (' Digite : ''l'' = não, ele é menor, ''h'' = não, ele é maior, ''c'' = correto: '); repeat readln (res); res := (res); until (res = 'c') or (res = 'l') or (res = 'h'); case res of 'l': upp := resposta; Aqui está o erro! 'h': low := resposta; Se eu trocar dá erro! else ok := true end; until ok; writeln ('Então seu número é: ', resposta:4); end.

Bom eu faria assim: Programa adivinhação de 1 - 60 (vamos imaginar que o usuário tenha escolhido 54, só para eu poder ser mais claro) 1 - O número é maior do que 30? (digite S ou N) Resp. S (como é maior do que 30 o único bloco que me interessa é o 31 - 60, agora só pegar a mediana) 2 - O número é maior do que 45? (digite S ou N) (da mesma forma pegarei apenas o bloco que me interessa) Resp. S 3 - O número é maior do que 53? (digite S ou N) (da mesma forma pego o que me interessa) Resp. S 4 - O numero é maior do que 57? (digite S ou N) (aqui a primeira resposta não para o numero escolhido) Resp. N 5 - O numero é maior do que 55 ? (digite S ou N) Resp. N 6 - O numero é maior do que 54? (digite S ou N) Resp. N Resultado: O número é 54 Isso é o que eu pensei para que apareça na tela do executável Agora na parte da criação do programa: Variáveis..... Begin Writeln ('Pense num número de 1 a 60'); Writeln ('1 - O número é maior do que 30?'); readln (S ou N) -> Não sei como escrever isso while (i >30) do -> Aqui entra a parte da mediana que não sei fazer no pascale por aí vai....Desculpe, mas realmente estou muito zerado. Já procurei até em sites estrangeiros, mas não estou conseguindo usar as semânticas. É o meu primeiro contato com Pascal e o professo já manda isso!rs. E eu nem vou usar isso mais, além desse período. Mas desde já agradeço a ajuda que esta me dando! Um grande abraço

Sim, a logica sempre será essa. Para mim isso esta resolvido. O problema é passar isso para o pascal. Ja que não sei os comandos para que isso possa ser lido no pascal.

Bom então: O professor passou essa lógica com menos numeros. porém conseguir acertar fazendo com todos os 60. A logica é a seguinte: Assim que o usuário escolhe um grupo dividido em 2 (1-30 ou 31-60). Nós novamente dividimos em 2 até acharmos o resultado. Infelizmente esse trabalho é em Pascal. Porém não tenho nocao de como fazer a parte da sitaxe para as duvidas que falei anteriormente. Um grande abraço e obrigado!

Preciso fazer um programa no pascal que adivinhe entre 1-60, o número que o usuário escolheu. Eu tenho a lógica toda montada. Foi feita por binário, pegando a média aritmética das partes: Escolha um número de 1 a 60 1 - É maior do que 30? (s/N) Aí terei que fazer com que o pascal tenham outras duas perguntas (uma caso o usuário escolha sim e outra caso ele escolha não). Se sim: 2 - É maior que 45 Se não: 2 - É maior do que 15 E assim até a sexta pergunta que me dará o resultado final. Porém não sei mexer com o pascal ao ponto de conseguir formular essas perguntas para o usuário. Quem puder me ajudar eu agradeço. Um grande Abraço