*Lenguajes Imperativos - Programas

Materia: Lenguajes de Programación
Hora: Martes m1 - m3


Hola a todos, aquí les dejó mi reporte sobre Lenguajes Imperativos.




Lenguaje BASIC

El programa que realice te compara dos números y te dice cual es el mayor de ellos, y es el siguiente:

DECLARE SUB compara (a AS INTEGER, b AS INTEGER)

DIM num1 AS INTEGER, num2 AS INTEGER
INPUT "Introduzca dos numeros:",num1,num2
compara num1, num2
END

SUB compara (a AS INTEGER, b AS INTEGER)
IF a > b THEN
           PRINT a; " es mayor que"; b
ELSE
           PRINT b; "es mayor que"; a
END IF
END SUB


Y su ejecución queda:

Lenguaje Pascal

El programa que realice en Pascal te pide que insertes dos números y te da la opción de que si quieres sumarlos o restarlos.

Y el programa es este:

PROGRAM calculadora;_


uses
    crt;

var
    num1 :integer;
    num2 :integer;
    tot :integer;
    tip :char;

const
    numero1 = 'Digite un Numero: ';
    numero2 = 'Digite otro Numero: ';
    tipo = 'Que tipo de cuenta?: S, R?';
    total = 'El total de la suma es: ';

Begin
   Write(numero1);
   ReadLn(num1);
   Write(numero2);
   ReadLn(num2);
  WriteLn('S = Suma, R = Resta);
  ReadLn(tip);
    case tip of
     'S' :
begin
         writeLn('SELECCION: Sumar');
         tot := num1 + num2
         end;
    'R' :
begin
       writeLn('SELECCION: Restar');
       tot := num1 - num2
      end;
else
    begin
      writeLn('Error - No a seleccionado ningun tipo');
      end;
end;
   writeLn('El resultado es: ', tot);
   ReadKey;
END.

Aquí esta el programa en el compilador:

Y su ejecución queda así:

 
 
Lenguaje C
 
El programa que realice en C te pide el número que quieres que te muestre su tabla.
 
Y queda  así :
 
 

Y su ejecución quedaría así:

 



Es todo de mi entrada, cualquier cosa hagánmelo saber. Saludos :)