Ejercicios en Pascal I

Ejercicios en Pascal I

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;

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;

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.