Giáo trình thuật toán PASCAL

[LotusOfDarkness]

Em có 1 quyển khá hay. ai muốn mượn đem đi photo (dày lắm. tiền photo ko đã mất 75k rồi) thì pm em nah.
Đây là tuyển tập các chuyên đề trong giảng dạy của 1 thầy ở trường Sư Phạm
Email : earthboundimmortalwiraqocharasca@yahoo.com.vn

sorry... tại dạo này em vướng học ko đi offline được =.=
Tí nữa em sẽ up tên sách lên sau.

[y2kbibi]

Cái quyển to to mang đi hôm luyện thi quận á?

[haqduong]

Có gì em cho cái mục lục lên đi, chứ nói không thế này thì biết sao được.
P/s: Lại bảo thầy Hoàng đi DSAP Textbook?

[LotusOfDarkness]

Hình như thế thật anh có quyển đó rồi ạh

[haqduong]

Originally Posted by LotusOfDarkness

Hình như thế thật anh có quyển đó rồi ạh

Cái này chứ gì http://www.jaist.ac.jp/~hoangle/DSAPTextbook/index.html hàng VN chất lượng cao
Link: DSAP Textbook

P/s: Trông thầy Hoàng phong cách lắm, mà thầy này giỏi nhất về đồ thị, có bài thầy quy về đồ thị giải rõ ngon lành
Cái này nên dùng với FP

[LotusOfDarkness]

Ơ đúng mất rồi thôi mọi người download ở link anh Dương vậy

[haqduong]

Muốn luyện thêm thì vào vn.spoj.pl mà luyện.
Để cái đơn vị là "THPT Kim Liên" nhé

[LotusOfDarkness]

Ôi cái cuộc đời này..... ... reg nik thôi

[o0ogino0o]

thôi coi như là múa rìa qua mắt thợ đi ^^ ...

[haqduong]

Originally Posted by LotusOfDarkness

Ôi cái cuộc đời này..... ... reg nik thôi

Reg chưa vậy Nhớ để đơn vị là "THPT Kim Liên" đấy. Để xem trường mình lên được hạng mấy
P/s: Có gì reg cả nick ở vnoi.info nhé

[MrPaint]

Tuổi trẻ bây giờ tài quớ Trước giờ anh chưa thấy quyển sách này bao giờ Hú hú

[Bachboss]

Originally Posted by haqduong

Muốn luyện thêm thì vào vn.spoj.pl mà luyện.
Để cái đơn vị là "THPT Kim Liên" nhé

"Kim liên" có dấu hay ko hả a hè e để mà thấy mỗi 1 mình à

[y2kbibi]

Originally Posted by MrPaint

Tuổi trẻ bây giờ tài quớ Trước giờ anh chưa thấy quyển sách này bao giờ Hú hú

Em cũng đã thấy bao giờ đâu! ==

[ngua_van]

Giúp mình phân tích các lệnh bài này với. Mình đang cần rất gấp.
Mình sẽ tặng bạn nào giúp mình phân tích đúng và hợp lí bài này 1000$..
Đây là một bài lập trình bằng ngôn ngữ pascal thuộc phần đồ hoạ, có liên kết với một số chương trình khác để chạy.
Cám ơn các bạn đã cố gắng giúp mình.
Thân.

[ngua_van]

Đây la bài cần phân tích:
~~~~~~~~~~~~~~~~~~~
program Breakout;
SCREEN.PAS
COUNT.PAS
BRICKS.PAS
BUONDS.PAS
WALLS.PAS
BREAKOUT.PAS

Uses Screen,Count,bricks,bounds,walls,Crt,dos;

Var
ss:saveScreen;
w :Wall;
b :ball;
p : Paddle;
speed:LimitCounter;
Left:LeftBuond;
Top:UpperBuond;
Right:RightBuond;
Bottom:LowerBuond;
Obstacles:ObstancleList;
PaddleMsg,
SpeedMsg,
StartMsg,
QuitMsg,
PauseMsg1,
PauseMsg2,
TypeMsg:TextString;
Score:Counter;
Highest:Counter;
Ball: DownCounter;
X:Integer;
Finished:boolean;
FirstGame:Boolean;
TypeInc,
Ch:char;

