Lenguaje De Programacion

Páginas: 58 (14414 palabras) Publicado: 24 de octubre de 2011
ING. EDGAR BORREGO

C-02 LENGUAJE DE PROGRAMACION

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. USES CRT; {Nos va a permitir limpiar la pantalla junto con 54. ClrScr}

ING. EDGAR BORREGO

C-02 LENGUAJE DE PROGRAMACION

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:'); WRITELN (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; 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.

ING. EDGAR BORREGO

C-02 LENGUAJE DE PROGRAMACION

111. 112. 113. Escribir un programa en Pascal que calcule el área de un114. 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: '); 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. WRITELN (' '); 156. 157. area:=lado1*lado2; 158. 159. WRITE ('AREA DEL RECTANGULO:'); WRITE (area:5:2); 160. 161. END. 162. 163. 164. 165.

ING. EDGAR BORREGO

C-02 LENGUAJE DE PROGRAMACION

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. VARbase,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. 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. 187. 188. 189. PROGRAM EJER4B; 190. USES CRT; 191. VAR base,altura:REAL; 192. VAR area:REAL; 193. BEGIN...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Lenguajes de programacion
  • Lenguajes de programación
  • lenguaje de programacion
  • lenguajes de programacion
  • Lenguaje De Programacion
  • lenguaje de programacion
  • Los Lenguajes De Programacion
  • Lenguaje de programación

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS