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.

exemplo de vetores

Calculadora Empresarial Lazarus

armazenar estoque em uma matriz

média dos numeros informados em posiçoes pares em um vetor

script para ler um vetor e mostrar o conteúdo

Nenhum comentário foi encontrado.