Procedure Startup;
Begin
{First set up the screen and cursor}
ss.Init;
TextBackgruond(BLACK);
Clrscr;
{Create the buondaries of the playfield}
Left.Init(0,0,27,False);
Top.Init(0,0,82,false);
Right.Init(81,0,27,False);
Bottom.Init(0,24,82,True);
{Initialize the score display}
Score.Init(0,65,24,'Score',15);
Score.Show;
Highest.Init(0,60,25,'high Score',14);
Highest.Show;
{Set up the variuos menu messages}
PauseMsg1.Init(31,18,'Paused. Press any',15);
PauseMsg2.Init(31,19,'Key to continue.',15);
SpeedMsg.Init(5,23,#24+#25+'to change speed',14);
StartMsg.Init(5,24,#17+#196+#217+'to begin game',14);
PaddleMsg.Int(5,24,#27+#26+'to move paddle',14);
QuitMsg.Init(5,25,'ESC to quit',14);
QuitMsg.Show;
{Set up the information messages}
Ball.Init(5,40,24,-1,'Balls',15);
Balls.Show;
Speed.Init(1,40,25,1,10,'Speed',14);
Speed.Show;
{Build the wall}
w.Init(1,1,16,10);
w.Show;
{Need to initialize these, even though we're going to move them later}
b.Init(10,22,1,-1,YELLOW);
p.Init(8,23,WHITE);

Obstacles.Init;
Obstacles.Append(@p);
Obstacles.Append(@w);
Obstacles.Append(@Left);
Obstacles.Append(@Top);
Obstacles.Append(@Right);
Obstacles.Append(@Bottom);

TypeMsg.Init(22,12,'Increase typematic rate? (Y/N)',WHITE);
TypeMsg.Show;
repeat
TypeInc:=Upcase(ReadKey);
Until (TypeInc='Y') or (TypeInc='N');
TypeMsg.Hide;
if TypeInc='Y' then
ss.Speedup;
ss.SetCursor($2000);
Randomize;
FirstGame:=True;
End;

Procedure NewGame;
Begin
Ball.Reset;
Score.Reset;
If not FirstGame then
w.Reset;
X:=Random(78)+3;
b.MoveTo(X,22);
p.MoveTo(X-2,23);
b.Show;
p.Show;
Balls.Decrement;
FirstGame:=False;
End;

Function MainMenu:Boolean;
Var
Done:Boolean;

Begin
MainMenu:=True;
Done:=False;
SpeedMsg.Show;
StartMsg.Show;
While not Done do
Begin
Ch:=ReadKey;
Case ch of
Chr(27);
Begin
MainMenu:=False;
Done:=True;
End;
#13: Done:=True;
#0:
Begin
Ch:=ReadKey;
if Ord(ch)=72 then
Speed.Increment;
else if Ord(ch)=80 then
Speed.Decrement;
end;
end;
end;
SpeedMsg.Hide;
StartMsg.Hide;
End;

Procedure ProcessKeyStroke;
{Pause the game}
procedure Pause;
begin
PauseMsg1.show;
PauseMsg2.Show;
ch:=ReadKey;
if KeyPressed then
ch:=ReadKey;{Swallow extended keystrokes}
PauseMsg1.Hide;
PauseMsg2.Hide;
b.Show;
end;

begin
ch:=ReadKey;
case ch of
Chr(27):Finish:=True;
Chr(0):
begin
ch:=ReadKey;
{$IFNDEF Test}

[MrPaint]

Bài này mã nguồn chưa đầy đủ nha

[y2kbibi]

Lâu rồi em ko dùng pascal chả nhớ cái mô tê j` cả, đọc xong hoa cả mắt! Hix!

Ai có nhã hứng dạy lại em đi!

[ngua_van]

Originally Posted by MrPaint

Bài này mã nguồn chưa đầy đủ nha

Làm thế nào để chạy được hả cậu bé .
Cái này ứng dụng hàm random +sử dụng chtrinh` đồ họa để viết,có liên kết với 1 số cái nữa,cậu bé giúp mình đi .

[MrPaint]

Originally Posted by ngua_van

Làm thế nào để chạy được hả cậu bé .
Cái này ứng dụng hàm random +sử dụng chtrinh` đồ họa để viết,có liên kết với 1 số cái nữa,cậu bé giúp mình đi .

Bài này chưa đủ hết mã nguồn thôi, nhiều khả năng do copy/paste thiếu. Hiện không giúp được gì :-s

[haqduong]

Originally Posted by MrPaint

Bài này chưa đủ hết mã nguồn thôi, nhiều khả năng do copy/paste thiếu. Hiện không giúp được gì :-s

Originally Posted by ngua_van

Đây la bài cần phân tích:
~~~~~~~~~~~~~~~~~~~
...
begin
ch:=ReadKey;
case ch of
Chr(27):Finish:=True;
Chr(0):
begin
ch:=ReadKey;
{$IFNDEF Test}

Hình như ý anh paint là sau cái này còn 1 đoạn nữa

[Bachboss]

có bị copy thiếu k thế Ô.ô. Phần begin....End. chính chưa có end. vs cả có câu
" PauseMsg1.show; " -> viết giống lt hướng đối tượng thế e nhớ là pascal là hướng thủ tục mà

[haqduong]

Originally Posted by Bachboss

có bị copy thiếu k thế Ô.ô. Phần begin....End. chính chưa có end. vs cả có câu
" PauseMsg1.show; " -> viết giống lt hướng đối tượng thế e nhớ là pascal là hướng thủ tục mà

Bản thân Pascal cũng có 1 ít OOP ở mức cơ bản đ/c ạ.
Còn anh mậu copy thiếu thì phải.