1. Crie um algoritmo calcular as quatro operações da matemática e depois
escreva em PASCAL.
Algoritmo calculara
Var x, y, resultado do tipo real;
Operador do tipo char;
Inicio
Mostre “Entre com A”;
Ler (x);
Mostre “Entre com B”;
Ler (y);
Mostre “Escolha a operação (+, -, *,/)”;
Ler (operador);
Se (operador =”+”) então
Resultado <- (x+y)
Senão se (operador = “-”)
Resultado <- (x-y)
Senão se (operador = “*”)
Resultado <- (x*y)
Senão se (operador = “/”)
Resultado <- (x/y);
Mostra “Resultado é” +resultado;
Fim.
Programa em PASCAL
program calculadora;
uses crt;
var
x, y, resultado : real;
operador : char;
begin
clrscr;
writeln ('Entre com A:');
readln (x);
writeln ('Entre com B:');
readln (y);
writeln ('Escolha a operacao (+,-,*,/):');
readln (operador);
if (operador='+') then //soma
resultado := x+y
