... Myarray = Array[1 nmax] of integer ; Var A:myarray; s, n, i, k:integer; Begin Clrscr; Randomize; Write(‘nhap n=’); readln(n); For i:=1 to n a[i]:=random (30 0) – random (30 0); For i:=1 to n Write(A[i]:5); ... sát chương trình thực Lệnh kết hình - Lệnh sinh ngẫu nhiên giá trị cho gán a[i]:=random (30 0) – random (30 0) có ý nghĩa gì? mảng a từ – 299 đến 299 - Hỏi: Lệnh Fori:=1 to n Write(A[i]:5);có ý nghĩa ... trình tìm số - So sánh từ trái sang phải, giữ lại số phần tử lớn Quan sát chương trình, suy nghĩ trả lời giá trị lớn - Chiếu chương tình ví dụ, sách giáo khoa, trang 64 - Hỏi: Vai trò biến j...
... vào/ra • Thanh lí sách • Đền bù sách tiền + Mượn/trả sách: gồm hoạt động: • Cho mượn • Nhận trả sách • Tổ chức thông tin sách tác giả Hoạt động 3: Liệt kê đối tượng cần quản lý xây dựng Bài 3: Liệt ... lý trình quản lý -Các nhóm thảo luận Phạm Phú Hải Giáo án tin 12 Trường THPT Tây Giang sách mượn/ trả sách như:thông tin người đọc, theo tin sách -Chia đối tượng cho nhóm tìm hiểu thuộc tính đối ... đối tượng -Từng nhóm trình bày nội dung thảo luận thống thông tin chi tiết, cần thiết đối tượng -Đưa kết luận.(chiếu bảng thông tin đối tượng: người mượn, sách, tác giả ) Hoạt động 4: Hướng dẫn...
... trình,vấn đáp… 2.Phương tiện: Máy chiếu, máy tính, chiếu bảng Sách giáo khoa Tinhọc11 Vở ghi lý thuyết Tinhọc11 Các sách tham khảo có nội dung khả đồ họa Pascal (nếu có) C Tiến trình lên ... hình Kết thúc việc vẽ cách ấn phím Chương trình: uses crt,graph; var stop: boolean; function DetectInit(path:string):interger ; var drive,mode:integer; Gv: (Với yêu cầu học sinh chuẩn bị từ ... drive:=0; InitGraph(drive,mode,path); DetectInit:= GraphReSult; end; begin If DetectInit(‘C:\TP\BGI’)0 then begin Write(‘Loi hoa! Nhan phim Enter de ket thuc ’); Readln; end else begin Randomize;...
... thuyết trình ,vấn đáp, vẽ hình minh hoạ 2.Phương tiện dạy học : - Sách giáo khoa Tinhọc lớp 10 - Vở ghi lý thuyết Tinhọc 10 - Sách tham khảo (nếu có ) C Tiến trình lên lớp ,nội dung giảng : Ổn ... gắn sẵn phần mềm xử lí với loại tệp, ví dụ tệp có phàn mở rộng DOC Microsoft Word, tệp có loại tệp phần mở rộng XLS Microsoft Excel … Để xem nội dung tệp ta cần nháy đúp chuột vào biểu tượng tệp ... AccessoriesSystem Tools Nháy chuột vào mục tên chương trình bảng chọn chương trình Có số chương trình Disk Cleanup (dọn dẹp đĩa), System Restore ( khôi phục hệ thống), … cài đặt thư mục AccessoriesSystem...
... Quanli_HS /create Trong sở liệu tạo bảng Hoc_ Sinh có cấu trúc : (7’) ST Tên T Mô tả Kiểu dl trường Maso Mã học sinh Auto number Hodem Họ đệm text Ten Tên text Gtinh Giới tính text D.vien Là đoàn viên ... tổ dtblí, hoa: dtb hoá, tin: dtb tin làm sau: kích chọn C, Lưu lại bảng thoát dòng chứa trường địa Cách thêm trường : insert/ sau sd lệnh : insert/ rows Và điền thông tin rows Lưu bảng: file ... trúc sau Stt Tên trường Mo ta Kieu du liêu Maso Mã học sinh Auto number hocluc Học lực text Hkiem Hạnh kiểm text Sau thực hiện: chuyển vị trí hai trường hocluc hkiem cho ...
... tên HOC _TAP b) Tạo bảng liệu CSDL HOC _TAP với cấu trúc mô tả bảng sau, đặt khóa cho bảng, mô tả thuộc tính cho Tên bảng HOC_ SINH MON _HOC BANG_DIEM Tên trường Ma _hoc_ sinh Ho_dem Ten Ma_mon _hoc ... Ten_mon _hoc ID Ma _hoc_ sinh Ma_mon _hoc Ngay_kiem_tra Diem _so He _so Khóa Kiểu liệu Text Text Text Text Text AutoNumber Text Text Date/Time Number trường bảng: Mục đích: Bàithựchành tổng hợp Microsoft ... trường, ta chọn thứ tự theo đề là: Ho_ten, Ten_mon _hoc, Ma_mon _hoc, Diem _so Kích Next hộp thoại sau xuất hiện: Bàithựchành tổng hợp Microsoft Access 23 Giáo viên hướng dẫn: Thầy Trần Doãn Vinh Sinh...
... tệp/thư mục; Nháy chuột vào tên lần nữa; Gõ tên nhấn phím Enter nháy chuột vào biểu tượng 3 Sao chép, di chuyển, xóa tệp/ thư mục: a) Sao chép tệp/thư mục: - Chọn tệp cần chép - Chọn Edit/ ... trình Disk Cleanup (dọn dẹp đĩa), System Restore ( khôi phục hệ thống), …được cài đặt thư mục AccessoriesSystem Tools Chọn chương trình từ bảng chọn Start ...
... crt,graph; var stop: boolean; function DetectInit(path:string):interger ; var drive,mode:integer; begin drive:=0; InitGraph(drive,mode,path); DetectInit:= GraphReSult; end; begin If DetectInit(‘C:\TP\BGI’)0 ... Ellipse(100,200,0 ,36 0,50,120); Readln; CloseGraph end Bài tập nhà: Ôn lại thủ tục,câu lệnh đồ họa Pascal Ôn lại kiến thức viết chương trình Viết số chương trình đồ họa Pascal Làm tập sách tậpTinhọc11 Ôn ... uses Graph; Var gd,gm: integer; xm,ym,xmaxD4,ymaxD4: word; begin gd:=detect; Initgraph(gd,gm,’C:\TP\BGI’ ); Xm:=GetmaxX div ; ym:=GetmaxY div 2; {Ve hinh chu nhat voi net ve mau vang} SetColor(Yellow);...
... tên HOC _TAP Tạo bảng liệu CSDL HOC _TAP với cấu trúc mô tả bảng cho, đặt khóa cho bảng, mô tả thuộc tính cho trường bảng Cách giải Khởi động M.Access Cách1: Kích vào Start/Programs/Microsoft ... Thiết lập mối liên kết: Giữa bảng BANG_DIEM với bảng HOC_ SINH Giữa bảng BANG_DIEM với bảng MON _HOC Sau tạo bảng BANG_DIEM, MON _HOC, HOC_ SINH, để thiết lập mối liên kết làm sau B1:Chọn ... bảng BANG_DIEM bảng HOC_ SINH làm liệu nguồn Nháy chuyển trường Ho_dem, Ten, Diem _so (tương tự Form câu 3) để đưa vào mẫu hỏi Từ ta có bảng, thao tác trường Ho_dem, Ten, Ma _hoc_ sinh ta chọn total...
... thư viện Các thư viện thành lập nhằm mục đích giúp học sinh sinh viên giáo viên tìm kiếm thông tin phục vụ cho việc họctập Các hoạt động thư viện Đăng ký làm thẻ Bạn đọc chọn làm thẻ theo tập ... sách, cán thư viện phát sách thiếu trang, trang bạn đọc phải thực đền bù theo quy định thư viện Thanh lý sách Đối với loại sách cũ không phù hợp với kiến thức mục nát không khả sử dụng cán quản...
... giác tính chu vi, diện tích tam gicá - Cho chương trình sau: Program max; var a, b, max:integer; Begin Write(‘nhap vao hai so bat ki’); readln(a, b); If max:=a; If max
... arrint=array[1 nmax] of integer; Var n, i, j, y:integer; a:arrint; Begin clrscr; Randomize; Write(‘nhap n=’); Readln(n); For i:=1 to n a[i]:=random (30 0) – random (30 0); For i:=1 to n write(a[i]:5); ... Type myarray=array[1 nmax] ò integer; Var n, i, j:integer; a,b:arrint; Begin Randomize; Write(‘nhap n=’); Readln(n); For i:=1 to n a[i]:=random (30 0) – random (30 0); For i:=1 to n write(a[i]:5); Writeln; ... So n chương trình vào máy, thực chương trình thông báo kết - Nhập liệu theo yêu cầu giáo viên, thực chương trình thông báo kết sau thực - Hỏi: Lệnh viết vị chương trình? - Yêu cầu học sinh so n...
... length() – i +1 - So sánh tối đalength() div vị trí đối xứng xâu palidrom? - Hỏi: kí tự thứ i đối xứng với kí tự vị trí nào? - Có thể dùng For While - Thựcso n thảo chương - Hỏi: Cần phải so ssánh trình ... dung: - Nhập vào xâu, kiểm tra xem có phải Palidrom hay không? - Chương trình Var i, x:Byte; a,p:string; Begin Write(‘nhap vao mot xau’); readln(a); x:=length(a); p:= ‘’; For i:=x downto p:=p+a[i]; ... - Diễn giải: Một xâu gọi Palidrom ta đọc kí tự từ phải sang trái giống đọc từ trái sang Phải: 1 232 1 abccba phải Không phải: abcdea - Yêu cầu học sinh cho hai ví dụ xâu palidrom ví dụ palidrom...
... str79=string[79] Procedure cantdan(s1:str79; var s2:str79); Begin s2:=copy(s1,2,length(s1) – 1)+s1[1]; End; Thủ tục cangiua Proceure cangiua(var s:str79); var i, n:integer; Begin n:=length(s); n:=(80 ... giáo lệnh đưa s hình không viên nằm thủ tục Tìm hiểu chương trình câu b, sách giáo khoa, trang 1 03, 104 - Yêu cầu người sử dụng nhập xau kí tự Đưa xâu - Chiếu chương trình lên bảng hình có dạng ... chương trình quy định - Nôi dung chương trình giống chương trình câu b, sách giáo khoa, trang 1 03 c Các bước tiến hành: hướng dẫn giáo viên Tìm hiểu yêu cầu đề Hoạt động học sinh Quan sát yêu...
... giác tam giác r Procedure tinhchat(var r:tamgiac; var deu,can,vuong:boolean); nhận đầu vào biến r mô tả tam giác đầu tính chất tam giác: đều, cân vuông Procedure hienthi(var r:tamgiac); hiển thị ... daicanh(r:tamgiac; var a,b,c:real); nhận đầu vòa biến r mô tả tam giác đầu độ dài ba cạnh a, b, c Function chuvi(var r:tamgiac):real; Cho giá trị chu vi tam giác r Function dientich(var r:tamgiac):real; ... tiếp theo: Mỗi dòng ghi sốthực xA yA xB yB xC yC tọa độ tam ba đỉnh A, B, C giác ( -32 000
... văn so n thảo với lần số trang lần số HS: Thực thao tác cần thiết GV: Quan sát HS thực dẫn cho HS lúng túng Sau 90% hoàn thành yêu cầu HS sử dụng công cụ định nghĩa gõ tắt để hoàn thành nhanh ... hoàn thành yêu cầu HS sử dụng công cụ định nghĩa gõ tắt để hoàn thành nhanh đoạn văn SGK trang 1 23 HS: Thực thao tác cần thiết Củng cố dặn dò HS nhà đọc trước 19: Tạo làm việc với bảng IV Rút kinh...
... để sửa lỗi vi phạm quy ước so n thảo văn HS: Thực thao tác GV: Cho HS gõ trình bày theo mẫu SGK trang 122 HS: thực thao tác GV: Yêu cầu HS thực đánh số trang cho văn so n thảo với lần số trang ... túng Sau 90% hoàn thành yêu cầu HS sử dụng công cụ định nghĩa gõ tắt để hoàn thành nhanh đoạn văn SGK trang 1 23 HS: Thực thao tác cần thiết Củng cố dặn dò HS nhà đọc trước 19: Tạo làm việc với...
... chức năng: Microsoft Word để minh F1 (trợ giúp), F2 hoạ số thao tác bàn (ghi file)… phím ấn F2 để ghi file, - Phím điều khiển: hay phím delete… Enter, Ctrl, Alt, - Yêu cầu HS mở Microsoft Shift… ... Backspace - Phím di chuyển: Giáo án Tinhọc 10 - HS quan sát thựchành 10’ - HS làm theo yêu cầu GV 12’ - HS quan sát - HS quan sát - HS thựchành Năm học 2010-2 011 Nguyễn Thu Phương phím mũi tên, ... tác khỏi hệ thống chuột Dặn dò (1’) - Về nhà thựchành lại thao tác học hôm Giáo án Tinhọc 10 Năm học 2010-2 011 Nguyễn Thu Phương - Làm tập sách tập - Đọc trước tậpthựchành 4, trang 72 SGK IV...
... -Giờ sau thựchành tiếp Ngày…… tháng…… năm 2 011 Ký duyệt GA tuần Ngày so n : Tiết PPCT : 50 BÀITẬPVÀTHỰCHÀNH SỬ DỤNG MỘT SỐ CÔNG CỤ TRỢ GIÚP SO N THẢO (tiết 2) I MỤC TIÊU Kiến thức: Củng ... Thực phím gõ tắt để hoàn thành đoạn văn mẫu SGK - 1 23 (Có hay không sống hành tinh khác) sử dụng kiểu chữ VnMystical Củng cố Nhắc lại chức mà hệ so n thảo văn cung cấp: + Nhập lưu trữ văn + Sửa ... dạng ký hiệu dạng số thứ tự + Đánh số trang in văn + Sử dụng số công cụ trợ giúp so n thảo Word để nâng cao hiệu so n thảo văn Kỹ năng: Biết cách sử dụng chức trên: + Định dạng kiểu danh sách +...
... Trường THPT Cẩm Lý Giáo án tinhọc 12 Bài 3: a) Sắp xếp tên học sinh bảng HOC_ SINH theo thứ tự bảng chữ GV: Chọn trường cần xếp chế độ hiển thị trang ... => Nhận xét, đánh giá rút kinh nghiệm Giáo viên: Trần Văn Nghĩa Trường THPT Cẩm Lý Giáo án tinhọc 12 c) Tương tự xếp điểm Văn theo thứ tự tăng dần GV: Hướng dẫn học sinh thao tác lại HS:...