Discusión:Programación en Pascal/Ejemplo

De Wikilibros, la colección de libros de texto de contenido libre.
Ir a la navegación Ir a la búsqueda

program introducion; uses

  crt;

var

  x: integer;

procedure sonido; begin

 sound(700);
 delay(100);
 sound(800);
 delay(100);
 sound(900);
 delay(100);
 sound(1000);
 delay(100);
 sound(900);
 delay(100);
 sound(800);
 delay(100);
 nosound;

end; procedure cubo; var

 x:integer;
 a:integer;

begin clrscr; for x := 10 to 50 do

  begin
   a := 1 + random(7);
   gotoxy(x,10);
   textcolor(a);
   write('*');
   delay(100);
  end;
 for x := 10 to 15 do
  begin
   a := 1 + random(7);
   gotoxy(10,x);
   textcolor(a);
   write('*');
   delay(100);
  end;
  for x := 10 to 15 do
   begin
    a := 1 + random(7);
    gotoxy(20,x);
    textcolor(a);
    write('*');
    delay(100);
   end;
 for x:= 10 to 50 do
  begin
   a := 1 + random(7); 
   gotoxy(x,15);
   textcolor(a);
   write('*');
   delay(100);
  end;
 for x := 10 to 15 do
  begin
   a := 1 + random(7);
   gotoxy(50,x);
   textcolor(a);
   write('*');
   delay(100);
  end;
   gotoxy(13,13);
   textcolor(2);
   write('groxos');
   gotoxy(25,13);
   textcolor(2);
   write('ezequiel y matias');
   readln;
   end;

begin {P.P}

 cubo;
  for x := 1 to 5 do
   sonido;
   readln;

{Produced By Licenciado Ezequiel Bianco y Matias Nuñez) end.