ngon ngu pascal

<span class='text_page_counter'>(1)</span>Caùc caâu leänh    . SYSTEM write(): in ra màn hình liền sau kí tự cuối. writeln(): in xuoáng moät haøng. read( ): đọc biến. readln( ): đọc biến và xuống dòng Unit CRT  o clrscr : xoá toàn bộ màn hình. o textcolor() : in chữ màu. o textbackground() : toâ maøu cho maøn hình. o sound() : taïo aâm thanh. o delay() : laøm treã. o nosound : taét aâm thanh. o windows(x1,y1,x2,y2) : thay đổi cửa sổ màn hình. o highvideo : tăng độ sáng màn hình. o lowvideo : giảm độ sáng màn hình. o normvideo : màn hình trở lại chế độ sáng bình thường. o gotoxy(x,y) : đưa con trỏ đến vị trí x,y trên màn hình. o deline : xoá một dòng đang chứa con trỏ. o clreol : xoá các ký tự từ vị trí con trỏ đến cuối mà không di chuyeån vò trí con troû. o insline : cheøn theâm moät doøng vaøo vò trí cuûa con troû hieän haønh. o exit : thoát khỏi chương trình. o textmode(co40) : tạo kiểu chữ lớn. o randomize : khởi tạo chế độ ngẫu nhiên. o move(var 1,var 2,n) : sao chép trong bộ nhớ một khối n byte từ biến Var 1 sang biến Var 2. o halt : Ngưng thực hiện chương trình và trở về hệ điều haønh. o Abs(n) : Giá trị tuyệt đối. o Arctan(x) : cho keát quaû laø haøm Arctan(x)..

<span class='text_page_counter'>(2)</span> o o o o o o o o o o o o o o o o o o o o o o o o o o. . Cos(x) : cho keát quaû laø cos(x). Exp(x) : hàm số mũ cơ số tự nhiên ex. Frac(x) : cho keát quaû laø phaàn thaäp phaân cuûa soá x. int(x) : cho keát quaû laø phaàn nguyeân cuûa soá thaäp phaân x. ln(x) : Hàm logarit cơ số tự nhiên. sin(x) : cho kết quả là sin(x), với x tính bằng Radian. Sqr(x) : bình phöông cuûa soá x. Sqrt(x) : cho keát quaû laø caên baäc hai cuûa x. pred(x) : cho kết quả là số nguyên đứng trước số nguyên x. Succ(x) : cho kết quả là số nguyên đứng sau số nguyên x. odd(x) : cho kết quả là true nếu x số lẻ, ngược lại là false. chr(x) : trả về một kí tự có vị trí là x trong bảng mã ASCII. Ord(x) : trả về một số thứ tự của kí tự x. round(n) : Làm tròn số thực n. Random(n) : cho moät soá ngaãu nhieân trong phaïm vi n. upcase(n) : đổi kí tự chữ thường sang chữ hoa. assign(f,'<đường dẫn><tên file>.<phần mở rộng>') : tạo file. rewrite(f) : ghi file leân ñóa. append(f) : chèn thêm dữ liệu cho file. close(f) : taét file. erase(f) : xoùa. rename() : ñaët laïi teân. length(s) : cho keát quaû laø chieàu daøi cuûa xaâu. copy(s,a,b) : copy xaâu. insert(,s,a) : cheøn theâm cho xaâu. delete(s:string,a:integer,b:integer) : xóa b ký tự từ vị trí a trong xaâu s Unit GRAPH.

