Make your own free website on Tripod.com
E-Clases
Ejercicios en Pascal II
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

6.      Escribir un programa en Pascal que calcule la velocidad de un proyectil que recorre 2 Km en 5 minutos. Expresar el resultado en metros/segundo.
Velocidad = espacio/tiempo

7.     PROGRAM EJER06;

8.             USES CRT;

9.             VAR espacio,tiempo:REAL;

10.          VAR velocidad:REAL;

11.   

12.  BEGIN

13.          espacio:=2;

14.          tiempo:=5;

15.   

16.          velocidad:=(espacio*1000)/(tiempo*60);

17.   

18.          ClrScr;

19.   

20.          WRITE ('VELOCIDAD DEL PROYECTIL:');

21.          WRITE (velocidad:5:2); WRITE ('m/s');

22.  END.

23.                 

24.  PROGRAM EJER6B;

25.          USES CRT;

26.          VAR espacio,tiempo,espacio2,tiempo2:REAL;

27.          VAR velocidad,velocidad2:REAL;

28.  BEGIN

29.          {Este programa calcula la velocidad de un cuerpo}

30.   

31.          ClrScr;

32.   

33.          WRITE ('Para calcular la velocidad debe escribirlo en unidades ');

34.          WRITE ('del sistema internacional');

35.          WRITELN (' ');

36.          WRITE ('Escriba el espacio recorrido: ');       READLN (espacio);

37.          WRITE ('Escriba el tiempo transcurrido: ');     READLN (tiempo);

38.          WRITELN (' ');

39.   

40.          velocidad:=(espacio)/(tiempo);

41.   

42.          WRITE ('VELOCIDAD DEL PROYECTIL: ');

43.          WRITE (velocidad:5:2); WRITELN (' m/s');

44.   

45.          WRITELN (' ');

46.          WRITELN ('Si lo desea en Km/h introduzca los datos: ');

47.          WRITELN (' ');

48.          WRITE ('Escriba el espacio recorrido: ');     READLN (espacio2);

49.          WRITE ('Escriba el tiempo transcurrido: ');   READLN (tiempo2);

50.          WRITELN (' ');

51.   

52.          velocidad2:=(espacio2)/(tiempo2);

53.   

54.          WRITE (velocidad2:5:2); WRITE (' Km/h ');

55.  END.

7.      Escribir un programa en Pascal que calcule el volumen de una esfera: radio = 3
volumen de la esfera = 4/3 * PI * radio3

8.     PROGRAM EJER07;

9.             USES CRT;

10.          VAR radio:REAL;

11.          VAR volumen:REAL;

12.  BEGIN

13.          radio:=3;

14.          volumen:=(4/3)*3.1416*(radio*radio*radio);

15.   

16.          ClrScr;

17.                                         

18.          WRITE ('VOLUMEN DE LA ESFERA:');         WRITE(volumen);

19.  END.

20.  PROGRAM EJER7B;

21.          USES CRT;

22.          VAR radio:REAL;

23.          VAR volumen:REAL;

24.  BEGIN

25.          {Este programa calcula el volumen de una esfera}

26.   

27.          ClrScr;

28.   

29.          WRITELN ('PARA CALCULAR EL VOLUMEN DE LA ESFERA ESCRIBA EL RADIO: ');

30.          READLN (radio);

31.   

32.          volumen:=(4/3)*3.1416*(radio*radio*radio);

33.   

34.          WRITE ('VOLUMEN DE LA ESFERA: ');         WRITE(volumen:5:2);

35.  END.

8.      Escribir un programa en Pascal que evalúe la siguiente expresión: (a+7*c)/(b+2-a)+2*b, a = 3,b = 6,c = 4

9.     PROGRAM EJER08;

10.          USES CRT;

11.          VAR a,b,c:REAL;

12.          VAR resultado:REAL;

13.  BEGIN

14.          a:=3;

15.          b:=6;

16.          c:=4;

