jueves, 11 de noviembre de 2010

Reporte#6 Lenguajes Imperativos

Hola Dra y compañeros de clase, este es mi reporte de lenguajes imperativos

PASCAL



En pascal el programa que hize fue base a lo que habia explicado una compañera sobre detectar si una palabra es palindromo o no.
Aqui les muestro el codigo, el compilador es Free Pascal.



Esto fue lo que me imprimio el programa:

------------------------------------------------------

C

Aqui les hize un programa que te pida el numero de filas y columnas para hacer una matriz:
Como el lenguaje es en C no explicare en si el codigo ya que es algo entendible...

#include
#include
void tamano();
void asignar();
void imprimir();
int I,F,J,C,M[50][50];
main()
{
tamano();
asignar();
imprimir();
getche();
return 0;
}
void tamano()
{
do
{
printf("Filas");
scanf("%d",&F);
printf("Columnas");
scanf("%d",&C);
}while(F!=C);
return;
}
void asignar()
{
for(i=0; i
for(j=0; j
if(i == j){
matriz[i][j] = 1;
}
else{
matriz[i][j] = 0;
}
}
for(i=0; i
printf("\t");
for(j=0; j
printf("%4d", matriz[i][j]);
}
printf("\n");
}
printf("\n\n");

system("pause");
return 0;
}

he aqui lo que me imprime el programa considerando 5 filas y 5 columnas:


---------------------------------------------------------------------------
Fortran


aqui les dejo mi programa en fortran del fibonacci, lamentablemente no entiendo porque no me pudo compilar y batalle con ese aspecto......



-----------------------------------------------------------------------------------
ALGOL


Aqui les pongo un ejemplo del promedio(media)del valor absoluto de un vector en Algol:

begin
integer N;
Read Int (N);

begin
real array Data [1: N];
real sum, avg ;

integer 1;
sum: -0;
for 1: -1 step 1 until N do
begin real val
Read Real (val);
Dara[1]:-if val <0 then - val else val
end;

for 1: -1 step 1 until N do
sum: -sum + Data [1];
avg:-sum/N;
print Real (avg)
end
end

Si aprecian bien el codigo podemos ver que utilizamos un tipo de arreglos y asi y despues declaramos tambien variables para poder sacar lo que vale el vector, no lo pude compilador pero espero puedan entenderle



Cualquier cosa no duden en comentar mi blog
Saludos..!!!

12 comentarios:

  1. muy bien aunque te falto las pantalla de ejecucion pero esta muy bien

    ResponderEliminar
  2. te quedo bien tu reporte, aunque creo que el primero, si se me hiso un poco sencillo, pero que bien que pudiste poner imagenes en ejecucion de tus programas

    ResponderEliminar
  3. Tu programa en Pascal esta bien elaborado y demostrado, tambien el que hiciste de la matriz, aunque parescan sencillos, y la explicacion de ellos tambien.

    ResponderEliminar
  4. hola!!

    me parece que tu reporte esta muy completo ademas de poner las pantallas de ejecucion ..

    =)

    ResponderEliminar
  5. muy buen reporte, tus programas estan bien elaborados y con las imagenes es mejor, saludos

    ResponderEliminar
  6. me parece perfecto lo que hiciste en los 4 lenguajes los explicaste muy bien .

    ResponderEliminar
  7. esta muy bien explicado tu reporte solo faltaron algunas imágenes de la ejecución del programa

    ResponderEliminar
  8. Tus programas estan muy bien, estan facil de entender, que bien que pusiste las imagenes de donde si corrio el programa.

    ResponderEliminar
  9. :)
    hola que tal
    me parecio muy completo tu reporte,
    los programas y lenguajes que ocupaste estan correctos y pues fueron muy faciles de entender y los explicaste bien, nos vemos y pues que bueno que pones las imagenes como lo encargo la maestra
    bye!

    ResponderEliminar
  10. Hola esta muy bien tu rpeorte pero lo podrias
    haber completado con una imagen de la corrida de los otros tres programas, pero como quiera esta muy bien te doy 4 de 2 jejeje

    ResponderEliminar
  11. Están muy bien tus reporte, y los programas que elaboraste están muy fácil conprenderlos (:

    ResponderEliminar
  12. Muy bien. Me parece bien el que hayas reportado si no te compiló el programa; para el último de ellos solamente faltó poner alguna pantalla de ejecución.

    Calificación: 4.75/5

    ResponderEliminar