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..!!!