Permite fazer calculos básicos.

• Download calculadora basica.txt
• Enviar nova versão

Esconder código-fonte

program calculo;
uses crt;

var
  n1,n2,resultado:real;
  operador:char;

begin
  writeln('Digite o primeiro número:');
  readln(n1);
  writeln('Digite o segundo número:');
  readln(n2);
  writeln('Digite o operador:');
  readln(operador);

  if operador='+' then
    resultado:=(n1+n2)
  else
    if operador='-' then
      resultado:=(n1-n2)
    else
      if operador='/' then
        resultado:=(n1/n2)
      else
        if operador='*' then
          resultado:=(n1*n2);
  writeln('O resultado é:',resultado:0:0);

  readkey;
end.

Crivo de Eratóstenes Simples em Ada 95

"Calculadora" utilizando Case

Editor de texto em Pascal/Lazarus

Cadastro de Passagens Aéreas

registro de turma com record

Nenhum coment�rio foi encontrado.