1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
Escribir un programa en Pascal que sume dos nmeros:
a = 4
b = 3
PROGRAM EJER01;
var a,b,c:INTEGER;
BEGIN
{Empezamos con lo bsico, un programa que escribe la suma de 2 numeros
en pantalla}
a:=4;
b:=3;
{Se asigna un valor cualquiera a las variables "a" y "b"}
c:=a+b;
WRITE (c); {Muestra en pantalla el valor de la suma}
END.
PROGRAM EJER1B;
USES CRT;
VAR a,b,c:INTEGER;
BEGIN
ClrScr;
WRITELN ('Este programa suma dos numeros:');
WRITELN (' ');
WRITE ('Introduzca un numero: ');
READLN (a);
WRITE ('Introduzca otro numero: ' );
READLN (b);
WRITELN (' ');
c:=a+b;
WRITE ('EL RESULTADO ES: ');
WRITE (c);
END.
Escribir un programa en Pascal que sume, reste, multiplique y divida
dos nmeros:
x = 10
y = 2
PROGRAM EJER02;
USES CRT; {Nos va a permitir limpiar la pantalla junto con
ClrScr}
VAR x,y:INTEGER;
VAR suma,rest,mult,divi:INTEGER;
BEGIN
x:=10;
y:=2;
suma:=x
rest:=x
mult:=x
divi:=x
+ y;
- y;
* y;
div y;
{Con estas 4 variables realizamos las cuatro operaciones aritmticas
fundamentales:
suma, resta, multiplicacin y divisin}
ClrScr; {Limpia la pantalla}
WRITE
WRITE
WRITE
WRITE
('SUMA:');
('RESTA:');
('MULTIPLICACION:');
('DIVISION:');
WRITELN (suma);
WRITELN (rest);
WRITELN (mult);
WRITE (divi);
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 programa en Pascal que calcule el rea de un
114. rectngulo:
115.
116. lado1 = 3
lado2 = 4
117. rea del rectngulo=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 rectngulo}
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.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
WRITELN (' ');
area:=lado1*lado2;
WRITE ('AREA DEL RECTANGULO:');
WRITE (area:5:2);
END.
Escribir un programa en Pascal que calcule el rea de un
tringulo:
base = 7 altura = 4
rea del tringulo = (base * altura)/2
PROGRAM EJER04;
USES CRT;
VAR base,altura:REAL;
VAR area:REAL;
BEGIN
base:=7;
altura:=4;
area:=(base * altura) / 2;
ClrScr;
WRITE ('AREA DEL TRIANGULO: '); WRITE (area:5:2);
{:5:2 sirve para dar el formato de salida al numero, 5
posiciones y 2 decimales}
END.
PROGRAM EJER4B;
USES CRT;
VAR base,altura:REAL;
VAR area:REAL;
BEGIN
{Este programa sirve para calcular el area de un triangulo}
ClrScr;
WRITELN ('PARA CALCULAR EL AREA DE UN TRIANGULO:');
WRITELN (' ');
WRITE ('ESCRIBE LA BASE: ');
READLN (base);
WRITE ('ESCRIBE LA ALTURA: ');
READLN (altura);
WRITELN (' ');
area:=(base * altura) / 2;
WRITE ('EL AREA DEL TRIANGULO ES: ');
WRITE (area:5:2);
END.
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
PROGRAM EJER05;
USES CRT;
VAR radio:REAL;
VAR longitud,area:REAL;
BEGIN
radio:=4;
longitud:=2*3.1416*radio;
area:=3.1416*radio*radio;
ClrScr;
WRITE ('LONGITUD DE LA CIRCUNFERENCIA:'); WRITELN
(longitud:5:2);
WRITE ('AREA DE LA CIRCUNFERENCIA:');
WRITE (area:5:2);
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
END.
PROGRAM EJER5B;
USES CRT;
VAR radio:REAL;
VAR longitud,area:REAL;
BEGIN
{Este programa calcula la longitud y el area de una
circunferencia}
ClrScr;
WRITELN ('LONGITUD Y AREA DE UNA CIRCUNFERENCIA');
WRITELN (' ');
WRITE ('Escriba el radio: ');
READLN (radio);
WRITELN (' ');
longitud:=2*3.1416*radio;
area:=3.1416*radio*radio;
WRITE ('LONGITUD DE LA CIRCUNFERENCIA: '); WRITELN
(longitud:5:2);
WRITE ('AREA DE LA CIRCUNFERENCIA: ');
WRITE (area:5:2);
END.
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
PROGRAM EJER06;
USES CRT;
VAR espacio,tiempo:REAL;
VAR velocidad:REAL;
BEGIN
espacio:=2;
tiempo:=5;
velocidad:=(espacio*1000)/(tiempo*60);
ClrScr;
WRITE ('VELOCIDAD DEL PROYECTIL:');
WRITE (velocidad:5:2); WRITE ('m/s');
END.
PROGRAM EJER6B;
USES CRT;
VAR espacio,tiempo,espacio2,tiempo2:REAL;
VAR velocidad,velocidad2:REAL;
BEGIN
{Este programa calcula la velocidad de un cuerpo}
ClrScr;
WRITE ('Para calcular la velocidad debe escribirlo en
unidades ');
WRITE ('del sistema internacional');
WRITELN (' ');
WRITE ('Escriba el espacio recorrido: ');
READLN (espacio);
WRITE ('Escriba el tiempo transcurrido: ');
READLN (tiempo);
WRITELN (' ');
velocidad:=(espacio)/(tiempo);
WRITE ('VELOCIDAD DEL PROYECTIL: ');
WRITE (velocidad:5:2); WRITELN (' m/s');
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
WRITELN (' ');
WRITELN ('Si lo desea en Km/h introduzca los datos: ');
WRITELN (' ');
WRITE ('Escriba el espacio recorrido: ');
READLN (espacio2);
WRITE ('Escriba el tiempo transcurrido: ');
READLN (tiempo2);
WRITELN (' ');
velocidad2:=(espacio2)/(tiempo2);
WRITE (velocidad2:5:2); WRITE (' Km/h ');
END.
Escribir un programa en Pascal que calcule el volumen de una esfera:
radio = 3 volumen de la esfera = 4/3 * PI * radio3
PROGRAM EJER07;
USES CRT;
VAR radio:REAL;
VAR volumen:REAL;
BEGIN
radio:=3;
volumen:=(4/3)*3.1416*(radio*radio*radio);
ClrScr;
WRITE ('VOLUMEN DE LA ESFERA:');
WRITE(volumen);
END.
PROGRAM EJER7B;
USES CRT;
VAR radio:REAL;
VAR volumen:REAL;
BEGIN
{Este programa calcula el volumen de una esfera}
ClrScr;
WRITELN ('PARA CALCULAR EL VOLUMEN DE LA ESFERA ESCRIBA EL
RADIO: ');
READLN (radio);
volumen:=(4/3)*3.1416*(radio*radio*radio);
WRITE ('VOLUMEN DE LA ESFERA: ');
WRITE(volumen:5:2);
END.
Escribir un programa en Pascal que evale la siguiente expresin:
(a+7*c)/(b+2-a)+2*b
a = 3,b = 6,c = 4
PROGRAM EJER08;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;
BEGIN
a:=3;
b:=6;
c:=4;
resultado:=(a+7*c)/(b+2-a)+2*b;
ClrScr;
WRITE ('RESULTADO:');
END.
PROGRAM EJER8B;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;
WRITE (resultado:5);
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
415.
416.
417.
418.
419.
420.
421.
422.
423.
424.
425.
426.
427.
428.
429.
430.
431.
432.
433.
434.
435.
436.
437.
438.
439.
440.
441.
442.
443.
444.
445.
446.
447.
448.
449.
450.
451.
452.
453.
454.
455.
456.
457.
458.
459.
460.
461.
462.
BEGIN
{Este programa calcula una expresion algebraica}
ClrScr;
WRITELN ('Este programa sirve para calcular la siguiente
expresion:');
WRITELN ('(a+7*c)/(b+2-a)+2*b');
WRITELN (' ');
WRITE ('Introduzca a: ');
READLN (a);
WRITE ('Introduzca b: ');
READLN (b);
WRITE ('Introduzca c: ');
READLN (c);
resultado:=(a+7*c)/(b+2-a)+2*b;
WRITELN (' ');
WRITE ('RESULTADO: ');
WRITE (resultado:5:2);
END.
Escribir un programa en
Pascal que evale la siguiente expresin:
(a+5) * 3 / 2 * b - b
a = 3,b = 6
PROGRAM EJER09;
USES CRT;
VAR a,b:REAL;
VAR resultado:REAL;
BEGIN
a:=3;
b:=6;
resultado:=((a+5)*3) / (2*b-b);
ClrScr;
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
END.
PROGRAM EJER9B;
USES CRT;
VAR a,b:REAL;
VAR resultado:REAL;
BEGIN
{Este programa calcula el resultado de una expresion algebraica}
ClrScr;
WRITE ('PARA CALCULAR LA SIGUIENTE EXPRESION: ');
WRITELN ('((a+5)*3) / (2*b-b)');
WRITELN (' ');
WRITE ('Escriba a: '); READ (a);
WRITE ('Escriba b: '); READ (b);
WRITELN (' ');
resultado:=((a+5)*3) / (2*b-b);
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
END.
Escribir un programa en Pascal que evale la siguiente expresin:
(-b + razcuadrada(b2-4*a*c)/(2*a)
(es la solucin positiva de una ecuacin de 2 grado)
PROGRAM EJER10;
USES CRT;
463.
464.
465.
466.
467.
468.
469.
470.
471.
472.
473.
474.
475.
476.
477.
478.
479.
480.
481.
482.
483.
484.
485.
486.
487.
488.
489.
490.
491.
492.
493.
494.
495.
496.
497.
498.
499.
500.
501.
502.
503.
504.
505.
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: ');
WRITE ('Escriba b; ');
WRITE ('Escriba c; ');
WRITELN (' ');
READLN (a);
READLN (b);
READLN (c);
resultado:=(-b +sqrt(sqr (b) - 4*a*c))/(2*a);
WRITE ('RESULTADO: ');
END.
WRITE(resultado:5:2);