Jump to content


Photo

Menú


  • Please log in to reply
5 replies to this topic

#1 rockolet

rockolet

    Member

  • Miembros
  • PipPip
  • 10 posts

Posted 22 January 2016 - 11:40 AM


delphi
  1. program estructurawhile;
  2. uses crt, sysutils;
  3.  
  4. var
  5. ban, op,num,lineas,i: integer;
  6. v, p, r: real;
  7. suma,suma2,j: real;
  8. YY,MM,DD : WORD;
  9. fechahora:extended;
  10. begin
  11. clrscr;
  12. ban := 0;
  13. while(ban = 0) do
  14. begin
  15. clrscr;
  16. writeln ('//// menu //// ');
  17. writeln;
  18. writeln (' 1 - calcular sumas con decimales.');
  19. writeln;
  20. writeln (' 2 - calcula resta');
  21. writeln;
  22. writeln (' 3 - calcula tablas');
  23. writeln;
  24. writeln (' 4 - calcula division');
  25. writeln;
  26. writeln (' 5 - Cr‚ditos');
  27. writeln ('////////////////////////////////////////////////////////');
  28. writeln ('(6) - Descuentos.Precios ',p:0:2, ' Comision ',r:0:2,'/');
  29. writeln ('En esta l¡nea se aplica el 40 % del valor del producto//');
  30. writeln ('al precio final se le aplica el 25 % de mi comisi¢n...//');
  31. writeln ('////////////////////////////////////////////////////////');
  32. writeln (' 7 - LaONCE');
  33. writeln;
  34. writeln (' 8 - Salir.');
  35. writeln;
  36. writeln ('////////////////////////');
  37. writeln;
  38. write ('Ingrese opcion:n£meros. 1,2,3,4,5,6,7,8: ');
  39. readln (op);
  40. case op of
  41. 1 : begin
  42. writeln;
  43. writeln ('sumar dos n£meros...');
  44. Writeln(' ');
  45. readln(suma);
  46. writeln('+');
  47. Writeln(' ');
  48. readln(suma2);
  49. j := suma+suma2;
  50. writeln('--------');
  51. writeln('',j:0:1,' Resultado');
  52.  
  53. readkey;
  54. writeln;
  55.  
  56. end;
  57. 2 : begin
  58. writeln;
  59. writeln ('resta');
  60. writeln(' ');
  61. readln(suma);
  62. writeln('-');
  63. writeln(' ');
  64. readln(suma2);
  65. j := suma-suma2;
  66. writeln('--------');
  67. writeln('',j:0:1,' Resultado');
  68. writeln;
  69. readkey;
  70. writeln;
  71.  
  72. end;
  73. 3 : begin
  74. writeln;
  75. writeln ('multiplicacion');
  76. writeln;
  77. writeln('Hola, bienvenido al programa de las tablas.');
  78. writeln;
  79. write('Que tabla de multipliar quieres que se ejecute: ');
  80. readln(num);
  81. write('Cuantas l¡neas quiere ver: ');
  82. readln(lineas);
  83. writeln;
  84. for i := 1 to lineas do
  85. begin
  86. write(num, ' x ', i, ' = ' );
  87. write(num*i);
  88. writeln;
  89. delay(500);
  90. end;
  91. writeln;
  92. writeln('Enter, Salir, Exit.');
  93. readkey;
  94. writeln;
  95. end;
  96. 4 : begin
  97. writeln;
  98. writeln ('division');
  99. writeln('Dividendo');
  100. readln(suma);
  101. writeln('ö. Divisor');
  102. readln(suma2);
  103. j := suma/suma2;
  104. writeln('--------');
  105. writeln(' ',j:0:2, ' Resultado');
  106. readkey;
  107. writeln;
  108.  
  109. end;
  110. 5 : begin
  111.  
  112. writeln;
  113. writeln ('//Cr‚ditos.');
  114. writeln ('//Creacion de programas de Paskal.');
  115. writeln ('//Por Jos‚ Vinaches Jim‚nez.');
  116. writeln ('//e-mail:josevinaches@hotmail.es');
  117. readkey;
  118. writeln;
  119. end;
  120. 6 : begin
  121. writeln;
  122. begin
  123. writeln('Precio del producto(Platos ducha)');
  124. readln(v);
  125. writeln('Descuento a plicar :');
  126. readln(p);
  127. r := (v * p) / 100;
  128. writeln ('Precio porcentual: ', r:0:2);
  129. p := (v - r);
  130. writeln ('precio final del plato ', p:0:2);
  131. readkey;
  132. writeln;
  133. end;
  134. end;
  135. 7 : begin
  136.  
  137. CLRSCR;
  138. randomize;
  139. writeln('///Bienvenido. N£mero aleatorio de la ONCE.///');
  140. writeln(' R R');
  141. writeln('N£mero de la ONCE al Azar: ',random(99999));
  142.  
  143. readkey;
  144. writeln;
  145. end;
  146.  
  147. 8 : begin
  148. CLRSCR;
  149. writeln;
  150. textcolor(red);
  151. writeln ('Le damos las gracias. Hasta pronto.');
  152.  
  153. writeln;
  154. textcolor(YELLOW);
  155. delay(800);
  156.  
  157. writeln ('Nombre de empresa "Empresa" Jose Vinaches Jim‚nez');
  158. delay(1000);
  159. writeln;
  160. writeln;
  161. WRITELN;
  162. writeln;
  163. WRITELN ('The timen is : ',TimeTostr(Time));
  164. writeln;
  165. WRITELN ('pRImERA.vERSION.0.1. A¥O 2.016');
  166. WRITELN;
  167. WRITELN(' CUALQUIER TECLA PARA FINALIZAR');
  168. delay(1500);
  169.  
  170. writeln;
  171. ban := 1;
  172. end;
  173. end;
  174.  
  175. end;
  176. readkey;
  177. end.
  178.  
  179.  
  180.  
  181. end.

Un programita.


  • 2

#2 Nikolas

Nikolas

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 604 posts
  • LocationMar del Plata / Bs As / Argentina

Posted 23 January 2016 - 05:49 AM

Me hizo recordar los primeros programas de la universidad en Pascal :tongue:


  • 0

#3 cram

cram

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 832 posts
  • LocationMisiones, Argentina

Posted 26 January 2016 - 11:19 AM

Me hizo recordar los primeros programas de la universidad en Pascal :tongue:

 

Igualmente, pero no quise decirlo. Ahora me animo. :cheesy:

Saludos


  • 0

#4 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14459 posts
  • LocationMéxico

Posted 26 January 2016 - 11:29 AM

Sería bueno que nuestro amigo rockolet nos comentara más sobre su programa, por ejemplo que es eso del "número aleatorio de la 11".

 

Saludos


  • 0

#5 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6295 posts
  • LocationArgentina

Posted 26 January 2016 - 11:40 AM

Sería bueno que nuestro amigo rockolet nos comentara más sobre su programa, por ejemplo que es eso del "número aleatorio de la 11".

 

Saludos

 

La ONCE es un juego de loteria muy popular en España.

 

A mi también me hizo acordar de mis prácticas en Pascal cuando estudiaba Lenguaes I.

 

Saludos,


  • 1

#6 poliburro

poliburro

    Advanced Member

  • Administrador
  • 4945 posts
  • LocationMéxico

Posted 10 February 2016 - 09:49 AM

Espero que nuestro compañero agregue más ejercicios. Me parecen un excelente aporte para quienes se inician en la programación.


  • 0




IP.Board spam blocked by CleanTalk.