Đang tải... (xem toàn văn)
Chương trình dạy học pascal
Luận văn Chương trình dạy học pascal Trang1 PHẦN A: KHÁI QUÁT VỀ CHƯƠNG TRÌNH I GIỚI THIỆU VỀ ĐỀ TÀI Theo xu hứng phát triển thời đại nay, cơng nghệ thơng tin đóngvai trị quan trọng lĩnh vực kinh tế, trị, xã hội, ăn sâu vào lĩnh vực tầm quan trọng công nghệ thông tin thời đại điều phủ nhận Chiếc máy tính trở nên thơng dụng, ta thấy nơi lĩnh vực, từ văn phịng cơng sở cơng ty đến máy tính gia đình Hiện nước ta việc sử dụng rộng rãi máy tính khơng cịn bó hẹp viện nghiên cứu , trường đại học , trung tâm máy tính mà cịnmở rộng quan ,xí nghiệp Ngày tin học thâm nhập vào tất hoạt động tồn xã hội lồi người máy tính điện tử trở thành công cụ đắc lực không giảm nhẹ lao đơng (kể lao động trí óc) mà giúp thêm người lực Việt Nam máy tính, đặc biệt máy vi tính năm gần quen thuộc với người Bước đầu tin học đưa vào trường trung học ,đại học nhằm tới phổ cập tin học cho người Số lượng máy tính ngày nhiều , việc giảng dạy tin học trường đại học, trung học bước trường phổ thông đẩy mạnh đôi với việc tăng cường trang bị máy vi tính., để khai thác hết cơng suất máy tính Ngơn ngữ lập trình Pascal giáo sư N.Wirth sáng tác năm 1970 , ngôn ngữ thuật giải , có tính cấu trúc chặt chẽ ,sáng sủa với mục đích làm cơng cụ giảng dạy cho sinh viên.Song Pascal trở thành ngơn ngữ phổ biến , thích hợp với nhiều ứng dụng khoa học, kỹ thuật, quản lý coi ngơn ngữ thích hợp cho tất đối tượng nhập môn tin học cán , học sinh phổ thông , sinh viên Học Pascal bạn học sinh ,sinh viên học lối tư rõ ràng, mạch lạc Trang2 Do để đáp ứng nhu cầu việc học tin học học mơn lập trình, chung xin trân trọng mang tới cho ban học sinh, sinh viên ,ban dọc chương trình “chương trỡnh dạy học pascal” Chương trình tài liệu tốt để người học tự học Pascal Chương trình gồm đầy đủ lí thuyết số dạng ví dụ cụ thể II MỤC LỤC CỦA CHƯƠNG TRÌNH Chương I a Dữ liệu kiểu liệu b Logic integer c Kiểu thực Character d Kiểu liệu đếm khơng đếm e Ví dụ minh họa Chương II a Khai báo b Các kiểu liệu biểu thức c Các câu lệnh Instruction d Ví dụ minh họa Chương III a Thủ tục Write b Thủ tục Read c Câu lệnh If then d Câu lệnh Case of e Ví dụ minh họa Chương IV a Vòng lặp Repeat b Lệnh điều khiển Goto c Vịng lặp For d Ví dụ minh họa Trang3 Chương V a Khái niệm chương trình b Thủ tục Function c Đơn vị chu trình Unit d Vi dụ minh họa Chương VI a Khái niệm mảng b Khái niệm cấu trúc mảng c Mảng chiều hai chiều d Ví dụ minh họa Chương VII a Khái niệm ghi b Bản ghi có cấu trúc c Mơ tả sử dụng Record d Câu lệnh With Chương VIII a Cấu trúc phân loại b Mở đóng File c Đọc file có đĩa d Text file Chương IX a Định nghĩa xâu kí tự b Thao tác xâu kí tự c Ví dụ minh họa 10 Chương X a Khái niệm đồ họa b Các câu lệnh đồ họa c Ví dụ minh họa Trang4 PHẦN B: KHÁI QUÁT VÀ THIẾT KẾ HỆ THỐNG CHƯƠNG TRÌNH CHƯƠNG I : KHÁI QUÁT VỀ CHƯƠNG TRÌNH I.I GIỚI THIỆU SƠ LƯỢC VỀ CHƯƠNG TRÌNH Như giới thiệu với bạn đọc chương I, ngơn ngữ Pascal ngơn ngữ thuật giải có cấu trúc chặt chẽ Do thông qua lưu đồ thuật giải chương trình, người quản lý xây dựng cập nhật liệu, phát triển phần mềm cách có hiệu Để hiểu rõ vấn đề ta vào xem xét số vấn đề thiết kế sau Tìm hiểu Triển khai đề tài áp dụng từ trung tâm học sinh chúng em tìm tịi nghiên cứu áp dụng sách lập trình Pascal : ngơn ngữ lập trình Pascal, tự học lập trình Pascal, 100 tốn lập trình Pascal Để đưa Menu giới thiệu tới bạn đọc cách học ngôn ngữ lập trình Pascal, cách nhanh hiệu Phân tích Dựa ý tưởng tham khảo số sách trên, em phân tích triển khai áp dụng vào đề tài thực tập Tuy có chút thay đổi em tôn trọng tác giả sách ý kiến người dụng Phân tích thiết kế yêu cầu trọng yếu phần mềm, triển khai yêu cầu quan trọng trước lý thuyết phần quan trọng khác thực sau đầy đủ phần tập áp dụng Q trình phân tích(thuật giải) bao gồm bước sau: Xáđịnh yêu cầu đề bài, tìm kiếm bổ xung liệu, thiết kế giao diện chương trình Trang5 I.II THIẾT KẾ SƠ LƯỢC MENU HỆ THỐNG - Thiết kế xây dựng giao diện giới thiệu đề tài tốt nghiệp ngôn ngữ TorboPascal - Thiết kế Munnu chương trình hình đồ họa ngơn ngữ TorboPascal - Để thể mơ hình toàn hệ thống ta xem sơ đồ đặc tả chức sau Sơ đồ chức Menu chương trình CHƯƠNG MỘT CHƯƠNG HAI CHƯƠNG BA CHƯƠNG BỐN CHƯƠNG NĂM CHƯƠNG SÁU CHƯƠNG BẨY CHƯƠNG TÁM CHƯƠNG CHÍN CHƯƠNG MƯỜI Sơ đồ chức Menu Trang6 Sơ đồ menu chương CHƯƠNG MỘT Dữ liệu kiểu liệu Logic Interger Dữ liệu không đếm đếm Kiểu character Trở menu Ví dụ minh họa Sơ đồ Menu chương hai Chương hai Khai báo Kiểu liệu biểu Vi dụ minh họa Câu lệnh Intruction Trở menu Mơ hình sơ đồ Menu chương ba Chương ba Thủ tục write Thủ tục read Câu lênh if then Vi dụ minh họa Trở Menu Trang7 Mơ hình Menu chương bốn Chương bốn Vịng lặp repeat Vịng lặp for Lệnh Goto Ví dụ minh họa Trở menu Mơ hình Menu chương năm Chương năm đơn vị chu trình unit Thủ tục funcion Khái niệm chương trình Trở Menu Mơ hình Menu chương sáu Chương sáu Câu lệnh If then Mảng chiều ,hai chiều Khái niệm cấu trúc mảng Khái niệm mảng Vi dụ minh họa Trang8 Mơ hình Menu chương bảy Chương bảy Mô tả sử dụng record Khái niệm ghi Bản ghi có cấu trúc Trở Menu Câu lệnh with Sơ đồ Menu chương tám Chương tám Mở đóng tệp Cấu trúc phân loại Text file đọc file đĩa Trở Menu 10 Sơ đồ Menu chương chín Chương chín định nghĩa xâu kí tự Thao tác xâu kí tự Ví dụ minh họa Trở Menu Trang9 11 Sơ đồ Menu chương mười Chương mười Khái niệm đồ họa Các câu lệnh đồ họa Ví dụ minh họa Trở Menu Trang10 case key of #27:exit; #13: If Sott1= then EXIT else case Sott1 of 1: begin Restorecrtmode; Textcolor(7); Ten3:='d:\tp\bin\31.pas'; ReadData(ten3); SetGraphMode(GetGraphMode); Cuasonen3; end; 2:begin Restorecrtmode; Textcolor(7); Ten3:='d:\tp\bin\32.pas'; ReadData(ten3); SetGraphMode(GetGraphMode); Cuasonen3; end; 3:begin Restorecrtmode; Textcolor(7); Ten3:='d:\tp\bin\33.pas'; ReadData(ten3); SetGraphMode(GetGraphMode); Cuasonen3; end; 4:begin Restorecrtmode; Trang47 Textcolor(7); Ten3:='d:\tp\bin\34.pas'; ReadData(ten3); SetGraphMode(GetGraphMode); Cuasonen3; end; 5:begin Restorecrtmode; Textcolor(7); Ten3:='d:\tp\bin\34.pas'; ReadData(ten3); SetGraphMode(GetGraphMode); Cuasonen3; end; End; #0: begin key:=readkey; if key= #72 then Begin Sott1:= Sott1 - 1; st; if Sott1 < then Sott1:= 6; End; if key= #80 then Begin Sott1:= Sott1 + 1; st; if Sott1 > then Sott1:= 1; End; end; end; { of case key } Trang48 MENU_C3 (Sott1); end;{ of While } End; { -} Procedure MENU_CON_C10; Var Sott1:integer; Begin Sott1:=1; Cleardevice; Cuasonen10; MENU_C10 (Sott1); While true Begin key:=readkey; case key of #27:exit; #13: If Sott1=4 then EXIT else case Sott1 of 1: begin Restorecrtmode; Textcolor(7); Ten10:='d:\tp\bin\10.pas'; ReadData(ten10); SetGraphMode(GetGraphMode); Cuasonen10; end; 2:begin Restorecrtmode; Textcolor(7); Ten10:='d:\tp\bin\10.pas'; Trang49 ReadData(ten10); SetGraphMode(GetGraphMode); Cuasonen10; end; 3:begin Restorecrtmode; Textcolor(7); Ten10:='d:\tp\bin\10.pas'; ReadData(ten10); SetGraphMode(GetGraphMode); Cuasonen10; end; 4:begin Restorecrtmode; Textcolor(7); Ten10:='d:\tp\bin\11.pas'; ReadData(ten10); SetGraphMode(GetGraphMode); Cuasonen10; end; End; #0:begin key:= readkey; if key= #72 then Begin Sott1:= Sott1 - 1; st; if Sott1 < then Sott1:= End; if key= #80 then Begin Trang50 Sott1:= Sott1 + 1; st; if Sott1 > then Sott1:= 1; End; end; end; { of case key } MENU_C10 (Sott1); end;{ of While } END; {======= HET DINH DANG ======== =========} { -GOI CHUONG TRINH RA MAN HINH -} Procedure CALLMENU; Var Sott1, k :integer; Begin Sott1:=1; Cleardevice; Cuasonen; MENU_MUCLUC (Sott1); While true Begin key:=readkey; case key of #0: begin key:=readkey; if key = #72 then Begin Sott1:=Sott1-1; st; td; if Sott110 then Sott1:=1; End; end; #27: exit; #13: begin procedures[Sott1]; Cuasonen; end; else begin for k:=1 to 10 begin if upcase(muclucindex[k]) = upcase(key) then begin procedures[k]; Cuasonen; end; end; end; end; { of case key } MENU_MUCLUC(Sott1); end;{ of While } End; procedure initProcedural; begin procedures[1] := MENU_CON_C1; procedures[2] := MENU_CON_C2; procedures[3] := MENU_CON_C3; procedures[4] := MENU_CON_C4; procedures[5] := MENU_CON_C5; Trang52 procedures[6] := MENU_CON_C6; procedures[7] := MENU_CON_C7; procedures[8] := MENU_CON_C8; procedures[9] := MENU_CON_C9; procedures[10] := MENU_CON_C10; end; { } BEGIN Clrscr; Begin initProcedural; Tieu_de:='GIOI THIEU '; Tieu_de_0:='CAC KIEU DU LIEU'; Tieu_de_1:='DU LIEU CO SO & DON GIAN CHUAN'; Tieu_de_2:='KHAI BAO HANG va BIEN'; tieu_de_201:=' KIEU_BIEU THUC_CAU LENH'; Tieu_de_3:='THU TUC VAO RA DU LIEU'; Tieu_de_4:='CAC CAU LENH DIEU KIEN'; Tieu_de_5:= 'VONG LAP XAC DINH For'; Tieu_de_6:=' KHONG XAC DINH While&Repeat'; Tieu_de_7:='CHUONG TRINH CON: '; tieu_de_701:='Procedure va Function'; Tieu_de_8:='KIEU DU LIEU CO CAU TRUC:'; tieu_de_801:=' KIEU MANG ARRAY'; Tieu_de_9:='KIEU DU LIEU CO CAU TRUC '; tieu_de_901:='BAN GHI: Record'; Tieu_de_10:='KIEU DU LIEU CO CAU TRUC:'; tieu_de_101:='KIEU TEP File'; Tieu_de_11:='SAU KY TU String'; Tieu_de_12:='CAC THU TUC VE DO HOA'; Trang53 Tieu_de_13:='CHUONG TRINH DAY HOC PASCAL'; Tieu_de_14:=' TREN MAY VI TINH '; MhDohoa; CALLMENU; CloseGraph; End; END Trang54 PHẦN C : HƯỚNG DẪN NGƯỜI SỬ DỤNG CHƯƠNG TRÌNH Sau xin hướng dẫn bạn sử dụng chương trình “ Dạy học pascal máy tính ” Thực mà nghĩ phần mền muốn sử dụng khơng có khó Bởi ? Vì chương trình tức phần menumucluc thể khác rõ chi tiết Menumucluc đặc sắc, bạn thất màu sáng chữ lên rõ lét Mỗi chương gán ký tự chữ định Khi vào đến chương trình menumucluc gồm có 10 chương Trước mắt bạn menumucluc, bạn ấn phím bàn phím, nhiên phím phải trùng với phím menumucluc chương trình Trang55 cho phép bạn đến menucon khác Ngồi bạn dùng phím kết hợp Shift + chữ sáng menu dùng mũi tên lên xuống để chọn lựa mục Khi không muốn sử dụng bạn phải ấn ESC để khỏi chương trình Nếu chương trình chọn, từ menu lại mở menucon khác menucon khác gồm có nhiều Mục liệt kê Bạn ấn vào mục mục chọn Mục tìm đến địa File Đây menucon chương sau bạn chọn Nếu ban chọn mục cho phép bạn xem thơng tin VD: Bạn chọn mục liệu kiểu liệu, mục liệu tìm đến qui định sắn chương trình Nếu trường hợp nguồn liệu File khơng tồn quay lại chương trình menucon1 Các mục khác Để khỏi chương trình bạn ấn ESC chương trình menumucluc Về menumucluc bạn lại chọn hai, Chương hai đưa cho bạn Trang56 menunucon giống y menucon Trong menucon hai gồm nhiều thông tin bạn cần đọc VD: Ban muốn xem kiểu liệu khai báo cấu trúc Khi đọc xong thơng tin bạn ấn phím Enter để trở menucon Dùng mũi tên lên xuống chọn chương trình menucon khác load File thơng tin cầc biết Dùng ESC vê menumucluc Sau chương trình bạn chọn vào chương ba cách ấn Enter, mũi tên lên xuống Phím “ H ” “h” , không bạn ấn Shift + h chương trình hiểu bạn vào menucon thứ ba Trang57 Trong menucon ba có nhiều hay Các mục có câu lệnh mà bạn cần phải biết rõ, dùng mũi tên lên xuống chọn mục bất kỳ, giả sử bạn chọn vào mục một, bạn tìm nhiều thơng tin để xem cách viết thủ tục vào liệu câu lệnh vong lặp Bạn muốn thoát khỏi menucon ESC hay dùng mũi tên chọn mục trở Bạn chọn chương bốn cửa sổ chương bốn khơng khác so với chương trên, nội dung menucon bốn giới thiệu số thủ tục hàm, cách xây dựng hàm thủ tục theo tổ chức liệu Để biết rõ bạn chọn chương trình để biết thêm thơng tin khác Trang58 Dùng Shift + O chữ Trở lại bạn dùng ESC Chọn chương sáu cho biết thông tin kiểu liệu mảng: Khi trở menumucluc bạn lại chọn tiếp chương bảy, sổ chương bảy xuất hiên dạng hình thứ sau: Trong chương mang thông tin cách khai báo ghi, bạn chọn mục khác để biết thêm thông tin khác Bạn chọn chương tám sổ xuất hiện: Trang59 Nếu bạn chọn chương chín thơng tin lại khác bạn tự chọn xem chi tiết Trang60 Bạn chọn chương mười cho bạn biết thêm phần đồ họa Trong toàn menucon thiết kế hoàn tồn giống nhau, chương trình mong bạn xây dựng thêm chương trình linh hoạt, hấp dẫn Trang61 ... việc học tin học học môn lập trình, chung tơi xin trân trọng mang tới cho ban học sinh, sinh viên ,ban dọc chương trình ? ?chương trỡnh dạy học pascal? ?? Chương trình tài liệu tốt để người học tự học. .. áp dụng sách lập trình Pascal : ngơn ngữ lập trình Pascal, tự học lập trình Pascal, 100 tốn lập trình Pascal Để đưa Menu giới thiệu tới bạn đọc cách học ngơn ngữ lập trình Pascal, cách nhanh... TorboPascal - Thiết kế Munnu chương trình hình đồ họa ngôn ngữ TorboPascal - Để thể mơ hình tồn hệ thống ta xem sơ đồ đặc tả chức sau Sơ đồ chức Menu chương trình CHƯƠNG MỘT CHƯƠNG HAI CHƯƠNG BA CHƯƠNG