program coi_bao_dong; uses crt; var coi:integer; x,y:INTEGER; begin clrscr; Textbackground(green); Clrscr; x:=10;y:=10; Gotoxy(x,y); Textcolor(red);writeln('Day la Chuong trinh COI BAO DONG!'); Gotoxy(x+5,y+5); Textcolor(blue);writeln('Day la Chuong Trinh COI BAO DONG!'); Gotoxy(x+10,y+10); Textcolor(white+blink); writeln(' Viet boi: mycuteswallow (dinhvan98)'); readln; writeln (' Moi ban go Enter de Play'); readln; repeat for coi:=500 to 4000 do begin delay (1); sound (coi); end; begin for coi:=4000 to 500 do delay (1); sound (coi); end; until keypressed; nosound; end.
Số lần được cảm ơn :Message reputation : 100% (2 votes)