joaoz1404

@KXSY porém quando o usuário digitar qualquer outro número, como 6 , 7 , 8 e etc, a operação vai continuar , qual instrução eu poderia usar.

Muito obrigado, realmente não consegui pensar na parte final do programa.

Estou tentando resolver um exercício de algoritmo que pede para fazer uma calculadora com o uso do comando While, porém meu código está apresentando alguns problemas e não estou conseguindo encontrar o erro. program calculadora; var n1,n2,resultado: real; op: string; begin while op <> '5' do begin writeln('1-adição'); writeln('2-subtração'); writeln('3-divisão'); writeln('4-multiplicação'); writeln('5-sair'); writeln('Escolha uma opção de 1 a 5'); readln(op); writeln('Valor 1: '); readln(n1); writeln('Valor 2: '); readln(n2); //soma if (op='1') then resultado:= n1+n2 //subtração else if (op='2') then resultado:= n1-n2 // divisão else if (op='3') then resultado:= n1/n2 //multiplicação else if (op='4') then resultado:= n1*n2 ; //resultado writeln('resultado: ', resultado:0:2); writeln('Escolha uma opção de 1 a 5'); readln(op); end; end.

@devair1010 Agora funcionou. Aquele último end (com ponto e vírgula no final), indica que o programa em geral terminou? E o End (com ponto final)?

Estou resolvendo um exercício que pede para fazer um programa de fidelidade. Quando executo o programa aparece erro sintático não esperado. Program fidelidade ; uses CRT; var livro: integer; Begin writeln('Informe a quantidade de livros comprado.: '); readln(livro); case livro of 0: begin writeln('Ele ganhará 0 pontos'); readln; end; 1: begin writeln('Ele ganhará 5 pontos'); readln; end; 2: begin writeln('Ele ganhará 15 pontos'); end; 3: begin writeln('Ele ganhará 30 pontos'); end; 4 ..100: begin writeln('Ele ganhará 60 pontos'); end; End.