Loading
carregando...

Calculadora básica em Pascal


Nesse post vou estar disponibilizando um script em pascal de uma calculadora básica, ótimo para iniciantes para começar a intender como funciona e qual é a lógica do pascal.

No caso de quem já tem noção de alguma linguagem de programação, é molesa para entender o pascal pois basicamento todas as linguagens de programação seguem a mesma lógica, tornando assim uma fácil migração pra todas as linguagens.

Segue abaixo o script da calculadora:

  1.  
  2. program calculo;
  3.  
  4. uses crt;
  5.  
  6. var
  7.   n1,n2,resultado:real;
  8.   operador:char;
  9.  
  10. begin
  11.   writeln('Digite o primeiro número:');
  12.   readln(n1);
  13.   writeln('Digite o segundo número:');
  14.   readln(n2);
  15.   writeln('Digite o operador:');
  16.   readln(operador);
  17.  
  18.   if operador='+' then
  19.     resultado:=(n1+n2)
  20.  else
  21.     if operador='-' then
  22.       resultado:=(n1-n2)
  23.     else
  24.       if operador='/' then
  25.         resultado:=(n1/n2)
  26.      else
  27.         if operador='*' then
  28.            resultado:=(n1*n2);
  29.  
  30.      writeln('O resultado é:',resultado:0:0);
  31.  
  32.   readkey;
  33. end.
  34.  

é isso aí...

Fonte: http://www.htmlstaff.org/ver.php?id=23635


Autor: Dárcio Gomes
Data: 24/10/2012 00:00:00