uses crt;
var
primeiroNumero, segundoNumero, soma, subtracao, multiplicacao : integer;
begin
// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis
{
Este programa recebe do usuário dois valores e
exibe a soma, diferença e a multiplicação.
}
writeln (' CALCULADORA SIMPLES');
writeln;
write(' Primeiro valor..: ');
readln(primeiroNumero);
write(' Segundo valor...: ');
readln(segundoNumero);
writeln;
soma := primeiroNumero + segundoNumero;
subtracao := primeiroNumero - segundoNumero;
multiplicacao := primeiroNumero * segundoNumero;
writeln (' ', primeiroNumero ,' + ', segundoNumero ,': ', soma);
writeln (' ', primeiroNumero ,' - ', segundoNumero ,': ', subtracao);
writeln (' ', primeiroNumero ,' * ', segundoNumero ,': ', multiplicacao);
readkey;
end.
Artigos relacionados em Pascal:
- Calculando o IMC em Pascal
- Quadrado e Cubo dos números entre 1 e 20 em Pascal.
- Programa que imprimi os divisores de n entre A e B em Pascal.
- Programa que calcula o fatorial de um número em Pascal
- Programa que verifica se um número é primo em pascal
- MDC em Pascal
 |
Feito no Dev-Pascal 1.9.2 | Executável
|
