REPORTE #6 LENGUAJES IMPERATIVOS

LENGUAJES IMPERATIVOS

LENGUAJE C

 

Lo que hace este programa es darnos la calificacion de "n" numero de alumnos de un grupo de programacion.

CODIGO

#include

#include

#include

main()

{

float suma,prom,x[100];

int n,i;

printf("\nnumero de alumnos: ");

scanf("%d",&n);

suma=0;

for (i=1;i<=n;i++)

{

printf("\ndame la calificacion del alumno: ");

scanf("%f",&x[i]);

suma=suma+x[i];

}

for (i=1;i<=n;i++)

{

prom=suma/n;

}

printf("\nel promedio del grupo de programacion estructurada es: %.2f",prom);

getche();

return 0;

}

PASCAL

Aqui nos calculara la serie de fibonacci

CODIGO

program fibonacci;


uses crt;

var

a,b,c,max:integer;

begin

clrscr;

writeln('Serie de Fibonacci');

writeln('Teclea el numero tope de la serie');

writeln('');

readln(max);

a:=1;

b:=1;

writeln(a);

writeln(b);

while (a+b)<=max do

begin;

c:=(a+b);

writeln(c);

a:=b;

b:=c;

end;

readln;

end.

 

 
FORTRAN

lo que se hara es calcular el factorial de un numero

 

CODIGO

 

function factorial(n)


integer, intent(in) :: n

integer :: factorial

integer :: i

factorial = 1

do i = 2, n

factorial = factorial * i

end do

end function

! Uso

write (*,*) factorial(5)

! 120
 
 

 
 
ALGOL

ejemplo:
 
procedure Absmax(a) Dimensiones:(n, m) Resultado:(y) Subíndices:(i,


k);


value n, m; array a; integer n, m, i, k; real y;

comment De la matriz a se toma el elemento con el valor absoluto mayor y se

coloca en y.

Los subíndices del elemento se colocan en i y k;

begin integer p, q;

y := 0; i := k := 1;


for p := 1 step 1 until n do


for q := 1 step 1 until m do

if abs(a[p, q]) > y then

begin y := abs(a[p, q]);

i := p; k := q

end

end Absmax


de Algol no pude descargar el software pero aki consegui un ejemplo

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

LINKS
http://www.solodisenio.com/el-legunaje-de-programcion-algol/
http://es.wikipedia.org/wiki/ALGOL
http://www.softwarepreservation.org/projects/FORTRAN/index.html#By_FORTRAN_project_members
http://www.turbo-pascal.com/
http://turbo-editor.programas-gratis.net/
este es mi reporttee espero y cumpla con lo pedido.......