5 replies to this topic

[rockolet]

delphi

program estructurawhile;
uses crt, sysutils;
 
var
ban, op,num,lineas,i: integer;
 v, p, r: real;
suma,suma2,j: real;
YY,MM,DD : WORD;
fechahora:extended;
begin
clrscr;
ban := 0;
while(ban = 0) do
begin
clrscr;
  writeln ('//// menu //// ');
  writeln;
  writeln (' 1 - calcular sumas con decimales.');
  writeln;
  writeln (' 2 - calcula resta');
  writeln;
  writeln (' 3 - calcula tablas');
  writeln;
  writeln (' 4 - calcula division');
  writeln;
  writeln (' 5 - Cr‚ditos');
  writeln ('////////////////////////////////////////////////////////');
  writeln ('(6) - Descuentos.Precios  ',p:0:2, ' Comision ',r:0:2,'/');
  writeln ('En esta l¡nea se aplica el 40 % del valor del producto//');
  writeln ('al precio final se le aplica el 25 % de mi comisi¢n...//');
  writeln ('////////////////////////////////////////////////////////');
  writeln (' 7 - LaONCE');
  writeln;
  writeln (' 8 - Salir.');
  writeln;
  writeln ('////////////////////////');
  writeln;
  write ('Ingrese opcion:n£meros. 1,2,3,4,5,6,7,8: ');
  readln (op);
  case op of
    1 : begin
          writeln;
          writeln ('sumar dos n£meros...');
          Writeln(' ');
          readln(suma);
          writeln('+');
          Writeln(' ');
          readln(suma2);
          j := suma+suma2;
          writeln('--------');
          writeln('',j:0:1,' Resultado');
 
          readkey;
          writeln;
 
          end;
    2 : begin
          writeln;
          writeln ('resta');
          writeln(' ');
          readln(suma);
          writeln('-');
          writeln(' ');
          readln(suma2);
          j := suma-suma2;
          writeln('--------');
          writeln('',j:0:1,' Resultado');
          writeln;
          readkey;
          writeln;
 
          end;
    3 : begin
          writeln;
          writeln ('multiplicacion');
          writeln;
           writeln('Hola, bienvenido al programa de las tablas.');
   writeln;
   write('Que tabla de multipliar quieres que se ejecute: ');
   readln(num);
   write('Cuantas l¡neas quiere ver: ');
   readln(lineas);
   writeln;
   for i := 1 to lineas do
 begin
   write(num, ' x ', i, ' = ' );
   write(num*i);
   writeln;
   delay(500);
 end;
 writeln;
    writeln('Enter, Salir, Exit.');
         readkey;
          writeln;
          end;
    4 : begin
          writeln;
          writeln ('division');
          writeln('Dividendo');
          readln(suma);
          writeln('ö. Divisor');
          readln(suma2);
          j := suma/suma2;
          writeln('--------');
          writeln(' ',j:0:2, ' Resultado');
          readkey;
          writeln;
 
         end;
     5 : begin
 
           writeln;
           writeln ('//Cr‚ditos.');
           writeln ('//Creacion de programas de Paskal.');
           writeln ('//Por Jos‚ Vinaches Jim‚nez.');
           writeln ('//e-mail:josevinaches@hotmail.es');
           readkey;
           writeln;
           end;
     6 : begin
           writeln;
           begin
           writeln('Precio del producto(Platos ducha)');
           readln(v);
           writeln('Descuento a plicar :');
           readln(p);
           r := (v * p) / 100;
           writeln ('Precio porcentual: ', r:0:2);
           p := (v - r);
           writeln ('precio final del plato ', p:0:2);
           readkey;
           writeln;
           end;
           end;
     7 : begin
 
     CLRSCR;
          randomize;
  writeln('///Bienvenido. N£mero aleatorio de la ONCE.///');
  writeln('                           R   R');
  writeln('N£mero de la ONCE al Azar: ',random(99999));
 
  readkey;
  writeln;
   end;
 
     8 : begin
          CLRSCR;
          writeln;
          textcolor(red);
          writeln ('Le damos las gracias. Hasta pronto.');
 
          writeln;
           textcolor(YELLOW);
           delay(800);
 
          writeln ('Nombre de empresa  "Empresa" Jose Vinaches Jim‚nez');
          delay(1000);
          writeln;
          writeln;
          WRITELN;
          writeln;
          WRITELN ('The timen is : ',TimeTostr(Time));
          writeln;
          WRITELN ('pRImERA.vERSION.0.1.           A¥O 2.016');
          WRITELN;
          WRITELN('           CUALQUIER TECLA PARA FINALIZAR');
          delay(1500);
 
          writeln;
          ban := 1;
          end;
       end;
 
  end;
  readkey;
  end.
 
 
 
end.

Un programita.

[Nikolas]

Me hizo recordar los primeros programas de la universidad en Pascal

[cram]

Me hizo recordar los primeros programas de la universidad en Pascal

 

Igualmente, pero no quise decirlo. Ahora me animo.

Saludos

[egostar]

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

[Delphius]

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,

[poliburro]

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