Ejercicios en Pascal II

Ejercicios en Pascal II

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.