ajuda comando while_calculadora

JUnior Ferrarezi · 31 de julho de 2012

Boa tarde novamente !!! Gostaria da ajuda do forum para que me ajudem a enetender e funcionar corretamente este codigo - calculadora de multiplicação e divisão.Antes de postar aqui ja tentei varias possibilidades,compila mas nao aparece nada na tela.Obrigado.


program calculadora_comando_while;

{$APPTYPE CONSOLE}

uses
  SysUtils;

               var result:real;
               continuar:string;
               escolha:char;
               n1,n2:integer;

begin
     continuar:='sim';

     while continuar ='sim' do;

     begin
     writeln('Digite m para mult ou d para div');
     readln(escolha);
     writeln('Digite o 1º numero');
     readln(n1);
     writeln('Digite o 2º numero');
     readln(n2);

     if escolha = 'm' then
     begin
     result:= n1 * n2;
     End

     Else if escolha = 'd' then
     begin
     result:= n1 / n2;
     End;

     begin
     writeln('O resultado e:',result:2:2);
     writeln('Deseja realizar outra multiplicação ou divisão ? Escreva sim ou nao');
     readln;
     End;

     End;




End.

Simon Viegas · 31 de julho de 2012

Olá JUnior Ferrarezi

Boa tarde novamente !!! Gostaria da ajuda do forum para que me ajudem a enetender e funcionar corretamente este codigo - calculadora de multiplicação e divisão.Antes de postar aqui ja tentei varias possibilidades,compila mas nao aparece nada na tela.Obrigado.
program calculadora_comando_while;

{$APPTYPE CONSOLE}

uses
SysUtils;

var result:real;
continuar:string;
escolha:char;
n1,n2:integer;

begin
continuar:='sim';

while continuar ='sim' do;

begin
writeln('Digite m para mult ou d para div');
readln(escolha);
writeln('Digite o 1º numero');
readln(n1);
writeln('Digite o 2º numero');
readln(n2);

if escolha = 'm' then
begin
result:= n1 * n2;
End

Else if escolha = 'd' then
begin
result:= n1 / n2;
End;

begin
writeln('O resultado e:',result:2:2);
writeln('Deseja realizar outra multiplicação ou divisão ? Escreva sim ou nao');
readln;
End;

End;

End.

Seu código comentado e "corrigido".

[color=#0000ff]program[/color] calculadora_comando_while[color=#000000];[/color]
[color=#008000]{$APPTYPE CONSOLE}[/color]
[color=#0000ff]uses[/color]
  SysUtils[color=#000000];[/color]
[color=#0000ff]var[/color]
  result[color=#000000]:[/color][color=#0000ff]real[/color][color=#000000];[/color]
  continuar[color=#000000]:[/color][color=#0000ff]string[/color][color=#000000];[/color]
  escolha[color=#000000]:[/color][color=#0000ff]char[/color][color=#000000];[/color]
  n1[color=#000000],[/color]n2[color=#000000]:[/color][color=#0000ff]integer[/color][color=#000000];[/color]
[color=#0000ff]BEGIN[/color]
continuar[color=#000000]:=[/color][color=#a31515]'sim'[/color][color=#000000];[/color]
[color=#008000]{while continuar ='sim' do;}[/color] [color=#008000]//depois do "do", não tem ";"[/color]
[color=#0000ff]while[/color] continuar [color=#000000]=[/color][color=#a31515]'sim'[/color] [color=#0000ff]do[/color]
  [color=#0000ff]begin[/color]
  [color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Digite m para multiplicar ou d para dividir'[/color][color=#000000]);[/color]
  [color=#ff0080]readln[/color][color=#000000]([/color]escolha[color=#000000]);[/color]
  [color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Digite o 1o numero'[/color][color=#000000]);[/color]
  [color=#ff0080]readln[/color][color=#000000]([/color]n1[color=#000000]);[/color]
  [color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Digite o 2o numero'[/color][color=#000000]);[/color]
  [color=#ff0080]readln[/color][color=#000000]([/color]n2[color=#000000]);[/color]
  [color=#0000ff]if[/color] escolha [color=#000000]=[/color] [color=#a31515]'m'[/color] [color=#0000ff]then[/color]
    [color=#0000ff]begin[/color]
    result[color=#000000]:=[/color] n1 [color=#000000]*[/color] n2[color=#000000];[/color]
    [color=#0000ff]end[/color]
  [color=#0000ff]else[/color]
    [color=#0000ff]if[/color] escolha [color=#000000]=[/color] [color=#a31515]'d'[/color] [color=#0000ff]then[/color]
      [color=#0000ff]begin[/color]
      result[color=#000000]:=[/color]n1[color=#000000]/[/color] n2[color=#000000];[/color]
      [color=#0000ff]end[/color][color=#000000];[/color]
  [color=#008000]{begin}[/color] [color=#008000]//esse begin não deveria existir, já que não está vinculado a nada[/color]
  [color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'O resultado e:'[/color][color=#000000],[/color]result[color=#000000]:[/color][color=#ff8000]2[/color][color=#000000]:[/color][color=#ff8000]2[/color][color=#000000]);[/color]
  [color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Deseja realizar outra multiplicação ou divisão ? Escreva sim ou nao'[/color][color=#000000]);[/color]
  [color=#008000]{readln;}[/color]
  [color=#ff0080]readln[/color][color=#000000]([/color]continuar[color=#000000]);[/color] [color=#008000]//faltou ler a variável[/color]
  [color=#008000]{End;}[/color]
  [color=#0000ff]end[/color][color=#000000];[/color]
[color=#0000ff]END[/color][color=#000000].[/color]

No aguardo

Abraços.

JUnior Ferrarezi · 2 de agosto de 2012

Novamente valeu pelo suporte Simon !!!! Estou fazendo um curso de logica mas o suporte dos professores é horrível.Tento fazer os exercicios varias vezes para conseguir rodar o programa corretamente antes de postar minha duvida aqui no forum.Os dois comentarios que citou corrigiu o erro do código.Valeu.Obrigado pelas dicas.