... Giáo trình Nhập môn Tin học: Phần III – NgônngữlậptrìnhPascal - GVC: Đào Tăng Kiệm PHẦNNGÔNNGỮLẬPTRÌNHPASCAL Chương CÁC KH I NIỆM CƠ BẢN INgônngữlậptrình Pascal: Gi i thiệu chung ... Xây dựng Giáo trình Nhập môn Tin học: Phần III – NgônngữlậptrìnhPascal - GVC: Đào Tăng Kiệm Chương CÁC KIỂU DỮ LIỆU VÀ CÁCH KHAI BÁO – BIỂU THỨC I Các kiểu liệu Kh i niệm: M i đ i lượng tính ... [i] Hoten, SV [i] Diem); … Bộ môn Tin học Xây dựng 27 Giáo trình Nhập môn Tin học: Phần III – NgônngữlậptrìnhPascal - GVC: Đào Tăng Kiệm Readln (Hoi) ; End; + i: = ; WHILE i
... thành phầnngônngữPascal 6.1 Từ khóa Từ khoá từ mà Pascal dành riêng để phục vụ cho mục đích (Chẳng hạn như: BEGIN, END, IF, WHILE, ) Chú ý: V i Turbo Pascal 7.0 trở lên, từ khoá chương trình hiển ... trên, lệnh Write (i) thực 10 lần Nếu hiểu dấu chấm phẩy kết thúc câu lệnh lệnh Write (i) thực lần 6.4 L i gi i thích Các l i bàn luận, l i thích đưa vào chỗ chương trìnhngưi đọc dể hiểu mà không ... Kh i động l i Turbo Pascal Mở file BAI1.PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa 11 Thoát kh iPascal 12 Viết chương trình in...
... thành phầnngônngữPascal 6.1 Từ khóa Từ khoá từ mà Pascal dành riêng để phục vụ cho mục đích (Chẳng hạn như: BEGIN, END, IF, WHILE, ) Chú ý: V i Turbo Pascal 7.0 trở lên, từ khoá chương trình hiển ... trên, lệnh Write (i) thực 10 lần Nếu hiểu dấu chấm phẩy kết thúc câu lệnh lệnh Write (i) thực lần 6.4 L i gi i thích Các l i bàn luận, l i thích đưa vào chỗ chương trìnhngưi đọc dể hiểu mà không ... Kh i động l i Turbo Pascal Mở file BAI1.PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa 11 Thoát kh iPascal 12 Viết chương trình in...
... ý Giá tr c a màu ki u vân hoa s ñư c gi cho ñ n ta ñ nh nghĩa l i B ng Giá tr ý nghĩa c a tham s n1 Giá tr 10 11 Tên ti ng Anh EmptyFill SolidFill LineFill LTSlashFill SlashFill BKSlashFill ... setlinestyle(0,0,3); SetWriteMode(xorput); linerel(round(130*cos( (i* 6-89)*pi/180)),round(130*sin( (i* 6-89)*pi/180))); moveto(320,240); 185 Trư ng ð i h c Nông nghi p - Giáo trình Tin h c ñ i cương ... - 185 linerel(round(130*cos( (i* 6-90)*pi/180)),round(130*sin( (i* 6-90)*pi/180))); moveto(320,240); linerel(round(130*cos( (i* 6-91)*pi/180)),round(130*sin( (i* 6-91)*pi/180))); (* Kim giay *)...
... xoá * Ghi d li u vào t p dùng th t c Write Write(bi n_t p, bi u_th c1, bi u_th c2, , bi u_th c n); Các bi u_th c ph i có giá tr ki u v i ki u c a t p Giá tr c a bi u th c s ñư c ghi vào t p ... chương trình th c hi n t o t p ‘diem.dat’ ghí l ii m thi c a thí sinh, d li u bao g m: h tên thí sinh, i m toán, i m lý, i m hoá ð ng th i th c hi n ñ c t p in thí sinh trúng n, i m chu ... nam: integer; 166 Trư ng ð i h c Nông nghi p - Giáo trình Tin h c ñ i cương - 166 trang: longint; tacgia: string[25]; end; Var i, n : integer; f: file of tin; nhap: tin; Begin...
... Function Giaithua( n: longint): longint ; begin 159 Trư ng ð i h c Nông nghi p - Giáo trình Tin h c ñ i cương - 159 if n=0 then Giaithua:= else Giaithua:= Giaithua(n-1) * n ; end; ... Bi n c c b Bi n c c b bi n ñư c khai báo ñ u chương trình Bi n c c b ñư c c p phát b nh chương trình ñư c g i t i b xoá kh i chương trình Bi n c c b ch ñư c dùng chương trình Bi n toàn c c bi ... nhi u k t qu ph i t ch c chương trình d ng th t c - Bi n toàn c c, bi n c c b truy n d li u 2.1 - Bi n toàn c c Bi n toàn c c bi n khai báo ñ u chương trình Bi n toàn c c t n t i su t th i gian...
... nh> trình ti p di n ñ n < i u ki n> ñúng d ng Sơ ñ LÖnh §óng i u kiÖn Sai • Ví d : L y l i VD g i ti t ki m Bây gi ta s vi t l i chương trình s d ng d ng l nh l p v ii u ki n sau Chương trình ... writeln (I) vi t giá tr Sau ñó bi n I ñư c tăng thêm m t ñơn v , t c I: =I+ 1 Bây gi I= 2, chưa vư t qua giá tr cu i 10 nên l nh writeln (I) l i ñư c th c hi n ñ in giá tr c a I lên hình R iI l i ñư c tăng ... ®Çu BiÕn_ i u_khiÓn:=BiÓu_thøc1 §óng BiÕn_ i u_khiÓn>BiÓu_thøc2 Sai KÕt thóc DO BiÕn_ i u_khiÓn:=Succ(BiÕn_ i u_khiÓn) * Ví d VD1: Vi t chương trình tính t ng c a n s t nhiên ñ u tiên S=1+2+...
... Tuoi_nguoi = 300; 121 Trư ng ð i h c Nông nghi p - Giáo trình Tin h c ñ i cương - 121 3.5 Khai báo bi n Bi n ñ i lư ng có th thay ñ i giá tr trình x lí Bi n c a chương trình ... cách vi t tên bi n cách b i dâú ph y (,), nhóm bi n khác ki u ñư c vi t cách b i d u ; Ví d : Var i: integer; { khai báo m t bi n có tên I, bi n có ki u nguyên} x,y,z:real; { khai báo bi n x,y,z ... gi d li u Mu n s d ng bi n ta ph i khai báo trư c bi n ñó b ng cách vi t tên bi n ph n khai báo ñ u chương trình sau t khoá Var Cú pháp: Var Tên_bi n:Ki u_d _li u; ñó: Tên_bi n ta ñ t ra, Ki...
... gi i toán ñó hay xác ph i bi t thu t gi i ñ gi i toán trình bày thu t gi i b ng ngôn ng l p trình Bư c 1: So n th o chương trình ðây bư c vi t m i m t chương trình, có th vi t gi y trư c r i ... Ngưi l p trình ph i b nhi u công s c ñ thi t k thu t gi i vi t chương trình cho ph n 4.4 Các bư c b n l p trình Trư c vi t m t chương trình gi i quy t m t toán ñó, ngưi l p trình ph i bi t ... t qu sai ta ph i xem l i thu t gi i ðây l i ñ c bi t nghiêm tr ng không th hi n qua thông báo l i có th làm sai toàn b toán Ta ph i quay l i bư c ñ s a ch y l i Câu h i ôn t p chương I 1- Nêu...
... (American National Standard Institute), Viện tiêu chuẩn Quốc gia Mỹ Trong nhiều chơng trình dịch Pascal, Turbo Pascal tỏ có nhiều u i m đợc xem nh ngônngữlậptrình cấp cao phổ biến gi i đợc ... quy định kiểu ngônngữlậptrình Trong ngônngữlập trình, liệu thuộc kiểu liệu định Dữ liệu Turbo Pascal đợc chia thành lo i chính: Kiểu liệu đơn giản (simple type) Kiểu liệu có cấu trúc (structure ... (X=2) M i biến ph i thuộc kiểu liệu định cần đợc khai báo trớc phần khai báo biến Chơng trình dịch báo l i gặp biến cha đợc khai báo Khai báo biến báo cho chơng trình dịch biết đợc kiểu liệu biến,...
... đ i> số nguyên dơng độ d i t i đa chu i đợc lu trữ biến thuộc kiểu liệu Đ i v i Turbo Pascal: String có chiều d i t i đa 255 Có thể không độ d i cực đ i 255 Biến kiểu chu i ... 9.2.1 Kh i niệm tập tin Tập tin (File) cấu trúc liệu gồm nhiều thành phần kiểu đợc chứa nhớ Định nghĩa kiểu tập tin v iphần tử có kiểu phần tử đợc viết phần mô tả kiểu v i từ khoá FILE OF nh ... xoá Ghi giá trị vào tập tin v i thủ tục WRITE Thủ tục Write đặt giá trị vào tập tin Cú pháp: Write(, ,, ,); ,, , giá trị cần ghi vào tập tin,...
... i u giúp cho ngưilậptrình gi iphần một, kh i cho nhiều ngưi tham gia lập trình, ngưi phụ trách v i kh i Là ngônngữlậptrình gần v ingônngữ tự nhiên (tiếng Anh) nên mã Pascal trở nên ... cận ngônngữlậptrình bậc cao Ở cấp THPT, môn học bắt buộc học sinh kh i 11 N i cách kh i quát, Pascalngônngữlậptrình có cú pháp khoa học gần g i v ingônngữngưiPascal có ưu i m việc ... đặc i m [1]: Là ngônngữ có định kiểu mạnh mẽ: M i biến kiểu liệu gán giá trị kiểu liệu đó, không tự đem gán cho giá trị kiểu liệu khác Việc định kiểu cách chặt chẽ khiến cho ngưilập trình...
... biến thân chương trình II/ bước để viết chương trình máy tính 1/ Phân tích công việc chọn cách gi I, g I gi I thuật (algorithm) Để lậptrình gi I vấn đề, i u trước tiên cần có gi I thuật Gi I ... PASCAL Nếu Vitri vượt chiều d i chu I Ch2 Ch1 n I vào sau chu I Ch2 Ví dụ: Insert(‘BASIC’, Ch2, 8) ‘ASCALBASIC’ STR(Giatri, Ch) Giatri biểu thức Integer Real có ghi dạng in Ch biến kiểu chu i Thủ tục ... KIẾN THỨC YÊU CẦU Hiểu kh i niệm ngônngữPascal Biết cách c i đặt Pascal từ đĩa CD Biết cách sử dụng Pascal 7.0 Biết tạo, lưu mở tập tin chương trình Biết biên dịch thực thi chương trình I/ ...
... trình HienThi: hiển thị các lựa chọn của chương trình Call_n: Go i thủ tục giaithua Unit dequy.tpu để tính n! Call_Fibonacci: Go i thủ tục Fibonacci Unit dequy.tpu để tính dãy Fibonacci ... Viết unit các thuật toán sách cấu trúc dữ liệu và gia i thuật bằng ngôn ngữ Pascal Phần 2: Giơ i thiệu chi tiết đề ta i Chương 1: Tổng Quan: I Công việc đã làm Tiến trình ... k *i I: =i+ 1 True I> N GiaiThua: = k False END Fibonacci: ta có : if n< = then F(n) = F(n) = F(n-2) + F(n-1) Begin Nhập N i= 2 x=1 y=1 Fibo = I = i+ Tru e i
... kh i niệm Phân lo i: có ba lo i tên: Tên dành riêng (hay g i từ khóa): Tên chuẩn: Kh i niệm: tên ngônngữlậptrình qui định dùng v i ý nghĩa riêng xác định, ngưilậptrình ... v i ý nghĩa khác Ví dụ: Trong Pascal: program, uses, const, type, var, begin, end Trong C++: main, include, if, ưhile, void Kh i niệm: tên ngônngữlậptrình dùng v i ý nghĩa định Ngưilậptrình ... ngưilậptrình đặt dùng v i ý nghĩa riêng, xác định cách khai báo trước sử dụng.Câc tên không trùng v i tên dành riêng Ví dụ: Tên ngưilậptrình đặt: A1 DELTA CT_Vi du Một số kh i niệm...
... tìm hiểu thành phầnngônngữlậptrình Các em cần nắm đợc thành phầnngônngữlập trình: Bảng chữ Cú pháp Ngữ nghĩa Biết đợc số kh i niệm: Tên:Tên chuẩn Tên dành riêng Tên ng ilậptrình ... turbopascal Trả l i: Quy cách đặt tên turbopascal là: + Gồm chữ số,chữ c i, dấu gạch d i + Bắt đầu chữ dấu gạch d i +Độ d i không 127 ký d i -Nhiều ngônngữlậptrình có pascalphân biệt ba lo i ... ph i thực hiện, ứng v i tổ hợp ký tự dựa vào ngữ cảnh Một số kh i niệm a)Tên -M i đ i tợng chơng trình ph i đợc đặt tên theo quy tắc ngônngữlậptrình tong chơng trình dịch cụ thể -Tên dãy liên...
... Inc(SoPhim); Temp[SoPhim]:= ReadKey; end; i: = 0; while i < Sophim begin Inc (i) ; if Temp [i] =#0 then begin ThemHDPMR(temp [i+ 1]); Inc (i) ; end else begin Xulyphim(Temp [i] ); end; end; end; procedure KhoiTaoGoTelex; ... then begin if (i> 1) and (LaNguyenAm(TuHt [i- 1])) then begin ViTriBoDau:= i - + LayDau(Copy(TuHt, i- 1, 2)); if (i> 2) and (TuHt [i- 2] = 'g') and (TuHt [i- 1] = 'í)then ViTriBoDau:= i; end else ViTriBoDau:= ... ord(PMR); intr($16, r); end; function ViTriNguyenAm(c:Char): Byte; {Tìm số nguyên âm ctrong mảng} var i: Byte; begin for i: = to 12 * begin if c = TapKyTuNA [i] then begin ViTriNguyenAm:= i; Exit; end;...
... đa giác mà i m nằm đa giác - Các cạnh chúng i m chung B i toán đặt là: V i đa giác i, có đa giác bao nó? (i nằm đa giác) Dữ liệu vào: Ghi tập tin văn Dagiac.Inp - Dòng ghi số tự nhiên N (3≤N≤10000) ... Ghi tập tin Dagiac.Out - Gồm N dòng - Dòng thứ i: Ghi số lượng đa giác bao đa giác i - Ý tưởng: - Sử dụng mảng a,vt,kq (v i a [i] lưu giá trị hoành độ nhỏ đỉnh đa giác thứ i, vt [i] đa giác thứ i, ... chứa số số i m thẳng hàng (Gi i hạn: 1