Baixe o app para aproveitar ainda mais
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.
Compartilhar