Make your own free website on Tripod.com
E-Clases
Ejercicios en Pascal I
Home
SIA: Definiciones
SIA: Centros de Cómputo
SIA: Areas de Administracion de un CC
SIA: Técnicas y sistemas de gestión de la innovación
Matematicas
SIA II - Proyecto
Códigos para Programadores
Bases de Datos I
Diseño Páginas Web
Curso de Ingles Diciembre 2003
Ingles Tecnico
CENAFOM - Computación 02076
Ingenieria de Software I
Ingenieria de Software II
Ingenieria de Software III
Ingenieria de Software IV
Ingenieria de Software V
Ingenieria de Software VI
Ingenieria de Software VII
Ingenieria de Software VIII
Ingenieria de Software IX
Ingenieria de Software X
Ingenieria de Software XI
Encuestas y Libro de Visitas
Sitios Web
De todo Un Poco
Servicio Tecnico
Nuestros Clientes
Trabajos
Introducción a la Programación

Listado de Ejercicios :
 

2.      Escribir un programa en Pascal que sume, reste, multiplique y divida dos números: x = 10, y = 2

3.     PROGRAM EJER02;

4.             USES CRT; {Nos va a permitir limpiar la pantalla junto con ClrScr}

5.             VAR x,y:INTEGER;

6.             VAR suma,rest,mult,divi:INTEGER;

7.      

8.     BEGIN

9.             x:=10;

10.          y:=2;

11.   

12.          suma:=x + y;

13.          rest:=x - y;

14.          mult:=x * y;

15.          divi:=x div y;

16.   

17.  {Con estas 4 variables realizamos las cuatro operaciones aritméticas fundamentales:

18.   suma, resta, multiplicación y división}

19.   

20.          ClrScr; {Limpia la pantalla}

21.   

22.          WRITE ('SUMA:');             WRITELN (suma);

23.          WRITE ('RESTA:');            WRITELN (rest);

24.          WRITE ('MULTIPLICACION:');   WRITELN (mult);

25.          WRITE ('DIVISION:');                 WRITE (divi);

26.   

27.  END.

28.  PROGRAM EJER2B;

29.          USES CRT;

30.          VAR x,y:REAL;

31.          VAR suma,rest,mult:REAL;

32.          VAR divi:REAL;

33.   

34.          {suma, resta, multiplica y divide 2 numeros reales}

35.   

36.  BEGIN

37.          WRITELN ('Este programa suma,resta,multiplica y divide:');

38.          WRITELN ('Escriba dos numeros reales');

39.          WRITELN (' ');

40.   

41.   

42.          READ (x);

43.          READ (y);

44.   

45.          suma:=x + y;

46.          rest:=x - y;

47.          mult:=x * y;

48.          divi:=x / y;

49.   

50.          ClrScr;

51.   

52.          WRITE ('SUMA:');                WRITELN (suma:3:0);

53.          WRITE ('RESTA:');               WRITELN (rest:3:0);

54.          WRITE ('MULTIPLICACION:');      WRITELN (mult:3:0);

55.          WRITE ('DIVISION:');            WRITE (divi:5:2);

56.   

57.  END.

3.      Escribir un programa en Pascal que calcule el área de un rectángulo: lado1 = 3, lado2 = 4
área del rectángulo=lado1 * lado2

4.     PROGRAM EJER03;

5.             USES CRT;

6.             VAR lado1,lado2:INTEGER;

7.             VAR area:INTEGER;

8.      

9.     BEGIN

10.   

11.  {Este programa nos va a servir para calcular el area de un rectángulo}

12.   

13.          lado1:=3;

14.          lado2:=4;

15.         {Damos valores para las variables}

16.   

17.          area:=lado1*lado2; {Calculamos el area}

18.   

19.          ClrScr;

20.   

21.          WRITE ('AREA DEL RECTANGULO: ');  WRITE (area); {Lo mostramos en pantalla}

22.   

23.  END.

24.  PROGRAM EJER3B;

25.          USES CRT;

26.          VAR lado1,lado2:REAL;

27.          VAR area:REAL;

28.   

29.  BEGIN

30.          {Este programa calcula el area de un rectangulo}

31.   

32.          ClrScr;

33.   

34.          WRITELN ('Escriba los lados del rectangulo');

35.   

36.          READ (lado1);

37.          READ (lado2);

38.          WRITELN (' ');

39.   

40.          area:=lado1*lado2;

41.   

42.          WRITE ('AREA DEL RECTANGULO:');  WRITE (area:5:2);

43.   

44.  END.

4.      Escribir un programa en Pascal que calcule el área de un triángulo: base = 7, altura = 4
área del triángulo = (base * altura)/2

5.     PROGRAM EJER04;

6.             USES CRT;

7.             VAR base,altura:REAL;

8.             VAR area:REAL;

9.     BEGIN

10.          base:=7;

11.          altura:=4;

12.   

13.          area:=(base * altura) / 2;

14.   

15.          ClrScr;

16.   

17.          WRITE ('AREA DEL TRIANGULO: ');  WRITE (area:5:2);

18.         {:5:2 sirve para dar el formato de salida al numero, 5 posiciones y 2 decimales}

19.  END.

20.  PROGRAM EJER4B;

21.          USES CRT;

22.          VAR base,altura:REAL;

23.          VAR area:REAL;

24.  BEGIN

25.          {Este programa sirve para calcular el area de un triangulo}

26.   

27.          ClrScr;

28.          WRITELN ('PARA CALCULAR EL AREA DE UN TRIANGULO:');

29.          WRITELN (' ');

30.          WRITE ('ESCRIBE LA BASE: ');         READLN (base);

31.          WRITE ('ESCRIBE LA ALTURA: ');       READLN (altura);

32.          WRITELN (' ');

33.   

34.          area:=(base * altura) / 2;

35.   

36.          WRITE ('EL AREA DEL TRIANGULO ES: ');  WRITE (area:5:2);

37.  END.

5.      Escribir un programa que calcule la longitud y el área de una circunferencia: radio = 4 longitud de la circunferencia = 2 * PI * radio
área de la circunferencia = PI * radio2

6.     PROGRAM EJER05;

7.             USES CRT;

8.             VAR radio:REAL;

9.             VAR longitud,area:REAL;

10.   

11.  BEGIN

12.          radio:=4;

13.          longitud:=2*3.1416*radio;

14.   

15.          area:=3.1416*radio*radio;

16.   

17.          ClrScr;

18.   

19.          WRITE ('LONGITUD DE LA CIRCUNFERENCIA:');     WRITELN (longitud:5:2);

20.          WRITE ('AREA DE LA CIRCUNFERENCIA:');         WRITE (area:5:2);

21.   

22.  END.

23.  PROGRAM EJER5B;

24.          USES CRT;

25.          VAR radio:REAL;

26.          VAR longitud,area:REAL;

27.   

28.  BEGIN

29.          {Este programa calcula la longitud y el area de una circunferencia}

30.   

31.          ClrScr;

32.   

33.          WRITELN ('LONGITUD Y AREA DE UNA CIRCUNFERENCIA');

34.          WRITELN (' ');

35.          WRITE ('Escriba el radio: ');         READLN (radio);

36.          WRITELN (' ');

37.   

38.          longitud:=2*3.1416*radio;

39.   

40.          area:=3.1416*radio*radio;

41.   

42.   

43.          WRITE ('LONGITUD DE LA CIRCUNFERENCIA: ');             WRITELN (longitud:5:2);

44.          WRITE ('AREA DE LA CIRCUNFERENCIA: ');                 WRITE (area:5:2);

45.   

46.  END.