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.

Calculadora utilizando until e case

programa pra carregear duas matrizes e achar o maior

cadastro de um cliente com registro

Hello World!!!

controle de notas de um aluno com registro e array

Nenhum coment�rio foi encontrado.