Buscar

Aula 08 Calculadora

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Calculadora;
 Var 
 valor1, valor2: Integer;
 operacao,fim:char;
 Begin
 repeat 
 write('Informe o primeiro Valor: ');
 readln(valor1);
 write('Informe a operação desejada (+,-,/,x) : ');
 readln(operacao);
 write('Escreva o segundo Valor: ');
 readln(valor2);
 
 case operacao of 
 '+' : writeln('Soma dos dois números: ', valor1+valor2);
 '-' : writeln('Subtração do primeiro pelo segundo: ', valor1-valor2);
 'x' : writeln('Multiplicação dos dois números: ', valor1*valor2);
 '/' : writeln('Divisão dos dois números: ', (valor1 / valor2):3:2);
 else writeln('operação inválida');
 end;
 writeln('continua ? s/n - ');
 readln (fim);
 until fim <> 's'; 
 End.

Teste o Premium para desbloquear

Aproveite todos os benefícios por 3 dias sem pagar! 😉
Já tem cadastro?

Outros materiais