Reporte lenguajes imperativos

En este reporte expongo 4 códigos utilizando lenguajes de programación imperativos.
Como les hable en la entrada anterior sobre los lenguajes imperativos son un tipo de lenguaje de programación que tiene como característica es que se basa en procedimientos, o sea, dar instrucciones para que realice algo, su característica es el uso de comandos y variables, inició entre los años 50's.

Las instrucciones se ejecutan una a una, de forma secuencial, aunque a veces sabemos que se encuentran estructuras de control condicionales o bucles.

Fortran
Se centra en la programación cientifica como la fisica y la química, por lo tanto realice este programa en donde te calcula la intensidad, voltaje o resistencia que lo pudiéramos necesitar en clase de fisica.

 program fisica

          real inten, volt, resis

          integer opcion

          write (*,*) 'Que quieres calcular:'

          write (*,*) '1. intensidad'

          write (*,*) '2. voltaje'

          write (*,*) '3. resistencia'

          read  (*,*) opcion

          select case (opcion)

             case (1)

                write (*,*) 'Dame un voltaje'

                read (*,*) volt

                write (*,*) 'Dame una resistencia'

                read (*,*) resis

                inten = volt / resis

              write (*,*) 'Tu resultado es', inten

             case (2)

                write (*,*) 'Dame una resistencia'

                read (*,*) resis

                write (*,*) 'Dame una intensidad'

                read (*,*) inten

                volt = resis * inten

               write (*,*) 'Tu resultado es', volt

             case (3)

                write (*,*) 'Dame un voltaje'

                read (*,*) volt

                write (*,*) 'Dame una intensidad'

                read (*,*) inten

                resis = volt / inten

              write (*,*) 'Tu resultado es', resis

             end select

          stop

          end

Simplemente lo que hace es que por medio de un select, te muestra un menu sobre la cantidad que deseas calcular, tu seleccionas, te pide los datos necesarios, realiza la operación, sale del select y termina el programa.


Es importante saber que como en lenguaje C, en el select (cuyo equivalente es "switch") no es posible obtener el la opción por medio de un numero "real", por lo tanto se utiliza un "integer".

C
Este programa es uno de logica que me gusta mucho en donde te dan la matriz de 20 x 20, con varios numeros y lo que te piden es ¿Cual es el producto mayor de cualesquiera cuatro numeros adyacentes en cualquier dirección ya sea hacia arriba, abajo, izquierda, derecha o diagonal?


Para resolver este problema el código que utilicé fue ir a cada numero desde la posición 3,3 hasta la posición 16, 16 que son en esa tabla en los lugares posibles donde puede encontrar los 4 números consecutivos, e ir checando las 8 veces, arriba, abajo, izquierda, derecha, y las diagonales, utilizando un arreglo bidimensional que contiene los números de esta tabla, en donde utilicé dos ciclos for que fueran modificando las filas y las columnas, para hacer las multiplicaciones correspondientes dado el número ir cambiando las columnas y cuando llegue a la 16, cambie la fila, y condicionales para checar si es mayor de la variable que se estará actualizando en cada producto, para así obtener el resultado.

