Ejercios pascal

Solo disponible en BuenasTareas
  • Páginas : 12 (2784 palabras )
  • Descarga(s) : 0
  • Publicado : 9 de febrero de 2011
Leer documento completo
Vista previa del texto
io
numeros[4]: entero // Aqui declaramos un vector entero para almacenar los numeros
i: entero // una variable que sirve de contadora
j: Entero // otro contador
temp: entero // una variable temporal para guardar datos, metodo burbuja
para(i=1,in³ entonces
mayor_ n²
sino
mayor_ n
fin si
imprimir mayor
fin

Autor:
Nadezhda Espada Flores

1.Escribir un programa que lea tres números enteros e indique
2. si están o no, en orden numérico ascendente o descendente.
3.
4.
5. PROGRAM EJER_001;
6. Uses Crt;
7. var num1,num2,num3:Integer;
8.
9. Begin
10. ClrScr;
11.
12. WRITELN('Introduzca tres numeros:');
13. WRITE('Numero 1: '); READLN(num1);
14. WRITE('Numero 2: '); READLN(num2);
15.WRITE('Numero 3: '); READLN(num3);
16.
17. WRITELN;
18. WRITELN;
19.
20. If (num1 > num2) and (num2 > num3) then
21. WRITELN('Ha introducido los numeros en orden decreciente.')
22. Else if (num1 < num2) and (num2 < num3) then
23. WRITELN('Ha introducido los numeros en orden creciente.')
24. Else
25. WRITELN('No ha introducido los numeros enorden.');
26. End.
27.
28.
29.
30. Escribir un programa que lea 5 valores de temperatura, y escriba el
31. número de veces que estuvo bajo 0º.
32.
33.
34. PROGRAM EJER_002;
35. Uses Crt;
36. var temp,i,cont:Integer;
37. Begin
38. WRITELN ('Introduzca 5 valores de temperatura:');
39. WRITELN;
40.
41. cont := 0;
42.
43. For i := 0 to 4 do
44.Begin
45. WRITE('Valor ',i + 1,' : '); {i + 1 mostrará valores
46. del 1 al 5}
47. Readln(temp);
48. If temp < 0 Then
49. inc(cont); {cont = cont + 1}
50. End;
51.
52. WRITELN;
53. WRITE('La temperatura ha estado ',cont);
54.
55. If cont = 1 then
56. WRITE (' vez bajo 0')
57. Else58. WRITE (' veces bajo 0');
59. End.
60.
61.
62.
63. Se realiza un examen, se piden las notas del número de alumnos
64. introducidos por el usuario, las cuales pueden ser únicamente enteras
65. entre 0 y 10. Debe decirse cuantos 0, 5 y 10 han aparecido. También
66. deben decirse las notas introducidas que no sean 0, 5 o 10.
67.
68.
69. PROGRAM EJER_003;
70. Uses Crt;71. var cero, cinco, diez: Integer;
72. var nota, i, alumnos: Integer;
73. var notas_no: Array [1..30] of Integer;
74.
75. Begin
76. ClrScr;
77.
78. WRITE('Introduzca el numero de alumnos: '); READLN(alumnos);
79. WRITELN;
80.
81. WRITELN('Introduzca las calificaciones: (en valores enteros) ');
82. WRITELN;
83. For i := 1 toalumnos do
84. Begin
85. WRITE('Alumno: '); READLN(nota);
86. If nota = 0 then inc(cero)
87. else if nota = 5 then inc(cinco)
88. else if nota = 10 then inc(diez)
89. else
90. notas_no[i] := nota;
91. End;
92.
93. WRITELN;
94. WRITE('Ha habido ',cero);
95.If cero = 1 then WRITELN(' cero.') else WRITELN
96. (' ceros.');
97. WRITE('Ha habido ',cinco);
98. If cinco = 1 then WRITELN(' cinco.') else WRITELN
99. (' cincos.');
100. WRITE('Ha habido ',diez);
101. If diez = 1 then WRITELN(' diez.') else WRITELN
102. (' dieces.');
103. WRITELN;
104. WRITELN('Las notas aparecidasque no son 0, 5 o 10 son: ');
105. For i := 1 to i DO
106. IF notas_no[i] 0 then WRITE(notas_no[i],', ');
107. END.
108.
109.
110.
111. Decir el numero de vocales que aparecen en una frase introducida por
112. el usuario. Debe acabar con un punto.
113.
114.
115. PROGRAM EJER_004;
116. Uses Crt;
117. Const vocales: Set of Char =...
tracking img