17.   

18.          resultado:=(a+7*c)/(b+2-a)+2*b;

19.   

20.          ClrScr;

21.   

22.          WRITE ('RESULTADO:');   WRITE (resultado:5);

23.  END.        

24.  PROGRAM EJER8B;

25.          USES CRT;

26.          VAR a,b,c:REAL;

27.          VAR resultado:REAL;

28.   

29.  BEGIN

30.          {Este programa calcula una expresion algebraica}

31.   

32.          ClrScr;

33.   

34.          WRITELN ('Este programa sirve para calcular la siguiente expresion:');

35.          WRITELN ('(a+7*c)/(b+2-a)+2*b');

36.          WRITELN (' ');

37.          WRITE ('Introduzca a: ');         READLN (a);

38.          WRITE ('Introduzca b: ');         READLN (b);

39.          WRITE ('Introduzca c: ');         READLN (c);

40.   

41.          resultado:=(a+7*c)/(b+2-a)+2*b;

42.          WRITELN (' ');

43.          WRITE ('RESULTADO: ');   WRITE (resultado:5:2);

44.   

45.  END.       

9.      Escribir un programa en Pascal que evalúe la siguiente expresión: (a+5) * 3 / 2 * b - b, a = 3,b = 6

10.  PROGRAM EJER09;

11.          USES CRT;

12.          VAR a,b:REAL;

13.          VAR resultado:REAL;

14.   

15.  BEGIN

16.          a:=3;

17.          b:=6;

18.   

19.          resultado:=((a+5)*3) / (2*b-b);

20.   

21.          ClrScr;

22.   

23.          WRITE ('RESULTADO: ');   WRITE(resultado:5:2);       

24.  END.

25.  PROGRAM EJER9B;

26.          USES CRT;

27.          VAR a,b:REAL;

28.          VAR resultado:REAL;

29.   

30.  BEGIN

31.          {Este programa calcula el resultado de una expresion algebraica}

32.   

33.          ClrScr;

34.   

35.          WRITE ('PARA CALCULAR LA SIGUIENTE EXPRESION: ');

36.          WRITELN ('((a+5)*3) / (2*b-b)');

37.          WRITELN (' ');

38.          WRITE ('Escriba a: ');  READ (a);

39.          WRITE ('Escriba b: ');  READ (b);

40.          WRITELN (' ');

41.   

42.          resultado:=((a+5)*3) / (2*b-b);

43.   

44.          WRITE ('RESULTADO: ');   WRITE(resultado:5:2);       

45.  END.

10.  Escribir un programa en Pascal que evalúe la siguiente expresión:

(-b + raízcuadrada(b2-4*a*c)/(2*a) (es la solución positiva de una ecuación de segundo grado)

PROGRAM EJER10;

        USES CRT;

        VAR a,b,c:REAL;

        VAR resultado:REAL;

 

BEGIN

        a:=6;

        b:=6;

        c:=1;

        resultado:=(-b+sqrt(sqr (b) - 4*a*c))/(2*a);

        ClrScr;

        WRITE ('RESULTADO:');   WRITE(resultado:5:2);

END.

PROGRAM EJER10B;

        USES CRT;

        VAR a,b,c:REAL;

        VAR resultado:REAL;

 

BEGIN

        {Calcula la incognita positiva de una ecuacion de 2º grado}

 

        ClrScr;

 

        WRITE ('Para calcular la incognita positiva de una ecuacion');

        WRITE (' de segundo grado escriba todas las variables:');

        WRITELN (' ');

        WRITELN (' ');

 

        WRITE ('Escriba a: ');      READLN (a);

        WRITE ('Escriba b; ');      READLN (b);

        WRITE ('Escriba c; ');      READLN (c);

        WRITELN (' ');

 

        resultado:=(-b +sqrt(sqr (b) - 4*a*c))/(2*a);

 

        WRITE ('RESULTADO: ');   WRITE(resultado:5:2);

END.