Discusión:Programación en Pascal/Ejemplo

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.

Comienza una discusión acerca de Programación en Pascal/Ejemplo

Las páginas de discusión sirven para debatir sobre cómo hacer que el contenido de Wikilibros sea el mejor posible. Puedes utilizar esta página de discusión para empezar una discusión acerca de cómo mejorar Programación en Pascal/Ejemplo.

Escribir un mensaje