Este tópico ainda não tem respostas. Seja o primeiro a responder!

[junior ferrarezi]

Gostaria da ajuda do forum para rodar corretamente esse programa de calculadaora com o comando CASE utilizando as 4 operações matematicas. Utilizo o delphi 7 .Obrigado.

program Aula_5_exercicio_4;

{$APPTYPE CONSOLE}

uses
SysUtils;

var escolha:integer;
result:real;
primeiro_numero,segundo_numero:integer;

begin
writeln('Digite 1 para soma');
readln(escolha);
writeln('Digite 2 para subtração');
readln(escolha);
writeln('Digite 3 para multiplicação');
readln(escolha);
writeln('Digite 4 para divisao');
readln(escolha);
writeln('Digite o primeiro numero');
readln(primeiro_numero);
writeln('Digite o segundo numero');
readln(segundo_numero);

case escolha of
1:
begin
result := primeiro_numero + segundo_numero;

End;

2:
begin
result := primeiro_numero - segundo_numero;

End;

3:
begin
result := primeiro_numero * segundo_numero;

End;



4:
begin
result := primeiro_numero / segundo_numero;

End;


writeln ('O resultado e:',result:2:2);
End;
readln;
end.

Aparece a mensagem de erro : (54) Constant expression expected