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.
