Ejercicios De Turbo Pascal 2y2w1n
This document was ed by and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this report form. Report 3i3n4
Overview 26281t
& View Ejercicios De Turbo Pascal as PDF for free.
More details 6y5l6z
- Words: 1,829
- Pages: 14
ASIGNACION DE PROGRAMACION Se pide elaborar en Pascal cada unos de los siguientes programas. 1) 2) 3) 4) 5) 6) 7) 8) 9)
Escribir un programa que sume dos números. Escribir un programa que sume, reste, multiplique y divida dos números. Escribir un programa que calcule el área de un rectángulo. Escribir un programa que calcule la longitud y el área de una circunferencia. Escribir un programa que calcule el volumen de una esfera. Escribir un programa que calcule el área y volumen de un Hexaedro. Escribir un programa que calcule el área y el volumen de un Prisma. Escribir un programa que calcule el área y el volumen de un Tetraedro y un Cono. Escriba un programa que permita resolver el sistema de ecuaciones lineales: aX + bY = c dX + eY = f
10) Una temperatura Celsius (Centígrado) ºC puede ser convertida a una temperatura equivalente ºF (Fahrenheit )de acuerdo a la siguiente formula: F = (9/5)*C + 32 Escriba un programa que permita leer la temperatura en Celsius y obtenga la temperatura en Fahrenheit. 11) Escriba un programa que dibuje el rectángulo siguiente: ************ * * * * * * ************ 12) Escriba un programa para convertir una medida dada en pies a sus equivalentes en: a) b) c) d)
Yarda Pulgadas Centímetros Metros
Nota: 1 pie = 12 pulgadas, 1 Yarda = 3 pies, 1 pulgada = 2,54 cm y 1 m = 100 cm.
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.
con
USES CRT; {Nos va a permitir limpiar la pantalla junto
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:');
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;
WRITELN (suma);
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.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: '); mostramos 137.
WRITE (area); {Lo
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. 160. 161.END. 162. 163. 164.
WRITE ('AREA DEL RECTANGULO:');
WRITE (area:5:2);
165. 166.Escribir un programa en Pascal que calcule el área de un 167.triángulo: 168. 169.base = 7 altura = 4
área del triángulo = (base * altura)/2
170. 171.PROGRAM EJER04; 172.
USES CRT;
173.
VAR base,altura:REAL;
174.
VAR area:REAL;
175.BEGIN 176.
base:=7;
177.
altura:=4;
178. 179.
area:=(base * altura) / 2;
180. 181.
ClrScr;
182. 183. 184.
WRITE ('AREA DEL TRIANGULO: ');
WRITE (area:5:2);
{:5:2 sirve para dar el formato de salida al numero, 5
185. posiciones y 2 decimales} 186.END. 187. 188. 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} 195. 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 (' ');
202. 203.
area:=(base * altura) / 2;
204. 205. WRITE ('EL AREA DEL TRIANGULO ES: '); (area:5:2);
WRITE
206.END. 207. 208. 209. 210.Escribir un programa que calcule la longitud y el área de una 211.circunferencia: 212. 213.radio = 4 214.
longitud de la circunferencia = 2 * PI * radio
área de la circunferencia = PI * radio2
215. 216.PROGRAM EJER05; 217.
USES CRT;
218.
VAR radio:REAL;
219.
VAR longitud,area:REAL;
220. 221.BEGIN 222.
radio:=4;
223.
longitud:=2*3.1416*radio;
224. 225.
area:=3.1416*radio*radio;
226. 227.
ClrScr;
228. 229.
WRITE ('LONGITUD DE LA CIRCUNFERENCIA:'); WRITELN
230. (longitud:5:2); 231. WRITE ('AREA DE LA CIRCUNFERENCIA:'); (area:5:2);
WRITE
232. 233.END. 234. 235. 236.PROGRAM EJER5B; 237.
USES CRT;
238.
VAR radio:REAL;
239.
VAR longitud,area:REAL;
240. 241.BEGIN 242.
{Este programa calcula la longitud y el area de una
243. circunferencia} 244. 245.
ClrScr;
246. 247.
WRITELN ('LONGITUD Y AREA DE UNA CIRCUNFERENCIA');
248.
WRITELN (' ');
249.
WRITE ('Escriba el radio: ');
250.
WRITELN (' ');
READLN (radio);
251. 252.
longitud:=2*3.1416*radio;
253. 254.
area:=3.1416*radio*radio;
255. 256. 257.
WRITE ('LONGITUD DE LA CIRCUNFERENCIA: '); WRITELN
258. (longitud:5:2); 259. WRITE ('AREA DE LA CIRCUNFERENCIA: '); (area:5:2);
WRITE
260. 261.END. 262. 263. 264. 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. 267. 268.Velocidad = espacio/tiempo 269. 270.PROGRAM EJER06; 271.
USES CRT;
272.
VAR espacio,tiempo:REAL;
273.
VAR velocidad:REAL;
274. 275.BEGIN 276.
espacio:=2;
277.
tiempo:=5;
278. 279.
velocidad:=(espacio*1000)/(tiempo*60);
280. 281.
ClrScr;
282. 283.
WRITE ('VELOCIDAD DEL PROYECTIL:');
284.
WRITE (velocidad:5:2); WRITE ('m/s');
285.END. 286. 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}
294. 295.
ClrScr;
296. 297.
WRITE ('Para calcular la velocidad debe escribirlo en
298. unidades '); 299.
WRITE ('del sistema internacional');
300.
WRITELN (' ');
301. WRITE ('Escriba el espacio recorrido: '); (espacio);
READLN
302. WRITE ('Escriba el tiempo transcurrido: '); (tiempo);
READLN
303.
WRITELN (' ');
304. 305.
velocidad:=(espacio)/(tiempo);
306. 307.
WRITE ('VELOCIDAD DEL PROYECTIL: ');
308.
WRITE (velocidad:5:2); WRITELN (' m/s');
309. 310.
WRITELN (' ');
311.
WRITELN ('Si lo desea en Km/h introduzca los datos: ');
312.
WRITELN (' ');
313. WRITE ('Escriba el espacio recorrido: '); (espacio2);
READLN
314. WRITE ('Escriba el tiempo transcurrido: '); (tiempo2);
READLN
315.
WRITELN (' ');
316. 317.
velocidad2:=(espacio2)/(tiempo2);
318. 319.
WRITE (velocidad2:5:2); WRITE (' Km/h ');
320.END. 321. 322. 323. 324. 325.Escribir un programa en Pascal que calcule el volumen de una esfera: 326. 327.radio = 3
volumen de la esfera = 4/3 * PI * radio3
328. 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);
336. 337.
ClrScr;
338. 339. WRITE ('VOLUMEN DE LA ESFERA:'); WRITE(volumen); 340.END. 341. 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}
348. 349.
ClrScr;
350. 351. EL
WRITELN ('PARA CALCULAR EL VOLUMEN DE LA ESFERA ESCRIBA
352. RADIO: '); 353.
READLN (radio);
354. 355.
volumen:=(4/3)*3.1416*(radio*radio*radio);
356. 357. WRITE ('VOLUMEN DE LA ESFERA: '); WRITE(volumen:5:2); 358.END. 359. 360. 361. 362.Escribir un programa en Pascal que evalúe la siguiente expresión: 363. 364.(a+7*c)/(b+2-a)+2*b 365. 366.PROGRAM EJER08; 367.
USES CRT;
a = 3,b = 6,c = 4
368.
VAR a,b,c:REAL;
369.
VAR resultado:REAL;
370.BEGIN 371.
a:=3;
372.
b:=6;
373.
c:=4;
374. 375.
resultado:=(a+7*c)/(b+2-a)+2*b;
376. 377.
ClrScr;
378. 379.
WRITE ('RESULTADO:');
WRITE (resultado:5);
380.END. 381. 382.PROGRAM EJER8B; 383.
USES CRT;
384.
VAR a,b,c:REAL;
385.
VAR resultado:REAL;
386. 387.BEGIN 388.
{Este programa calcula una expresion algebraica}
389. 390.
ClrScr;
391. 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);
399. 400.
resultado:=(a+7*c)/(b+2-a)+2*b;
401.
WRITELN (' ');
402.
WRITE ('RESULTADO: ');
WRITE (resultado:5:2);
403. 404.END. 405. 406. 407. 408.Escribir un programa en expresión:
Pascal que evalúe la siguiente
409. 410.(a+5) * 3 / 2 * b - b
a = 3,b = 6
411. 412.PROGRAM EJER09; 413.
USES CRT;
414.
VAR a,b:REAL;
415.
VAR resultado:REAL;
416. 417.BEGIN 418.
a:=3;
419.
b:=6;
420. 421.
resultado:=((a+5)*3) / (2*b-b);
422. 423.
ClrScr;
424. 425.
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
426. 427. 428.END. 429. 430.PROGRAM EJER9B; 431.
USES CRT;
432.
VAR a,b:REAL;
433.
VAR resultado:REAL;
434. 435.BEGIN 436. {Este programa calcula el resultado de una expresion algebraica} 437. 438.
ClrScr;
439. 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 (' ');
446. 447.
resultado:=((a+5)*3) / (2*b-b);
448. 449. 450.
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
451. 452.END. 453. 454. 455. 456.Escribir un programa en Pascal que evalúe la siguiente expresión: 457. 458.(-b + raízcuadrada(b2-4*a*c)/(2*a) 459.(es la solución positiva de una ecuación de 2º grado) 460. 461.PROGRAM EJER10; 462.
USES CRT;
463.
VAR a,b,c:REAL;
464.
VAR resultado:REAL;
465. 466.BEGIN 467.
a:=6;
468.
b:=6;
469.
c:=1;
470. 471.
resultado:=(-b+sqrt(sqr (b) - 4*a*c))/(2*a);
472. 473.
ClrScr;
474. 475.
WRITE ('RESULTADO:');
WRITE(resultado:5:2);
476. 477.END. 478. 479. 480.PROGRAM EJER10B; 481.
USES CRT;
482.
VAR a,b,c:REAL;
483.
VAR resultado:REAL;
484. 485.BEGIN 486. grado}
{Calcula la incognita positiva de una ecuacion de 2º
487. 488.
ClrScr;
489. 490. WRITE ('Para calcular la incognita positiva de una ecuacion');
491. WRITE (' de segundo grado escriba todas las variables:'); 492.
WRITELN (' ');
493.
WRITELN (' ');
494. 495.
WRITE ('Escriba a: ');
READLN (a);
496.
WRITE ('Escriba b; ');
READLN (b);
497.
WRITE ('Escriba c; ');
READLN (c);
498.
WRITELN (' ');
499. 500.
resultado:=(-b +sqrt(sqr (b) - 4*a*c))/(2*a);
501. 502. 503. 504.END. 505.
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
Escribir un programa que sume dos números. Escribir un programa que sume, reste, multiplique y divida dos números. Escribir un programa que calcule el área de un rectángulo. Escribir un programa que calcule la longitud y el área de una circunferencia. Escribir un programa que calcule el volumen de una esfera. Escribir un programa que calcule el área y volumen de un Hexaedro. Escribir un programa que calcule el área y el volumen de un Prisma. Escribir un programa que calcule el área y el volumen de un Tetraedro y un Cono. Escriba un programa que permita resolver el sistema de ecuaciones lineales: aX + bY = c dX + eY = f
10) Una temperatura Celsius (Centígrado) ºC puede ser convertida a una temperatura equivalente ºF (Fahrenheit )de acuerdo a la siguiente formula: F = (9/5)*C + 32 Escriba un programa que permita leer la temperatura en Celsius y obtenga la temperatura en Fahrenheit. 11) Escriba un programa que dibuje el rectángulo siguiente: ************ * * * * * * ************ 12) Escriba un programa para convertir una medida dada en pies a sus equivalentes en: a) b) c) d)
Yarda Pulgadas Centímetros Metros
Nota: 1 pie = 12 pulgadas, 1 Yarda = 3 pies, 1 pulgada = 2,54 cm y 1 m = 100 cm.
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.
con
USES CRT; {Nos va a permitir limpiar la pantalla junto
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:');
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;
WRITELN (suma);
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.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: '); mostramos 137.
WRITE (area); {Lo
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. 160. 161.END. 162. 163. 164.
WRITE ('AREA DEL RECTANGULO:');
WRITE (area:5:2);
165. 166.Escribir un programa en Pascal que calcule el área de un 167.triángulo: 168. 169.base = 7 altura = 4
área del triángulo = (base * altura)/2
170. 171.PROGRAM EJER04; 172.
USES CRT;
173.
VAR base,altura:REAL;
174.
VAR area:REAL;
175.BEGIN 176.
base:=7;
177.
altura:=4;
178. 179.
area:=(base * altura) / 2;
180. 181.
ClrScr;
182. 183. 184.
WRITE ('AREA DEL TRIANGULO: ');
WRITE (area:5:2);
{:5:2 sirve para dar el formato de salida al numero, 5
185. posiciones y 2 decimales} 186.END. 187. 188. 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} 195. 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 (' ');
202. 203.
area:=(base * altura) / 2;
204. 205. WRITE ('EL AREA DEL TRIANGULO ES: '); (area:5:2);
WRITE
206.END. 207. 208. 209. 210.Escribir un programa que calcule la longitud y el área de una 211.circunferencia: 212. 213.radio = 4 214.
longitud de la circunferencia = 2 * PI * radio
área de la circunferencia = PI * radio2
215. 216.PROGRAM EJER05; 217.
USES CRT;
218.
VAR radio:REAL;
219.
VAR longitud,area:REAL;
220. 221.BEGIN 222.
radio:=4;
223.
longitud:=2*3.1416*radio;
224. 225.
area:=3.1416*radio*radio;
226. 227.
ClrScr;
228. 229.
WRITE ('LONGITUD DE LA CIRCUNFERENCIA:'); WRITELN
230. (longitud:5:2); 231. WRITE ('AREA DE LA CIRCUNFERENCIA:'); (area:5:2);
WRITE
232. 233.END. 234. 235. 236.PROGRAM EJER5B; 237.
USES CRT;
238.
VAR radio:REAL;
239.
VAR longitud,area:REAL;
240. 241.BEGIN 242.
{Este programa calcula la longitud y el area de una
243. circunferencia} 244. 245.
ClrScr;
246. 247.
WRITELN ('LONGITUD Y AREA DE UNA CIRCUNFERENCIA');
248.
WRITELN (' ');
249.
WRITE ('Escriba el radio: ');
250.
WRITELN (' ');
READLN (radio);
251. 252.
longitud:=2*3.1416*radio;
253. 254.
area:=3.1416*radio*radio;
255. 256. 257.
WRITE ('LONGITUD DE LA CIRCUNFERENCIA: '); WRITELN
258. (longitud:5:2); 259. WRITE ('AREA DE LA CIRCUNFERENCIA: '); (area:5:2);
WRITE
260. 261.END. 262. 263. 264. 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. 267. 268.Velocidad = espacio/tiempo 269. 270.PROGRAM EJER06; 271.
USES CRT;
272.
VAR espacio,tiempo:REAL;
273.
VAR velocidad:REAL;
274. 275.BEGIN 276.
espacio:=2;
277.
tiempo:=5;
278. 279.
velocidad:=(espacio*1000)/(tiempo*60);
280. 281.
ClrScr;
282. 283.
WRITE ('VELOCIDAD DEL PROYECTIL:');
284.
WRITE (velocidad:5:2); WRITE ('m/s');
285.END. 286. 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}
294. 295.
ClrScr;
296. 297.
WRITE ('Para calcular la velocidad debe escribirlo en
298. unidades '); 299.
WRITE ('del sistema internacional');
300.
WRITELN (' ');
301. WRITE ('Escriba el espacio recorrido: '); (espacio);
READLN
302. WRITE ('Escriba el tiempo transcurrido: '); (tiempo);
READLN
303.
WRITELN (' ');
304. 305.
velocidad:=(espacio)/(tiempo);
306. 307.
WRITE ('VELOCIDAD DEL PROYECTIL: ');
308.
WRITE (velocidad:5:2); WRITELN (' m/s');
309. 310.
WRITELN (' ');
311.
WRITELN ('Si lo desea en Km/h introduzca los datos: ');
312.
WRITELN (' ');
313. WRITE ('Escriba el espacio recorrido: '); (espacio2);
READLN
314. WRITE ('Escriba el tiempo transcurrido: '); (tiempo2);
READLN
315.
WRITELN (' ');
316. 317.
velocidad2:=(espacio2)/(tiempo2);
318. 319.
WRITE (velocidad2:5:2); WRITE (' Km/h ');
320.END. 321. 322. 323. 324. 325.Escribir un programa en Pascal que calcule el volumen de una esfera: 326. 327.radio = 3
volumen de la esfera = 4/3 * PI * radio3
328. 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);
336. 337.
ClrScr;
338. 339. WRITE ('VOLUMEN DE LA ESFERA:'); WRITE(volumen); 340.END. 341. 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}
348. 349.
ClrScr;
350. 351. EL
WRITELN ('PARA CALCULAR EL VOLUMEN DE LA ESFERA ESCRIBA
352. RADIO: '); 353.
READLN (radio);
354. 355.
volumen:=(4/3)*3.1416*(radio*radio*radio);
356. 357. WRITE ('VOLUMEN DE LA ESFERA: '); WRITE(volumen:5:2); 358.END. 359. 360. 361. 362.Escribir un programa en Pascal que evalúe la siguiente expresión: 363. 364.(a+7*c)/(b+2-a)+2*b 365. 366.PROGRAM EJER08; 367.
USES CRT;
a = 3,b = 6,c = 4
368.
VAR a,b,c:REAL;
369.
VAR resultado:REAL;
370.BEGIN 371.
a:=3;
372.
b:=6;
373.
c:=4;
374. 375.
resultado:=(a+7*c)/(b+2-a)+2*b;
376. 377.
ClrScr;
378. 379.
WRITE ('RESULTADO:');
WRITE (resultado:5);
380.END. 381. 382.PROGRAM EJER8B; 383.
USES CRT;
384.
VAR a,b,c:REAL;
385.
VAR resultado:REAL;
386. 387.BEGIN 388.
{Este programa calcula una expresion algebraica}
389. 390.
ClrScr;
391. 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);
399. 400.
resultado:=(a+7*c)/(b+2-a)+2*b;
401.
WRITELN (' ');
402.
WRITE ('RESULTADO: ');
WRITE (resultado:5:2);
403. 404.END. 405. 406. 407. 408.Escribir un programa en expresión:
Pascal que evalúe la siguiente
409. 410.(a+5) * 3 / 2 * b - b
a = 3,b = 6
411. 412.PROGRAM EJER09; 413.
USES CRT;
414.
VAR a,b:REAL;
415.
VAR resultado:REAL;
416. 417.BEGIN 418.
a:=3;
419.
b:=6;
420. 421.
resultado:=((a+5)*3) / (2*b-b);
422. 423.
ClrScr;
424. 425.
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
426. 427. 428.END. 429. 430.PROGRAM EJER9B; 431.
USES CRT;
432.
VAR a,b:REAL;
433.
VAR resultado:REAL;
434. 435.BEGIN 436. {Este programa calcula el resultado de una expresion algebraica} 437. 438.
ClrScr;
439. 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 (' ');
446. 447.
resultado:=((a+5)*3) / (2*b-b);
448. 449. 450.
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
451. 452.END. 453. 454. 455. 456.Escribir un programa en Pascal que evalúe la siguiente expresión: 457. 458.(-b + raízcuadrada(b2-4*a*c)/(2*a) 459.(es la solución positiva de una ecuación de 2º grado) 460. 461.PROGRAM EJER10; 462.
USES CRT;
463.
VAR a,b,c:REAL;
464.
VAR resultado:REAL;
465. 466.BEGIN 467.
a:=6;
468.
b:=6;
469.
c:=1;
470. 471.
resultado:=(-b+sqrt(sqr (b) - 4*a*c))/(2*a);
472. 473.
ClrScr;
474. 475.
WRITE ('RESULTADO:');
WRITE(resultado:5:2);
476. 477.END. 478. 479. 480.PROGRAM EJER10B; 481.
USES CRT;
482.
VAR a,b,c:REAL;
483.
VAR resultado:REAL;
484. 485.BEGIN 486. grado}
{Calcula la incognita positiva de una ecuacion de 2º
487. 488.
ClrScr;
489. 490. WRITE ('Para calcular la incognita positiva de una ecuacion');
491. WRITE (' de segundo grado escriba todas las variables:'); 492.
WRITELN (' ');
493.
WRITELN (' ');
494. 495.
WRITE ('Escriba a: ');
READLN (a);
496.
WRITE ('Escriba b; ');
READLN (b);
497.
WRITE ('Escriba c; ');
READLN (c);
498.
WRITELN (' ');
499. 500.
resultado:=(-b +sqrt(sqr (b) - 4*a*c))/(2*a);
501. 502. 503. 504.END. 505.
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
Related Documents 3h463d
Ejercicios De Turbo Pascal 2y2w1n
February 2023 0
Ejercicios Resueltos En Turbo Pascal 29d3p
November 2019 101
Turbo Pascal Strings 636q53
November 2021 0
Daigrama De Flujo. Turbo Pascal 294w3k
April 2023 0
El Lenguaje De Turbo Pascal 2jt65
June 2021 0