<span class='text_page_counter'>(3)</span> initgraph(a,b,) : khởi tạo chế độ đồ hoạ. closegraph; : tắt chế độ đồ hoạ. setcolor(x) : choïn maøu. outtext() : in ra maøn hình taïi goùc treân beân traùi. outtextxy(x,y,); : in ra màn hình tại toạ độ màn hình. rectangle(x1,y1,x2,y2): vẽ hình chữ nhật. line(x1,y1,x2,y2) : vẽ đoạn thẳng. moveto(x,y) : lấy điểm xuất phát để vẽ đoạn thẳng. lineto(x,y) : lấy điểm kết thúc để vẽ doạn thảng. circle(x,y,n) : vẽ đường tròn. ellipse(x,y,o1,o2,a,b): veõ hình elip. floodfill(a,b,n) : toâ maøu cho hình. getfillpattern(x) : tạo biến để tô. setfillpattern(x,a) : chọn màu để tô. cleardevice; : xoá toàn bộ màn hình. settextstyle(n,a,b) : chọn kiểu chữ. bar(a,b,c,d) : veõ thanh. bar3d(a,b,c,d,n,h) : veõ hoäp. arc(a,b,c,d,e) : veõ cung troøn. setbkcolor(n) : toâ maøu neàn. putpixel(x,y,n) : veõ ñieåm. setfillstyle(a,b) : taïo neàn cho maøn hình. setlinestyle(a,b,c) : chọn kiểu đoạn thẳng. getmem(p,1) : chuyển biến để nhớ dữ liệu. getimage(x1,y1,x2,y2,p): nhớ các hình vẽ trên vùng cửa soå xaùc ñònh. o putimage(x,y,p,n) : in ra màn hình các hình vừa nhớ. ... Unit DOS getdate(y,m,d,t): lấy các dữ liệu về ngày trong bộ nhớ. gettime(h,m,s,hund): lấy các dữ liệu về giờ trong bộ nhớ. findnext(x): tìm kieám tieáp. Findfirst($20,dirinfo): tìm kieám. ... DỮ LIỆU KIỂU FILE o o o o o o o o o o o o o o o o o o o o o o o o o.    .

<span class='text_page_counter'>(4)</span> I. KHAÙI NIEÄM: Để sử dụng thông tin lâu dài ta phải lưu trữ chúng thành các File ( tập tin, tệp ) trên đĩa mềm hoặc đĩa cứng. Do đó File là kiểu dữ liệu có cấu trúc và rất quan trọng. Trong Pascal chia ra 3 loại File:  File coù ñònh kieåu.  File khoâng ñònh kieåu.  File vaên baûn. Trong giới hạn chương trình, chúng ta chỉ nghiên cứu File văn baûn. DỮ LIỆU KIỂU FILE I. KHAÙI NIEÄM: Để sử dụng thông tin lâu dài ta phải lưu trữ chúng thành các File ( tập tin, tệp ) trên đĩa mềm hoặc đĩa cứng. Do đó File là kiểu dữ liệu có cấu trúc và rất quan trọng. Trong Pascal chia ra 3 loại File:  File coù ñònh kieåu.  File khoâng ñònh kieåu.  File vaên baûn. Trong giới hạn chương trình, chúng ta chỉ nghiên cứu File văn baûn. II. CAÙC THUÛ TUÏC VAØ HAØM CHUAÅN 2.1. Caùc thuû tuïc chuaån 2.1.1. Gaùn teân file Cuù phaùp: Assign(F, Filename); Chức năng: Gán một file trên đĩa có tên là Filename cho biến file F, mọi truy xuất trên file cụ thể được thực hiện thông qua biến file naøy. Chuù yù: Filename bao gồm cả tên ổ đĩa và đường dẫn nếu file không nằm trong ổ đĩa, thư mục hiện thời. 2.1.2. Mở file mới.

