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.