mecanica vectorial

1. A partir de las cadenas de caracteres 70809207 y Q, construir y
2. visualizar en la pantalla la cadena 70809207-Q.
3.
4. PROGRAM EJER61;
5. USES CRT;
6.
7. VAR numero:LONGINT;
8. VAR letra:STRING;
9. BEGIN
10. ClrScr;
11.
12. numero:=56789312;
13. letra:='F';
14.
15. WRITE ('EL NUMERO DEL DNI ES: ');
16. WRITE (numero,'-',+letra);
17. END.
18.
19.
20. PROGRAM EJER61;
21. USES CRT;
22. VAR cad1,cad2:STRING;
23. BEGIN
24. cad1:='56789312';
25. cad2:='X';
26.
27. ClrScr;
28.
29. WRITE('NIF:' + cad1 + '-' + cad2);
30. END.
31.
32.
33. Transformar la cadena "Esto es una prueba", en la cadena "Esto es
34. prueba".
35. Utilizar la función DELETE(S,P,N) queelimina N caracteres de la
36. cadena S, a partir de la posición P.
37.
38. PROGRAM EJER62;
39. USES CRT;
40.
41. VAR frase:STRING;
42. BEGIN
43. ClrScr;
44.
45. {Transforma la cadena "Esto es una prueba" en "Esto es prueba"}
46.
47. WRITELN ('Este programa suprime un numero determinado de
48. letras');
49. WRITELN ('');
50.
51. frase:='Estoes una prueba';
52. WRITELN (frase);
53.
54. DELETE (frase,9,4);
55. WRITELN (frase);
56. END.
57.
58. PROGRAM EJER62;
59. USES CRT;
60. VAR cad1,cad2:STRING;
61. BEGIN
62. cad1:='Esto es una prueba';
63.
64. ClrScr;
65.
66. WRITELN(cad1);
67. DELETE(cad1,9,4);
68. WRITELN(cad1);
69. END.
70.
71.
72. Transformar lacadena Curso de Pascal en la cadena Curso de
73. Programación en Pascal.
74. Utilizar la función INSERT(SO,SD,P) que inserta la cadena SO en
75. la cadena SD a partir de la posición P.
76.
77. PROGRAM EJER63;
78. USES CRT;
79.
80. VAR frase1:STRING;
81. VAR frase2:STRING;
82. BEGIN
83. ClrScr;
84.
85. {Este programa inserta la frase2 en lafrase1}
86.
87. WRITELN ('Se introducira la frase2 en la frase1');
88. WRITELN ('');
89.
90. frase1:='Curso de Pascal';
91. frase2:='Programacion en ';
92.
93. WRITE ('Frase1: '); WRITELN (frase1);
94. WRITE ('Frase2: '); WRITELN (frase2);
95. WRITELN ('');
96.
97. insert (frase2,frase1,10);
98.
99. WRITELN (frase1);
100. END.101.
102.
103. PROGRAM EJER63;
104. USES CRT;
105. VAR cad1,cad2:STRING;
106. BEGIN
107. cad1:='Curso de Pascal';
108. cad2:='Programacion en ';
109.
110. ClrScr;
111.
112. WRITELN(cad1);
113. INSERT(cad2,cad1,10);
114. WRITELN(cad1);
115. END.
116.
117.
118.
119. Transformar los valores 91 y 8631217 almacenados en dos variables120. de tipo REAL en la cadena 91-8631217. Previamente transformar los dos
121. valores numéricos a variables tipo cadena con la función STR(X,S)
122. que almacena en S, como una cadena alfanumérica, el valor X.
123.
124. PROGRAM EJER64;
125. USES CRT;
126.
127. VAR valor1, valor2:REAL;
128. VAR valor_1, valor_2:STRING;
129. BEGIN
130. ClrScr;
131.132. valor1:=91;
133. valor2:=5550908;
134.
135. STR(valor1:5:2, valor_1);
136. STR(valor2:10:2, valor_2);
137.
138. WRITELN (valor_1,' - ', + valor_2);
139. END.
140.
141.
142.
143. PROGRAM EJER64;
144. USES CRT;
145. VAR val1,val2:REAL;
146. VAR cad1,cad2:STRING;
147. BEGIN
148. val1:=91;
149. val2:=5550908;
150.151. STR(val1,cad1);
152. STR(val2,cad2);
153.
154. ClrScr;
155.
156. WRITELN(cad1 + '-' + cad2);
157. END.
158.
159.
160.
161. Concatenar las cadenas El, hombre, invisible en una sola el hombre
162. invisible.
163. Utilizar la función CONCAT (S1,S2,S3...) que retorna la concatenación
164. de todas las cadenas pasadas como parámetros.
165.
166. PROGRAM...