<span class='text_page_counter'>(5)</span> Cuù phaùp: Rewrite(F); Chức năng: Tạo file mới có tên đã gán cho biến file F. Nếu file đã có trên đĩa thì mọi dữ liệu trên đó sẽ bị xoá và con trỏ file trỏ ở vị trí đầu tiên của file. 2.1.3. Mở file đã có trên đĩa Cuù phaùp: Reset(F); Chức năng: Mở file có tên đã gán cho biến file F. Nếu file chưa có trên đĩa thì chương trình sẽ dừng vì gặp lỗi xuất/nhập. Vì thế người ta phải kiểm tra khi mở file. Chú ý: Kiểm tra khi mở file: Người ta định hướng kiểm tra lỗi vào ra bằng cách dùng chỉ thị {$I-} và {$I+}vào trước và sau câu lệnh Reset(F). Dùng hàm Ioresult: Word để cho biết kết quả mở file. Nếu Ioresult có giá trị là 0 thì không có lỗi, ngược lại khác 0 thì có loãi. Ví duï: Program MoFile; Var Ten_File:String; F:Text; Begin Write(‘Nhaäp teân File: ‘);readln(Ten_File); Assign(F,Ten_File); {$I-} Reset(F); {$I+} If Ioresult <> 0 then Begin writeln(‘Co loi khi truy xuat File : ‘,Ten_File); Exit; End Else Writeln(‘ Khong co loi khi truy xuat File ‘); End; 2.1.4. Đọc dữ liệu từ file Cuù phaùp: Read(F, x); Chức năng: Đọc một phần tử dữ liệu từ file F ở vị trí con trỏ file vaø gaùn cho caùc bieán x..

<span class='text_page_counter'>(6)</span> 2.1.5. Ghi dữ liệu lên file Cuù phaùp: Write(F, Value); Chức năng: Ghi giá trị Value vào file F tại vị trí hiện thời của con troû file. 2.1.6. Đóng file Cuù phaùp: Close(F); Chức năng: Cập nhật mọi sửa đổi trên file F và kết thúc mọi thao taùc treân file naøy. 2.2.2. Haøm kieåm tra cuoái file Cuù phaùp: EOF(F); Chức năng: Hàm trả về giá trị True nếu con trỏ file đang ở cuối file, ngược lại hàm trả về giá trị False. III. FILE VAÊN BAÛN (TEXT FILE) 3.1. Khai baùo Var <Teân bieán file>: Text; Ví duï: F:Text; 3.2. Các thủ tục và hàm chỉ tác động trên file dạng text 3.2.1. Thuû tuïc Append Cuù phaùp: Append(F); Chức năng: Mở file đã tồn tại để bổ sung nội dung vào cuối file. 3.2.2. Thuû tuïc Readln Cuù phaùp: Readln(F,x); Chức năng: Đọc một dòng từ vị trí con trỏ file và gán cho biến x. Thực hiện xong, con trỏ file sẽ chuyển về đầu dòng tiếp theo. Biến x có thể nhận các kiểu: Char, String hoặc kiểu số. Chú ý: không thể dùng lệnh Readln(F,x)để đọc số nguyên trong moät teäp soá nguyeân. 3.2.3. Thuû tuïc Writeln Cuù phaùp: Writeln(F, x); Chức năng: Ghi giá trị x vào file ở vị trí con trỏ file. Kết thúc thủ tục, con trỏ file sẽ chuyển về đầu dòng sau. 3.2.4. Haøm EOLn.

<span class='text_page_counter'>(7)</span> Cuù phaùp: EOLn(F); Chức năng: Hàm trả về giá trị True nếu con trỏ đang ở cuối một dòng, ngược lại hàm trả về giá trị False. Chuù yù:  Sau ñaây laø caùc thao taùc cô baûn khi xuaát nhaäp file: Ghi dữ liệu vào file Đọc dữ liệu từ file ASSIGN(f,FileName); ASSIGN(f,FileName); REWRITE(f); RESET(f); ... ... WRITE(f,value); While Not EOF(f) Do ... Begin CLOSE(f); READ(f,x); ... End; ... CLOSE(f); BAØI TAÄP. Bài tập 1: Viết chương trình đọc các số nguyên trong một File text và gán các số nguyên đó vào mảng A. (File text gồm các số nguyên đã lưu ở ổ cứng). Var f:Text; tenfile:String; A:Array[1..100] of integer; i,n:integer; Begin Write(' Nhap ten file du lieu : '); Readln(tenfile); Assign(f,tenfile); {$I-} Reset(f); {$I+} If Ioresult<>0 then Begin Writeln(' Khong co tap tin co ten : ',tenfile); Halt(1);.

