Actividad 6

REPORTE DE 4 LENGUAJES IMPERATIVOS

Buenas Tardes chicos, pues aqui dejandoles una vez mas otra de mis practicas,


Programa Realizado en C

Este codigo esta basado en un switch( se implementa cuando es necesarario la utilización de un menú de opciones ya que el usuario deberá escoger una de las opciones, esto es que la variable pueda tomar diferentes valores.) e hice un menu de Restaurant donde te piden que escogas una de las 3 paquetes de comida y al momento de seleccionarla aparece lo que contine y su valor total
ahora cuando se elijiera un valor diferente de 1.2 o 3 se pone en pantalla que es un error y la peticion que vuelva a elegir su menu


Código:

#include<stdio.h>

#include<conio.h>

int main ()

{

     int x;

     printf("*-*-*--*-*-*-*-*-*-*-Bienvenidos a AC FOOD´s*-*-*-*-*-*-*-*-*-*-*-\n");

     printf("\n\n\nCual sera la orden del dia \n");

     printf("A.Paquete 1\n");

     printf("B.Paquete 2\n");

     printf("C.Paquete 3\n");

     scanf("%i", &x);

     switch(x)

     {

              case 1: printf("Hamburguesa\n Soda 500 ml\n TOTAL a PAGAR: $75");

              scanf("%d", & x);

              break;

              case 2: printf("Pizza\n Soda 500 ml\n Juguete AC´´Food´s\nTOTAL A PAGAR : $ 156.85 ");

              scanf("%d", & x);

              break;

              case 3 : printf("Ensalda\n Jugo de Naranja\n Total a pagar : $ 35");

              scanf("%d", & x);

              break;

              default: printf("Error de menu, vuelva a ordenar porfavor\n");

              scanf("%d", & x);

              }-

              getche();

              return 0;

              }

                                                                    

                                                                     En pantalla 

**********************************

Programa realizado en Pascal

Este programa solo muestra matrices en la salida estandar


CODIGO

type 
   tDimension = 1..100;
   eMatriz(f,c: tDimension) = array [1..f,1..c] of real;
   
   tRango = record
      f,c: tDimension value 1;
   end;
   
   tpMatriz = ^eMatriz;


procedure EscribirMatriz(var m: tpMatriz);
var filas,col : integer;
begin
   for filas := 1 to m^.f do begin
      for col := 1 to m^.c do
         write(m^[filas,col]:7:2);
      writeln(resultado);
      writeln(resultado)
     end;    
end;

*-*-*-*-*-*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*-*-*-*

Programa realizado en Fortran

Un programa de Fortran es una secuencia de líneas de texto. El texto debe de seguir una determinada sintaxis para ser un programa válido de Fortran.  La estructura del programa principal es:

      program name
      declarations
      statements
      stop
      end

En este programa lo que realizaria es leer un número real r y muestra el área del círculo con radio r.pero al momento de compilarlo no pude. :( como quiera

aqui les dejo el codigo por si a alguien si le pudo compilar y me ayude :)

CÓDIGO

program area de un circulo

      real r, area

      write (*,*) 'Escribe el radio r:'

      read  (*,*) r

      area = 3.14159*r*r

      write (*,*) 'Area = ', area

      stop

      end

*-*-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*

Programa realizado en Cobol

Este programa esta muy sencillo solo imprime en pantalla un texto

la verdad si batalle unpoquito en encotrar un compilador y un tutorial que pudiera entender bien y pues leeei varios y de todos esto saque un solo conocimiento :)

CODIGO



IDENTIFICATION DIVISION.
        PROGRAM-ID. tarea 1.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 ESPERA PIC X.
        77 TECLA PIC 99.
        PROCEDURE DIVISION.
        COMIENZO.
            DISPLAY "Hoy es un buen dia para sonreir   !, por favor presiona una tecla".
            ACCEPT ESPERA NO BEEP ON EXCEPTION TECLA NEXT
            SENTENCE.
            DISPLAY "La tecla que presionaste fue: ".
            DISPLAY TECLA.
            EXIT PROGRAM.
            STOP RUN

Bueno chicos aquí les dejo mi reporte y espero sus comentarios para ver que tal estuvo mi trabajo y pliis pongan sugerencias.."!!!!  :)


Buen dia saludos...:)