Comunidad Underground Hispana  

Retroceder   Comunidad Underground Hispana > Programacion > Programación > Code

Respuesta Crear Nuevo Tema
 
Compartir en twitter LinkBack Herramientas Desplegado
Antiguo 09-nov-2008, 17:43   #1
Miembro
 
Fecha de Ingreso: agosto-2008
Amigos 0
Mensajes: 60
Gracias: 0
Agradecido 1 vez en 1 mensaje.
Predeterminado Calculadora basica en Pascal

Código:
Miren aqui tienen una calculadora en Pascal.

PROGRAM Calculadora (input,output);
VAR
   opcion:char;
   a,b,limpiar:integer;

PROCEDURE Limpiar_pantalla(limpiar:integer);
BEGIN
     FOR limpiar:=1 TO 50 DO
         writeln(' ');
END;

PROCEDURE Leer_numeros (VAR i,j:integer);
BEGIN
     writeln(' ');
     write('Escriba el primer número: ');
     readln(i);
     writeln(' ');
     write('Escriba el segundo número: ');
     readln(j);
     writeln(' ');
END; {leer}

PROCEDURE Sumar (x,y:integer);
BEGIN
     writeln('La suma es: ',x+y);
END;

PROCEDURE Restar (x,y:integer);
BEGIN
     writeln('La resta es: ',x-y);
END;

PROCEDURE Multiplicar (x,y:integer);
BEGIN
     writeln('La multiplicación es: ',x*y);
END;

PROCEDURE Dividir (x,y:integer);
BEGIN
     writeln('La divisón es: ',(x/y):0:4);
END;

PROCEDURE Menu;
BEGIN
     writeln(' ');
     writeln('Elija una opción');
     writeln(' ');
     writeln('1 - Sumar');
     writeln('2 - Restar');
     writeln('3 - Multiplicar');
     writeln('4 - Dividir');
     writeln('5 - Salir');
     writeln(' ');
END;{Menu}
BEGIN {pp}
REPEAT

      Menu;
      readln(opcion);
      IF (opcion>= '1') and (opcion<='4') THEN
      BEGIN
      leer_numeros (a,b);
           CASE opcion OF
                '1': Sumar(a,b);
                '2': Restar(a,b);
                '3': Multiplicar(a,b);
                '4': IF (b<>0) THEN Dividir(a,b)
                     ELSE writeln('No se puede dividir por 0');
                END;{Case}
      END {IF}
      ELSE IF (opcion>'5') or (opcion<'1') THEN BEGIN
           writeln(' ');
           writeln('Opción incorrecta');
      END;

UNTIL opcion='5';
      writeln(' ');
      writeln('Espero habrle ayudado, muchas gracias');
      writeln(' ');
      writeln('Adios');
      readln;
      Limpiar_pantalla(limpiar);
END.
  
__________________
<br />
I don&#39;t use Windows anymore!<br />

Última edición por Fashion; 15-abr-2015 a las 11:14
Richytela está desconectado   Responder Citando
Respuesta

Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado
Trackbacks están Activado
Pingbacks están Activado
Refbacks están Activado



Temas Similares
Tema Autor Foro Respuestas Último mensaje
Factorizar una ecuación cúbica :( M_David Off-Topic 2 08-dic-2007 11:07
ayuda para hace una calculadora!!! jenkxel Visual Basic y Net 7 15-mar-2007 12:57
Calculadora en c++ The lord of the death Code++ 14 28-feb-2007 16:20
Funciones para Calculadora Hendrix Batch / Bash-Shell 6 21-dic-2006 06:22
Ayuda para hacer una calculadora en Java Shawn6gt Java 2 15-oct-2006 09:59



Portal Hacker
Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0