#include <stdio.h>
int main(int argc, char** args){
int tabla[20][20] = {    { 8,  2, 22, 97, 38, 15,  0, 40,  0, 75,  4,  5,  7, 78, 52, 12, 50, 77, 91,  8},  //las unidades les quite el cero de la izquieda
                            {49, 49, 99, 40, 17, 81, 18, 57, 60, 87, 17, 40, 98, 43, 69, 48,  4, 56, 62,  0},  //creamos una arreglo bidimensional de 20 x 20 con los numeros dados
                            {81, 49, 31, 73, 55, 79, 14, 29, 93, 71, 40, 67, 53, 88, 30,  3, 49, 13, 36, 65},
                            {52, 70, 95, 23,  4, 60, 11, 42, 69, 24, 68, 56,  1, 32, 56, 71, 37,  2, 36, 91},
                            {22, 31, 16, 71, 51, 67, 63, 89, 41, 92, 36, 54, 22, 40, 40, 28, 66, 33, 13, 80},
                            {24, 47, 32, 60, 99,  3, 45,  2, 44, 75, 33, 53, 78, 36, 84, 20, 35, 17, 12, 50},
                            {32, 98, 81, 28, 64, 23, 67, 10, 26, 38, 40, 67, 59, 54, 70, 66, 18, 38, 64, 70},
                            {67, 26, 20, 68,  2, 62, 12, 20, 95, 63, 94, 39, 63,  8, 40, 91, 66, 49, 94, 21},
                            {24, 55, 58,  5, 66, 73, 99, 26, 97, 17, 78, 78, 96, 83, 14, 88, 34, 89, 63, 72},
                            {21, 36, 23,  9, 75,  0, 76, 44, 20, 45, 35, 14,  0, 61, 33, 97, 34, 31, 33, 95},
                            {78, 17, 53, 28, 22, 75, 31, 67, 15, 94,  3, 80,  4, 62, 16, 14,  9, 53, 56, 92},
                            {16, 39,  5, 42, 96, 35, 31, 47, 55, 58, 88, 24,  0, 17, 54, 24, 36, 29, 85, 57},
                            {86, 56,  0, 48, 35, 71, 89,  7,  5, 44, 44, 37, 44, 60, 21, 58, 51, 54, 17, 58},
                            {19, 80, 81, 68,  5, 94, 47, 69, 28, 73, 92, 13, 86, 52, 17, 77,  4, 89, 55, 40},
                            { 4, 52,  8, 83, 97, 35, 99, 16,  7, 97, 57, 32, 16, 26, 26, 79, 33, 27, 98, 66},
                            {88, 36, 68, 87, 57, 62, 20, 72,  3, 46, 33, 67, 46, 55, 12, 32, 63, 93, 53, 69},
                            { 4, 42, 16, 73, 38, 25, 39, 11, 24, 94, 72, 18,  8, 46, 29, 32, 40, 62, 76, 36},
                            {20, 69, 36, 41, 72, 30, 23, 88, 34, 62, 99, 69, 82, 67, 59, 85, 74,  4, 36, 16},
                            {20, 73, 35, 29, 78, 31, 90,  1, 74, 31, 49, 71, 48, 86, 81, 16, 23, 57,  5, 54},
                            { 1, 70, 54, 71, 83, 51, 54, 69, 16, 92, 33, 48, 61, 43, 52,  1, 89, 19, 67, 48}};
 
    int fila, colu;
    long int arriba, abajo, derecha, izquierda, diag1, diag2, diag3, diag4, respuesta = 0; 
       
     for(fila=3;fila<=16;fila++){ //cambia filas
        for(colu=3;colu<=16;colu++){ //cambia columnas
            arriba = tabla[fila][colu] * tabla[fila-1][colu] * tabla[fila-2][colu] * tabla[fila-3][colu];
            if(arriba > respuesta) 
                      respuesta = arriba;
            //printf("%d    %d,%d\n", respuesta, fila, colu);
            abajo = tabla[fila][colu] * tabla[fila+1][colu] * tabla[fila+2][colu] * tabla[fila+3][colu];
            if(abajo > respuesta) 
                     respuesta = abajo;
            //printf("%d    %d,%d\n", respuesta, fila, colu);
            izquierda = tabla[fila][colu] * tabla[fila][colu-1] * tabla[fila][colu-2] * tabla[fila][colu-3];
            if(izquierda > respuesta) 
                         respuesta = izquierda;
            //printf("%d    %d,%d\n", respuesta, fila, colu);
            derecha = tabla[fila][colu] * tabla[fila][colu+1] * tabla[fila][colu+2] * tabla[fila][colu+3];
            if(derecha > respuesta) 
                       respuesta = derecha;
            //printf("%d    %d,%d\n", respuesta, fila, colu);
            diag1 = tabla[fila][colu] * tabla[fila-1][colu-1] * tabla[fila-2][colu-2] * tabla[fila-3][colu-3];
            if(diag1 > respuesta) 
                     respuesta = diag1;
            //printf("%d    %d,%d\n", respuesta, fila, colu);
            diag2 = tabla[fila][colu] * tabla[fila-1][colu+1] * tabla[fila-2][colu+2] * tabla[fila-3][colu+3];
            if(diag2 > respuesta) 
                     respuesta = diag2;
            //printf("%d    %d,%d\n", respuesta, fila, colu);
            diag3 = tabla[fila][colu] * tabla[fila+1][colu-1] * tabla[fila+2][colu-2] * tabla[fila+3][colu-3];
            if(diag3 > respuesta) 
                     respuesta = diag3;
            //printf("%d    %d,%d\n", respuesta, fila, colu);
            
            diag4 = tabla[fila][colu] * tabla[fila+1][colu+1] * tabla[fila+2][colu+2] * tabla[fila+3][colu+3];
            if(diag4 > respuesta) 
                     respuesta = diag4;
            //printf("%d    %d,%d\n", respuesta, fila, colu);
            //system("pause");
        }
 
    }
    printf("Cual es el producto mayor de cualesquiera cuatro numeros adyacentes \n(en cualquier direccion, hacia: abajo, arriba, izquierda, derecha o diagonal)\nen la tabla de 20x20?"); 
    printf ("\n\n%d\n", respuesta); //resultado que siempre iba comparando y actualizando.
    system("pause");
    
} 

