Ir al contenido


Foto

Menú


  • Por favor identifícate para responder
5 respuestas en este tema

#1 rockolet

rockolet

    Member

  • Miembros
  • PipPip
  • 10 mensajes

Escrito 22 enero 2016 - 11:40


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 mensajes
  • LocationMar del Plata / Bs As / Argentina

Escrito 23 enero 2016 - 05:49

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


  • 0

#3 cram

cram

    Advanced Member

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

Escrito 26 enero 2016 - 11:19

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
  • 14.446 mensajes
  • LocationMéxico

Escrito 26 enero 2016 - 11:29

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
  • 6.295 mensajes
  • LocationArgentina

Escrito 26 enero 2016 - 11:40

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
  • 4.945 mensajes
  • LocationMéxico

Escrito 10 febrero 2016 - 09:49

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.