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.

Tratamentos de Erros

soma de números pares

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

Calculadora básica em Pascal

media/record

Nenhum comentário foi encontrado.