Una imagen de lo que realiza el programa y el resultado (ovalo naranja)

Haz clic para agrandar!

Por lo tanto el resultado es 87 x 94 x 97 x 87 = 70,600,674 que se ubica en la diagonal de 12, 6


Pascal
Lenguaje de programación cuyo objetivo es facilitar a los estudiantes el aprender programación.
En este caso, hice un programa que dada la formula:

Calcular el periodo, tiempo minimo al cabo del cual se repiten las condiciones del proceso, de un pendulo simple, sabiendo que a mayor longitud del pendulo mayor sea su periodo.

PROGRAM EJEMPLO;

        USES CRT;

        VAR longi:REAL;

        VAR periodo:REAL;

BEGIN

        

        WRITELN ('Dame solamente la longitud de tu pendulo, te dare su periodo:');

        WRITELN (' ');

        WRITE ('Escribe la longitud: ');     READLN (longi);

        WRITELN (' ');

        periodo:=2*3.1416*(sqrt(longi/9.8));

        WRITE ('Periodo de oscilacion (seg): ');  WRITE (periodo:5:2);

END.

Utilicé la función predeterminada para sacar la raiz cuadrada (sqrt).

Basic
Lenguaje de programación hecho específicamente para personas que se inician en la programación, es relativamente sencillo.
En este caso hice una calculadora para niños que solamente suma, resta, multiplica y divide con una interfaz grafica para ellos.


Este es el código


FMain.class

PUBLIC SUB Button1_Click()

TextBox2.text = TextBox1.text + TextBox3.Text

END

PUBLIC SUB Button3_Click()

TextBox2.text = TextBox1.text - TextBox3.Text

END

PUBLIC SUB Button4_Click()

TextBox2.text = TextBox1.text * TextBox3.Text

END

PUBLIC SUB Button2_Click()

TextBox2.text = TextBox1.text / TextBox3.Text

END

PUBLIC SUB Button5_Click()

TextBox1.Text = ""

TextBox2.text = ""

TextBox3.text = ""

TextBox1.SetFocus

END

Lo que hace simplemente suma, multiplica, divide o resta según el boton que se presione, en la caja de abajo obtendremos el resultado, se tiene un boton para borrar lo que ha hecho.
La interfaz grafica la hice solamente arrastrando los botones y pegando las cajitas de texto, por lo tanto es relativamente sencillo, aqui les dejo la captura de pantalla de la IDE creando lo que es FMain.form

Ahora el resultado en conjunto con el código y la interfaz grafica

Espero que mi explicación les sirva, si tienen algún comentario acerca de esta entrada, espero me digan ya que estoy abierto a cualquier error.