Ejercicios pascal para la casa

1. Escribir un programa en Pascal que sume dos números:
3. a = 4        b = 3
5. PROGRAM EJER01;
6.         var a,b,c:INTEGER;
8. BEGIN
10. {Empezamos con lo básico, un programa que escribe la suma de 2 numeros
11. en pantalla}
13.         a:=4;
14.         b:=3;
16. {Se asigna un valor cualquiera a las variables "a" y "b"}
18.         c:=a+b;
20.                 WRITE (c); {Muestra en pantalla el valor de la suma}
22. END.
25. PROGRAM EJER1B;
26.         USES CRT;
27.         VAR a,b,c:INTEGER;
29. BEGIN
30.         ClrScr;
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;
39.         WRITE ('EL RESULTADO ES: ');
40.         WRITE (c);
42. END.
47. Escribir un programa en Pascal que sume, reste, multiplique y divida
48. dos números:
50. x = 10        y = 2
52. PROGRAM EJER02;
53.         USES CRT; {Nos va a permitir limpiar la pantalla junto con
54.         ClrScr}
55.         VAR x,y:INTEGER;
56.         VAR suma,rest,mult,divi:INTEGER;
58. BEGIN
59.         x:=10;
60.         y:=2;
62.         suma:=x + y;
63.         rest:=x - y;
64.         mult:=x * y;
65.         divi:=x div y;
67. {Con estas 4 variables realizamos las cuatro operaciones aritméticas
68. fundamentales:
69.  suma, resta, multiplicación y división}
71.         ClrScr; {Limpia la pantalla}
73.         WRITE ('SUMA:');                WRITELN (suma);
74.         WRITE ('RESTA:');                WRITELN (rest);
75.         WRITE ('MULTIPLICACION:');        WRITELN (mult);
76.         WRITE ('DIVISION:');                WRITE (divi);
78. END.
80. PROGRAM EJER2B;
81.         USES CRT;
82.         VAR x,y:REAL;
83.         VAR suma,rest,mult:REAL;
84.         VAR divi:REAL;
86.         {suma, resta, multiplica y divide 2 numeros reales}
88. BEGIN
89.         WRITELN ('Este programa suma,resta,multiplica y divide:');
90.         WRITELN ('Escriba dos numeros reales');
91.         WRITELN (' ');
94.         READ (x);
95.         READ (y);
97.         suma:=x + y;
98.         rest:=x - y;
99.         mult:=x * y;
100.         divi:=x / y;
102.         ClrScr;
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);
109. END.
113. Escribir un programa en Pascal que calcule el área de un
114. rectángulo:
116. lado1 = 3         lado2 = 4
117. área del rectángulo=lado1 * lado2
119. PROGRAM EJER03;
120.         USES CRT;
121.         VAR lado1,lado2:INTEGER;
122.         VAR area:INTEGER;
124. BEGIN
126. {Este programa nos va a servir para calcular el area de un rectángulo}
128.         lado1:=3;
129.         lado2:=4;
130.        {Damos valores para las variables}
132.         area:=lado1*lado2; {Calculamos el area}
134.         ClrScr;
136.         WRITE ('AREA DEL RECTANGULO: ');  WRITE (area); {Lo mostramos
137.                 en pantalla}
139. END.
141. PROGRAM EJER3B;
142.         USES CRT;
143.         VAR lado1,lado2:REAL;
144.         VAR area:REAL;
146. BEGIN
147.         {Este programa calcula el area de un rectangulo}
149.         ClrScr;
151.         WRITELN ('Escriba los lados del rectangulo');
153.         READ (lado1);
154.         READ (lado2);
155.         WRITELN (' ');
157.         area:=lado1*lado2;
159.         WRITE ('AREA DEL RECTANGULO:');  WRITE (area:5:2);
161. END.
166. Escribir un programa en Pascal que calcule el área de un
167. triángulo:
169. base = 7        altura = 4        área del triángulo = (base * altura)/2
171. PROGRAM EJER04;
172.         USES CRT;
173.         VAR base,altura:REAL;
174.         VAR area:REAL;
175. BEGIN
176.         base:=7;
177.         altura:=4;
179.         area:=(base * altura) / 2;
181.         ClrScr;
183.         WRITE ('AREA DEL TRIANGULO: ');  WRITE (area:5:2);
184.        {:5:2 sirve para dar el formato de salida al numero, 5
185.         posiciones y 2 decimales}
186. END.
189. PROGRAM EJER4B;
190.         USES CRT;
191.         VAR base,altura:REAL;
192.         VAR area:REAL;
193. BEGIN
194.         {Este programa sirve para calcular el area de un triangulo}
196.         ClrScr;
197.         WRITELN ('PARA CALCULAR EL AREA DE UN TRIANGULO:');
198.         WRITELN (' ');
199.         WRITE ('ESCRIBE LA BASE: ');            READLN (base);
200.         WRITE ('ESCRIBE LA ALTURA: ');          READLN (altura);
201.         WRITELN (' ');
203.         area:=(base * altura) / 2;
205.         WRITE ('EL AREA DEL TRIANGULO ES: ');  WRITE (area:5:2);
206. END.
210. Escribir un programa que calcule la longitud y el área de una
211. circunferencia:
213. radio = 4        longitud de la circunferencia = 2 * PI * radio
214.                 área de la circunferencia = PI * radio2
216. PROGRAM EJER05;
217.         USES CRT;
218.         VAR radio:REAL;
219.         VAR longitud,area:REAL;
221. BEGIN
222.         radio:=4;
223.         longitud:=2*3.1416*radio;
225.         area:=3.1416*radio*radio;
227.         ClrScr;
229.         WRITE ('LONGITUD DE LA CIRCUNFERENCIA:'); WRITELN
230.         (longitud:5:2);
231.         WRITE ('AREA DE LA CIRCUNFERENCIA:');          WRITE (area:5:2);
233. END.
236. PROGRAM EJER5B;
237.         USES CRT;
238.         VAR radio:REAL;
239.         VAR longitud,area:REAL;
241. BEGIN
242.         {Este programa calcula la longitud y el area de una
243.         circunferencia}
245.         ClrScr;
247.         WRITELN ('LONGITUD Y AREA DE UNA CIRCUNFERENCIA');
248.         WRITELN (' ');
249.         WRITE ('Escriba el radio: ');         READLN (radio);
250.         WRITELN (' ');
252.         longitud:=2*3.1416*radio;
254.         area:=3.1416*radio*radio;
257.         WRITE ('LONGITUD DE LA CIRCUNFERENCIA: '); WRITELN
258.         (longitud:5:2);
259.         WRITE ('AREA DE LA CIRCUNFERENCIA: ');     WRITE (area:5:2);
261. END.
265. Escribir un programa en Pascal que calcule la velocidad de un proyectil
266. que recorre 2 Km en 5 minutos. Expresar el resultado en metros/segundo.
268. Velocidad = espacio/tiempo
270. PROGRAM EJER06;
271.         USES CRT;
272.         VAR espacio,tiempo:REAL;
273.         VAR velocidad:REAL;
275. BEGIN
276.         espacio:=2;
277.         tiempo:=5;
279.         velocidad:=(espacio*1000)/(tiempo*60);
281.         ClrScr;
283.         WRITE ('VELOCIDAD DEL PROYECTIL:');
284.         WRITE (velocidad:5:2); WRITE ('m/s');
285. END.
287.                
288. PROGRAM EJER6B;
289.         USES CRT;
290.         VAR espacio,tiempo,espacio2,tiempo2:REAL;
291.         VAR velocidad,velocidad2:REAL;
292. BEGIN
293.         {Este programa calcula la velocidad de un cuerpo}
295.         ClrScr;
297.         WRITE ('Para calcular la velocidad debe escribirlo en
298.         unidades ');
299.         WRITE ('del sistema internacional');
300.         WRITELN (' ');
301.         WRITE ('Escriba el espacio recorrido: ');       READLN (espacio);
302.         WRITE ('Escriba el tiempo transcurrido: ');     READLN (tiempo);
303.         WRITELN (' ');
305.         velocidad:=(espacio)/(tiempo);
307.         WRITE ('VELOCIDAD DEL PROYECTIL: ');
308.         WRITE (velocidad:5:2); WRITELN (' m/s');
310.         WRITELN (' ');
311.         WRITELN ('Si lo desea en Km/h introduzca los datos: ');
312.         WRITELN (' ');
313.         WRITE ('Escriba el espacio recorrido: ');     READLN (espacio2);
314.         WRITE ('Escriba el tiempo transcurrido: ');   READLN (tiempo2);
315.         WRITELN (' ');
317.         velocidad2:=(espacio2)/(tiempo2);
319.         WRITE (velocidad2:5:2); WRITE (' Km/h ');
320. END.
325. Escribir un programa en Pascal que calcule el volumen de una esfera:
327. radio = 3        volumen de la esfera = 4/3 * PI * radio3
329. PROGRAM EJER07;
330.         USES CRT;
331.         VAR radio:REAL;
332.         VAR volumen:REAL;
333. BEGIN
334.         radio:=3;
335.         volumen:=(4/3)*3.1416*(radio*radio*radio);
337.         ClrScr;
338.                                        
339.         WRITE ('VOLUMEN DE LA ESFERA:');         WRITE(volumen);
340. END.
342. PROGRAM EJER7B;
343.         USES CRT;
344.         VAR radio:REAL;
345.         VAR volumen:REAL;
346. BEGIN
347.         {Este programa calcula el volumen de una esfera}
349.         ClrScr;
351.         WRITELN ('PARA CALCULAR EL VOLUMEN DE LA ESFERA ESCRIBA EL
352.         RADIO: ');
353.         READLN (radio);
355.         volumen:=(4/3)*3.1416*(radio*radio*radio);
357.         WRITE ('VOLUMEN DE LA ESFERA: ');         WRITE(volumen:5:2);
358. END.
362. Escribir un programa en Pascal que evalúe la siguiente expresión:
364. (a+7*c)/(b+2-a)+2*b                a = 3,b = 6,c = 4
366. PROGRAM EJER08;
367.         USES CRT;
368.         VAR a,b,c:REAL;
369.         VAR resultado:REAL;
370. BEGIN
371.         a:=3;
372.         b:=6;
373.         c:=4;
375.         resultado:=(a+7*c)/(b+2-a)+2*b;
377.         ClrScr;
379.         WRITE ('RESULTADO:');   WRITE (resultado:5);
380. END.        
382. PROGRAM EJER8B;
383.         USES CRT;
384.         VAR a,b,c:REAL;
385.         VAR resultado:REAL;
387. BEGIN
388.         {Este programa calcula una expresion algebraica}
390.         ClrScr;
392.         WRITELN ('Este programa sirve para calcular la siguiente
393.         expresion:');
394.         WRITELN ('(a+7*c)/(b+2-a)+2*b');
395.         WRITELN (' ');
396.         WRITE ('Introduzca a: ');         READLN (a);
397.         WRITE ('Introduzca b: ');         READLN (b);
398.         WRITE ('Introduzca c: ');         READLN (c);
400.         resultado:=(a+7*c)/(b+2-a)+2*b;
401.         WRITELN (' ');
402.         WRITE ('RESULTADO: ');   WRITE (resultado:5:2);
404. END.        
408. Escribir un programa en  Pascal que evalúe la siguiente expresión:
410. (a+5) * 3 / 2 * b - b        a = 3,b = 6
412. PROGRAM EJER09;
413.         USES CRT;
414.         VAR a,b:REAL;
415.         VAR resultado:REAL;
417. BEGIN
418.         a:=3;
419.         b:=6;
421.         resultado:=((a+5)*3) / (2*b-b);
423.         ClrScr;
425.         WRITE ('RESULTADO: ');   WRITE(resultado:5:2);
427.        
428. END.
430. PROGRAM EJER9B;
431.         USES CRT;
432.         VAR a,b:REAL;
433.         VAR resultado:REAL;
435. BEGIN
436.         {Este programa calcula el resultado de una expresion algebraica}
438.         ClrScr;
440.         WRITE ('PARA CALCULAR LA SIGUIENTE EXPRESION: ');
441.         WRITELN ('((a+5)*3) / (2*b-b)');
442.         WRITELN (' ');
443.         WRITE ('Escriba a: ');  READ (a);
444.         WRITE ('Escriba b: ');  READ (b);
445.         WRITELN (' ');
447.         resultado:=((a+5)*3) / (2*b-b);
449.         WRITE ('RESULTADO: ');   WRITE(resultado:5:2);
451.        
452. END.
456. Escribir un programa en Pascal que evalúe la siguiente expresión:
458. (-b + raízcuadrada(b2-4*a*c)/(2*a)
459. (es la solución positiva de una ecuación de 2º grado)
461. PROGRAM EJER10;
462.         USES CRT;
463.         VAR a,b,c:REAL;
464.         VAR resultado:REAL;
466. BEGIN
467.         a:=6;
468.         b:=6;
469.         c:=1;
471.         resultado:=(-b+sqrt(sqr (b) - 4*a*c))/(2*a);
473.         ClrScr;
475.         WRITE ('RESULTADO:');   WRITE(resultado:5:2);
477. END.
480. PROGRAM EJER10B;
481.         USES CRT;
482.         VAR a,b,c:REAL;
483.         VAR resultado:REAL;
485. BEGIN
486.         {Calcula la incognita positiva de una ecuacion de 2º grado}
488.         ClrScr;
490.         WRITE ('Para calcular la incognita positiva de una ecuacion');
491.         WRITE (' de segundo grado escriba todas las variables:');
492.         WRITELN (' ');
493.         WRITELN (' ');
495.         WRITE ('Escriba a: ');      READLN (a);
496.         WRITE ('Escriba b; ');      READLN (b);
497.         WRITE ('Escriba c; ');      READLN (c);
498.         WRITELN (' ');
500.         resultado:=(-b +sqrt(sqr (b) - 4*a*c))/(2*a);
502.         WRITE ('RESULTADO: ');   WRITE(resultado:5:2);
504. END.

...