Reporte #6: Lenguajes Imperativos

Bueno este es mi reporte #6, tenemos que hacer 1 programa en 4 lenguajes diferentes.

1.- FORTRAN

Este es el codigo de un programa que nos da la suma de 2 valores.

program SUMA

 real A, B, C

     write (*,*) 'Valor de a:'

     write (*,*) 'Valor de b:'

     read (*,*) A, B

     C = A + B

     write (*,*) 'La suma es: ', C

     end program

Imagen

Este es un programa que nos pide el perimetro de un rectangulo.

CODIGO

program rectangulo

real a,b

      write (*,*) 'Dame el valor de a:'

      write (*,*) 'Dame el valor de b: '

      read  (*,*) a

      read (*,*) b

      Perimetro = 2*a+2*b

      write (*,*) 'El perimetro del rectangulo es = ', perimetro

      stop

      end program

IMAGEN

Y por ultimo un programa que nos pide el area del rectangulo.

CODIGO

program rectangulo

  real a,b

      write (*,*) 'Da el valor de a:'

      write (*,*) 'Da el valor de b: '

      read  (*,*) a

      read (*,*) b

      area = b*a

      write (*,*) 'El area del rectangulo es: = ', area

       stop

      end program

IMAGEN

2.- PASCAL

Este es un programa que nos adivina un numero.

CODIGO

program adivina_numero;

uses crt;

var numero, n, i: integer;

 begin

clrscr;

writeln(‘Adivina el numero, esta entre 0 y 15’);

randomize;

numero := random(16);

i := 0;

repeat

i := i + 1;

write(‘Dame un numero: ‘);

readln(n);

until numero=n;

writeln  (‘si adivinaste!’);

writeln(‘El numero era:  ’, numero);

writeln(‘Adivinaste en el intento numero: ‘, i);

readkey;

end.

IMAGEN

Y este es un codigo que nos da el promedio de ciertos alumnos.

CODIGO

program promedio_alumnos;

uses crt;

var cantidad, cont, numero, s:integer;

begin

clrscr;

s:=0;

writeln(‘Numero de alumnos: ’); Read(Cantidad);

for cont:=1 to cantidad do

begin

writeln(‘Calificacion: ’, cont,’:’);

read(numero);

s:=s+numero;

end;

writeln(‘El promedio total de los alumnos es: ’, s/cantidad:0:2);

Readkey;

end.

IMAGEN

3.- C

Este en un programa que nos da el area y el perimetro.

CODIGO
#include<stdio.h>
#include<conio.h>
#include<math.h>
main()
{
      float RADIO, AREA, PERIMETRO, PI=3.1416;
      printf("Numero del RADIO: ");
      scanf("%f", &RADIO);
      AREA=PI*(pow(RADIO,2));
      printf("El resultado de la operacion es: %.6f \n", AREA);
      PERIMETRO=(2*PI*RADIO);
      printf("El PERIMETRO sera: %.6f", PERIMETRO);
      getch();
}

IMAGEN

Este programa nos convierte la cantidad de dolares a pesos mexicanos.
CODIGO

#include<stdio.h>
#include<conio.h>
main()
{
      float DOLARES, PESOS;
      printf("Introduce el valor de dolares a convertir: \n");
      scanf("%f", &DOLARES);
      PESOS=(DOLARES*12.95);
      printf("El resultado de la convercion es: %f", PESOS);
      getch();
}

IMAGEN

4.- ALGOL

Este es un programa que hace la conversion de grados fahrenheit a celsius.

CODIGO

fahrenheit

begin

real fahr;
print ("Degrees Fahrenheit: ");
read (fahr);
print ("The degrees Celsius are: ", (fahr-32.0) * 5.0/9.0);

end

finish

Bueno este es m reporte y espero que cumpla con el objetivo.

Paola E. Cantú Aguilar 1429400