Trabajos de Pascal

1. Escribir un programa en Pascal que sume dos números:
2.
3. a = 4 b = 3
4.
5. PROGRAM EJER01;
6. var a,b,c:INTEGER;
7.
8. BEGIN
9.
10. {Empezamos con lo básico, un programa que escribe la suma de 2 numeros
11. en pantalla}
12.
13. a:=4;
14. b:=3;
15.
16. {Se asigna un valor cualquiera a las variables "a" y "b"}
17.
18. c:=a+b;
19.
20.WRITE (c); {Muestra en pantalla el valor de la suma}
21.
22. END.
23.
24.
25. PROGRAM EJER1B;
26. USES CRT;
27. VAR a,b,c:INTEGER;
28.
29. BEGIN
30. ClrScr;
31.
32. WRITELN ('Este programa suma dos numeros:');
33. WRITELN (' ');
34. WRITE ('Introduzca un numero: '); READLN (a);
35. WRITE('Introduzca otro numero: ' ); READLN (b);
36. WRITELN (' ');
37. c:=a+b;
38.
39. WRITE ('EL RESULTADO ES: ');
40. WRITE (c);
41.
42. END.
43.
44.
45.
46.
47. Escribir un programa en Pascal que sume, reste, multiplique y divida
48. dos números:
49.
50. x = 10 y = 2
51.
52. PROGRAM EJER02;
53. USES CRT; {Nos va a permitir limpiar la pantallajunto con
54. ClrScr}
55. VAR x,y:INTEGER;
56. VAR suma,rest,mult,divi:INTEGER;
57.
58. BEGIN
59. x:=10;
60. y:=2;
61.
62. suma:=x + y;
63. rest:=x - y;
64. mult:=x * y;
65. divi:=x div y;
66.
67. {Con estas 4 variables realizamos las cuatro operaciones aritméticas
68. fundamentales:
69. suma, resta,multiplicación y división}
70.
71. ClrScr; {Limpia la pantalla}
72.
73. WRITE ('SUMA:'); WRITELN (suma);
74. WRITE ('RESTA:'); WRITELN (rest);
75. WRITE ('MULTIPLICACION:'); WRITELN (mult);
76. WRITE ('DIVISION:'); WRITE (divi);
77.
78. END.
79.
80. PROGRAM EJER2B;
81. USES CRT;
82. VAR x,y:REAL;
83. VAR suma,rest,mult:REAL;84. VAR divi:REAL;
85.
86. {suma, resta, multiplica y divide 2 numeros reales}
87.
88. BEGIN
89. WRITELN ('Este programa suma,resta,multiplica y divide:');
90. WRITELN ('Escriba dos numeros reales');
91. WRITELN (' ');
92.
93.
94. READ (x);
95. READ (y);
96.
97. suma:=x + y;
98. rest:=x - y;
99.mult:=x * y;
100. divi:=x / y;
101.
102. ClrScr;
103.
104. WRITE ('SUMA:'); WRITELN (suma:3:0);
105. WRITE ('RESTA:'); WRITELN (rest:3:0);
106. WRITE ('MULTIPLICACION:'); WRITELN (mult:3:0);
107. WRITE ('DIVISION:'); WRITE (divi:5:2);
108.
109. END.
110.
111.
112.
113. Escribir un programaen Pascal que calcule el área de un
114. rectángulo:
115.
116. lado1 = 3 lado2 = 4
117. área del rectángulo=lado1 * lado2
118.
119. PROGRAM EJER03;
120. USES CRT;
121. VAR lado1,lado2:INTEGER;
122. VAR area:INTEGER;
123.
124. BEGIN
125.
126. {Este programa nos va a servir para calcular el area de un rectángulo}
127.
128. lado1:=3;
129.lado2:=4;
130. {Damos valores para las variables}
131.
132. area:=lado1*lado2; {Calculamos el area}
133.
134. ClrScr;
135.
136. WRITE ('AREA DEL RECTANGULO: '); WRITE (area); {Lo mostramos
137. en pantalla}
138.
139. END.
140.
141. PROGRAM EJER3B;
142. USES CRT;
143. VAR lado1,lado2:REAL;
144. VAR area:REAL;
145.146. BEGIN
147. {Este programa calcula el area de un rectangulo}
148.
149. ClrScr;
150.
151. WRITELN ('Escriba los lados del rectangulo');
152.
153. READ (lado1);
154. READ (lado2);
155. WRITELN (' ');
156.
157. area:=lado1*lado2;
158.
159. WRITE ('AREA DEL RECTANGULO:'); WRITE (area:5:2);
160.
161. END.
162....