Bài soạn Tin hoc 11: Mang 1 chieu
... b. In mảng một chiều Writeln( Mang vua nhap : ); For i: =1 to n do Write(A[i]:5); Mang vua nhap: - Thông báo - In giá trị của các phần tử 17 20 18 21 19 17 19 Kết quả in ra màn hình: Ví ... phần tử] Nhiều thao tác xử lí mảng dùng cấu trúc lặp FOR TO DO. 15 20 19 25 18 12 16 Var A:ARRAY [1 100] OF integer; A[5] = 18 Nhập vào nhiệt độ (trung bình) của mỗi ngày tron...
Ngày tải lên: 28/11/2013, 09:11
... chỉnh cho bài toán ví dụ nhé ? 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 ... In mảng hai chiều Writeln( Mang vua nhap : ); For i: =1 to n do Begin For j: =1 to m do Write(A[i,j], ); Writeln; end; Mang vua nhap: 1 4 7 6 9 2 8 3 5 3 9 7 1...
Ngày tải lên: 28/11/2013, 09:11
... chỉnh cho bài toán ví dụ nhé ? 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 ... In mảng hai chiều Writeln( Mang vua nhap : ); For i: =1 to n do Begin For j: =1 to m do Write(A[i,j], ); Writeln; end; Mang vua nhap: 1 4 7 6 9 2 8 3 5 3 9 7 1...
Ngày tải lên: 28/11/2013, 09:11
Gián án Tin hoc 11: Mang 2 chieu
... chỉnh cho bài toán ví dụ nhé ? 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 ... In mảng hai chiều Writeln( Mang vua nhap : ); For i: =1 to n do Begin For j: =1 to m do Write(A[i,j], ); Writeln; end; Mang vua nhap: 1 4 7 6 9 2 8 3 5 3 9 7 1...
Ngày tải lên: 28/11/2013, 09:11
bài soạn tin học lớp 8 tiết 1 đến 20
... chạy chơng trình Ngày soạn: 19 /10 /2008 Giáo án Tin Học 8 Gi áo viên: Lê Thị Tuyết Ban hay nhap so HS Dien tich hinh tron la 49.35 Trêng PTDT Néi Tró _THCS Ngäc LÆc Tiết 11 Bài thùc hành 2: ViÕt ... làm bài tập 1a trong sách giáo khoa trang 22 vào vở bài tập của mình. - Giáo viên hướng dẫn thêm cho hs hiểu yêu cầu của bài 1a. - Giáo viên yêu cầu 4 hs lên bảng làm từng câu tro...
Ngày tải lên: 27/09/2013, 21:10
Bài soạn tin học 6, bài 11
... Rules! Bài 11 . TỔ CHỨC THÔNG TIN TRONG MÁY TÍNH 3. Đường dẫn: Đường dẫn đến tệp Tin hoc 6.doc” là: C:\Hoctap\Mon Tin\ Tin hoc 6.doc Code Rules! Bài 11 . TỔ CHỨC THÔNG TIN TRONG MÁY TÍNH Bài tập: 1. ... Rules! Bài 11 . TỔ CHỨC THÔNG TIN TRONG MÁY TÍNH Sắp xếp lại: Code Rules! Bài 11 . TỔ CHỨC THÔNG TIN TRONG MÁY TÍNH Sách được sắp xếp theo khối lớp dễ dàng tìm k...
Ngày tải lên: 27/11/2013, 17:11
bai 14 tin hoc 11
... dữ liệu từ tệp DuLieu1.DAT, ta có thể mở tệp bằng các thủ tục sau: assign(tep1, ‘DuLieu1.DAT’); reset(tep1); hoặc tentep := ‘DuLieu1.DAT’; assign(tep1, tentep); reset(tep1); 2. THAO TÁC VỚI ... báo biến tệp Mở tệp Đọc/ghi dữ liệu Đóng tệp BÀI 15 THAO TÁC VỚI TỆP 1. KHAI BÁO var <tên biến tệp> : text Ví dụ: var tep1, tep2 : text 2. THAO TÁC VỚI TỆP a. Gắn tên tệp: ......
Ngày tải lên: 09/06/2013, 01:27
bai 19 tin hoc 11
... các cạnh song song với các trục toạ độ, (x1, y1) là toạ độ của đỉnh trái trên còn (x2, y2) là toạ độ của đỉnh phải dưới Procedure Rectangle(x1, y1, x2, y2 : integer); 3. Một số thư viện ... các điểm - color là màu của điểm c3. Thủ tục vẽ đoạn thẳng Procedure Line(x1, y1, x2, y2 : integer); Trong đó: (x1, y1) và (x2, y2) là toạ độ của hai điểm đầu, cuối của đoạn thẳng. c4. Thủ tục ......
Ngày tải lên: 09/06/2013, 01:27
Thiết kế bài giảng Tin học 11
... Pascal. 2. Kĩ năng 13 1. Xác định bài toán. - Chiếu nội dung đề bài lên bảng. - Xác định dữ liệu vào, dữ liệu ra. - Hỏi: Các nhiệm vụ chính khi giải quyết bài toán này? - Hỏi: Trong bài này, ta cần ... Tổng bộ nhớ cần cấp phát x (2 byte); y (2 byte); z (4 byte); h(2 byte); i (1 byte); Tổng 11 byte IV. ĐÁNH GIÁ CUỐI BÀI 1. Những nội dung đã học - Một chương trình gồm có hai phần...
Ngày tải lên: 24/06/2013, 01:26
GA Bài 12 Tin học 11
... VD4; Uses Crt; Var S1, S2: String; i, k: Byte; Begin clrscr; Write(Nhap xau s1:); Readln(S1); k:=length(S1); b:= ; For i:= 1 to k do If S1[i] <> then S2: = S2 + S1[i]; ... trong xâu. Program VD3; Uses Crt; Var S1:String; i,k:Byte; Begin clrscr; Write(Nhap xau s1:); Readln(S1); k:=length(S1); For i:=k downto 1 do Writeln(S1); Readln; End. - GV: Lấy một số ví dụ ... Tuần : Tiết : 2...
Ngày tải lên: 30/06/2013, 01:26