<span class='text_page_counter'>(8)</span> End; n:=0; While Not EOF(f) do Begin While Not EOLN(f) do Begin inc(n);Read(F,a[n]); End; Readln(f); End; Close(f); Writeln; If n>0 then Begin Write('A = '); For i:=1 to n do write(a[i],' '); End; Readln; End. Bài tập 2: Viết chương trình đọc và đếm số lượng số nguyên trong moät File text. Baøi taäp 3: Vieát chöông trình taïo ra moät File text coù teân DULIEU.INP goàm caùc soá nguyeân. Tính toång caùc soá nguyeân treân moät haøng. Keát quaû löu vaøo File text coù teân DULIEU.OUT, trong đó mỗi tổng được ghi trên một hàng. Chaúng haïn DULIEU.INP  DULIEU.OUT 65 11 3 6 8 12 2 31 7 5 6 10 6 34 82451 20 Baøi taäp 3: Vieát chöông trình saép xeáp caùc soá nguyeân trong moät File text theo thứ tự tăng dần. Bài tập 4: Viết chương trình thực hiện các công việc sau:.

<span class='text_page_counter'>(9)</span> a) Đọc 2 file text số nguyên và sắp xếp chúng theo thứ tự tăng daàn. b) Hãy nối 2 file đó lại với nhau thành file thứ 3 sao cho file mới vẫn có thứ tự tăng dần. Gợi ý: - Câu a) dùng hai mảng A,B để ghi các số nguyên có trong 2 file rồi saép xeáp theo maûng A,B. - Câu b) có thể làm theo hướng dẫn sau: Duøng theâm 1 maûng C vaø ta tieán haønh nhö sau:  Dùng 2 chỉ số i,j để duyệt qua các phần tử của 2 mảng A, B và k laø chæ soá cho maûng C.  Trong khi (i<=m) vaø (j<=n) thì: {Tức là khi đồng thời cả 2 dãy A, B đều chưa duyệt hết} + Neáu A[i]>B[j] thì: C[k]:=A[i]; i:=i+1; + Ngược lại: C[k]:=B[j]; j:=j+1;  Nếu dãy nào hết trước thì đem phần còn lại của dãy kia bổ sung vaøo cuoái daõy C. BAØI TẬP TỰ GIẢI Bài tập 1: Viết chương trình thực hiện các công việc sau: c) Tạo ra 2 file số nguyên và sắp xếp chúng theo thứ tự tăng daàn. d) Hãy nối 2 file đó lại với nhau thành file thứ 3 sao cho file mới vẫn có thứ tự tăng dần. Bài tập 2: Cho 2 mảng số nguyên: Mảng A có m phần tử, mảng B có n phần tử. a/ Sắp xếp lại các mảng đó theo thứ tự giảm dần. b/ Trộn 2 mảng đó lại thành mảng C sao cho mảng C vẫn có thứ tự giảm dần (Không được xếp lại mảng C). Bài tập 3: Cho đa thức P(x) = a0 + a1x + a2x2 + ... + anxn Trong đó n là bậc của đa thức và a 0, a1, ... , an là các hệ số của đa thức được lưu trong một file văn bản với qui ước sau:.

<span class='text_page_counter'>(10)</span> - Dòng đầu của file văn bản chứa bậc của đa thức và giá trị của x. - Dòng tiếp theo chứa các hệ số của đa thức. Ví dụ: P(x) = 3 + 2x - 5x2 + 4x3 , x = 2.5 sẽ được lưu trong file văn baûn nhö sau: 3 2.5 3 2 -5 4 Viết chương trình đọc file văn bản trên để lấy các số liệu rồi tính giá trị của đa thức. Gợi ý: - Tổ chức mảng để lưu đa thức. - Viết thủ tục để đọc file text lưu vào mảng. Baøi taäp 4: Vieát chöông trình taïo ra hai taäp tin löu caùc soá kieåu word mà các số trong mỗi file đã được sắp thứ tự tăng dần. Hãy tạo tập tin mới chứa tất cả các số của 2 tập tin trên sao cho thứ tự tăng dần vẫn được duy trì. Chú ý: Không được dùng mảng..

<span class='text_page_counter'>(11)</span>