Gói I:
(Nếu ai muốn download thì link trên nhé)
PROGRAM CTDauTien;
USES crt;
BEGIN
clrscr;
{GotoXY(40,12}
Write('Dien dan: 1412ab.Forum-viet.com');
{Writeln('Dien dan: 1412ab.Forum-viet.com}
Readln
{Delay(5000);}
END.
{PROGRAM Forum;
USES crt;
BEGIN
clrscr;
WRITELN('1'); Delay(100);
WRITELN('4'); Delay(100);
WRITELN('1'); Delay(100);
WRITELN('2'); Delay(100);
WRITELN('a'); Delay(100);
WRITELN('b'); Delay(100);
WRITELN('.'); Delay(100);
WRITELN('F'); Delay(100);
WRITELN('o'); Delay(100);
WRITELN('r'); Delay(100);
WRITELN('u'); Delay(100);
WRITELN('m'); Delay(100);
WRITELN('-'); Delay(100);
WRITELN('v'); Delay(100);
WRITELN('i'); Delay(100);
WRITELN('e'); Delay(100);
WRITELN('t'); Delay(100);
WRITELN('.'); Delay(100);
WRITELN('c'); Delay(100);
WRITELN('o'); Delay(100);
WRITELN('m'); Delay(100);
Readln
END.}
{PROGRAM Forum;
USES crt;
BEGIN
clrscr;
WRITE('1'); Delay(100);
WRITE('4'); Delay(100);
WRITE('1'); Delay(100);
WRITE('2'); Delay(100);
WRITE('a'); Delay(100);
WRITE('b'); Delay(100);
WRITE('.'); Delay(100);
WRITE('F'); Delay(100);
WRITE('o'); Delay(100);
WRITE('r'); Delay(100);
WRITE('u'); Delay(100);
WRITE('m'); Delay(100);
WRITE('-'); Delay(100);
WRITE('v'); Delay(100);
WRITE('i'); Delay(100);
WRITE('e'); Delay(100);
WRITE('t'); Delay(100);
WRITE('.'); Delay(100);
WRITE('c'); Delay(100);
WRITE('o'); Delay(100);
WRITE('m'); Delay(100);
Readln
END.}
{PROGRAM Forum;
USES crt;
VAR i: BYTE;
s: ARRAY[1..21] OF CHAR;
BEGIN
clrscr;
FOR i:=1 TO 21 DO Readln(s[i]);
GotoXY(20,12);
FOR i:=1 TO 21 DO
BEGIN
Write(s[i]); delay(100);
END;
Readln
END.}
{PROGRAM forum;
USES crt;
VAR i: BYTE;
s: STRING[21];
BEGIN
s:='1412ab.Forum-viet.com';
GotoXY(20,12);
FOR i:=1 TO 21 DO
BEGIN
Write(s[i]); Delay(100);
END;
exit;
END.}
{PROGRAM Forum;
USES crt;
VAR i: BYTE;
BEGIN
FOR i:=1 TO 25 DO
BEGIN
GotoXY(40,WhereY);
Writeln('0');
Delay(100);
END;
GotoXY(12,12);
Writeln('I"M ADMIN');
Delay(500);
GotoXY(12,WhereY);
Write('Hello All');
Delay(500);
GotoXY(52,12);
Writeln('How are you, today ?');
Delay(500);
GotoXY(52,WhereY);
Write('Good Bye !');
Readln
END.}
{PROGRAM BNDC_1;
USES crt;
BEGIN
clrscr;
WRITELN(' DAI CAO BINH NGO');
WRITELN('Tung nghe:');
WRITELN('Viec nhan nghia cot o yen dan');
WRITELN('Quan dieu phat truoc lo tru bao');
WRITELN('Nhu nuoc Dai Viet ta tu truoc,');
WRITELN('Von xung nen van hien da lau.');
WRITELN('Nui song bo coi da chia,');
WRITELN('Phong tuc Bac Nam cung khac.');
WRITELN('Tu Trieu, Dinh, Ly, Tran bao doi gay nen doc lap,');
WRITELN('Cung Han, Duong, Tong, Nguyen moi ben xung de mot phuong');
WRITELN('Tuy manh yeu tung luc khac nhau,');
WRITELN('Song hao kiet doi nao cung co.');
WRITELN('Vay nen:');
WRITELN('Luu Cung tham cong nen that bai');
WRITELN('Trieu Tiet thich lon phai tieu vong');
WRITELN('Cua Ham Tu bat song Toa Do,');
WRITELN('Song Bach Dang giet tuoi O Ma');
WRITELN('Viec xua xem xet');
WRITELN('Chung co con ghi');
Readln
END.}
{PROGRAM BNDC_1;
USES crt;
VAR i: BYTE;
s: ARRAY[1..19] OF STRING;
BEGIN
clrscr;
s[1]:=' DAI CAO BINH NGO';
s[2]:='Tung nghe:';
s[3]:='Viec nhan nghia cot o yen dan';
s[4]:='Quan dieu phat truoc lo tru bao';
s[5]:='Nhu nuoc Dai Viet ta tu truoc,';
s[6]:='Von xung nen van hien da lau.';
s[7]:='Nui song bo coi da chia,';
s[8]:='Phong tuc Bac Nam cung khac.';
s[9]:='Tu Trieu, Dinh, Ly, Tran bao doi gay nen doc lap,';
s[10]:='Cung Han, Duong, Tong, Nguyen moi ben xung de mot phuong';
s[11]:='Tuy manh yeu tung luc khac nhau,';
s[12]:='Song hao kiet doi nao cung co.';
s[13]:='Vay nen:';
s[14]:='Luu Cung tham cong nen that bai';
s[15]:='Trieu Tiet thich lon phai tieu vong';
s[16]:='Cua Ham Tu bat song Toa Do,';
s[17]:='Song Bach Dang giet tuoi O Ma';
s[18]:='Viec xua xem xet';
s[19]:='Chung co con ghi';
Writeln; Writeln;
FOR i:=1 TO 19 DO
BEGIN
GotoXY(12,WhereY);
Writeln(S[i]);
END;
Readln
END.}
{PROGRAM BNDC_1;
USES crt;
VAR i: BYTE;
s: ARRAY[1..19] OF STRING;
BEGIN
clrscr;
FOR i:=1 TO 19 DO Readln(s[i]);
Clrscr;
FOR i:=1 TO 19 DO
BEGIN
GotoXY(12,WhereY);
Writeln(S[i]);
END;
Readln
END.}
{PROGRAM Forum;
USES crt;
BEGIN
WHILE 5>0 DO
BEGIN
GotoXY(1,12);
Writeln(' *********************************************');
Delay(300);
GotoXY(1,12);
Writeln(' * * * * * * * * * * * * * * * * * * * * * * *');
Delay(300);
IF KeyPressed THEN Break;
END;
Readln
END.}
{PROGRAM Forum;
USES crt;
BEGIN
WHILE 5>0 DO
BEGIN
GotoXY(1,12);
Writeln(' $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ ');
Delay(300);
GotoXY(1,12);
Writeln(' * * * * * * * * * * * * * * * * * * * * * * ');
Delay(300);
IF KeyPressed THEN Break;
END;
Readln
END.}
{PROGRAM Forum;
USES crt;
VAR i: BYTE;
s: STRING;
BEGIN
GotoXY(30,11);
Writeln('TONMEANS');
GotoXY(23,13);
s:='1412ab.Forum-viet.com';
FOR i:=1 TO length(s) DO
BEGIN
Write(s[i]); Delay(300);
END;
Readln
END.}
{PROGRAM Forum;
USES crt;
BEGIN
GotoXY(30,12);
Write(' One ');
Delay(800);
GotoXY(30,12);
Write(' Two ');
Delay(800);
GotoXY(30,12);
Write('Three');
Delay(800);
GotoXY(30,12);
Write(' Run !!!');
Readln
END.}