0

Calculadora Pascal(meu primeiro código sem consulta).

F
Felipe Fernandes

program calculadora;

uses crt;

var


x,y,r:real;

operar:char;


begin

clrscr;

writeln('Entre com A:');

readln(x);

writeln('Entre com B:');

readln(y);


writeln('Escolha uma operacao(+,-,*,/));

readln(operar);

{soma}

else if(operar='+')then

r:=x+y;

{subtração}

else if(operar='-')then

r=x-y;

{multiplicação}

else if(operar='*')then

r=x*y;

{divisão}

else if(operar='/')then

r=x/y;


writeln(r:8:3);


end.


0
1

Comentários (1)

0
Leonardo Demetrio

Leonardo Demetrio

29/04/2021 19:21

Nossa cara que legal, faz tempo que não vejo nada de pascal. Mas cara, continue é uma boa linguagem para treinar assim como o C !

None

Brasil