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.

somatório de uma matriz 7x5

Script que verifica se um número é primo ou não

Jogo Sudoku em Pascal

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

soma de números pares

Nenhum comentário foi encontrado.