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...:)