ví dụ 1 bài 16 tin học 11
GA Bài 16 Tin học 11
... a:Array [1 5] of real; R1,R2,R3:Real; i:Integer; F1,f2:text; Begin Assign(f1, ‘resist.dat’); Reset(f1); Assign(f2, ‘resist.equ’); Rewrite(f2); While not eof(f1) Begin Readln(f1,R1,R2,R3); A [1] :=R1*R2*R3/ ... A [1] :=R1*R2*R3/ (R1*R2+R1*R3+R2*R3); A[2]:=R1*R2/(R1+R2)+R3; A[3]:=R1*R3/(R1+R3)+R2; A[4]:=R3*R2/(R3*R2)+R1; ngôn ngữ Pascal A[5]:=R1+R2+R3; Hoạt động 2.2: Xây dựng For i: =1 to write(f2,a[i]:9:3),’ ... write(f2,a[i]:9:3),’ ‘); chương trình: Writeln(f2); - GV : Gọi học sinh xây dựng chương trình theo End; bước (có gợi ý học sinh Close(f2); close(f1); End vướng mắc) + Khai báo + Gán tên tệp cho biến...
- 3
- 1,459
- 1
Bài soạn Tin hoc 11: Mang 1 chieu
... For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1 +1 +1 +1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảng chiều A: Array [1 366] of integer; i,n,dem: integer; S,TB ... cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảng chiều dùng câu lệnh FOR DO Ghi nhớ! 15 20 19 25 18 12 16 Mảng chiều dãy ... Var nhietdo : array [1 365] of integer; Var A,B : array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập...
- 13
- 613
- 7
bai 14 tin hoc 11
... reset(); Ví dụ 2: Để đọc liệu từ tệp DuLieu1.DAT, ta mở tệp thủ tục sau: assign(tep1, ‘DuLieu1.DAT’); reset(tep1); tentep := ‘DuLieu1.DAT’; assign(tep1, tentep); reset(tep1); THAO TÁC VỚI ... tệp BÀI 15 THAO TÁC VỚI TỆP KHAI BÁO var : text Ví dụ: var tep1, tep2 : text THAO TÁC VỚI TỆP a Gắn tên tệp: - Mỗi tệp liệu có tên để tham chiếu - Tên tệp biến xâu xâu Ví dụ: ‘DuLieu1.DAT’ ... tệp>); Ví d 1 : Giả sử có biến tệp tên file1 cần gắn với tệp có tên Luu.DAT, ta thực sau: assign(file1, ‘Luu.DAT’); Ví d 1 : Để đọc liệu từ tệp DuLieu1.DAT thư mục gốc đĩa D, ta cần gắn tệp với...
- 16
- 2,091
- 11
bai 19 tin hoc 11
... làm việc với máy in Sử dụng thư viện Muốn sử dụng thủ tục hàm chuẩn (một số) thư viện (trừ thư viện System) phải dùng lệnh khai báo: uses unit1, unit2, …, unitN Ví dụ: Để sử dụng hàm thủ tục chuẩn ... word); e3 Vẽ hình chữ nhật có cạnh song song với trục toạ độ, (x1, y1) toạ độ đỉnh trái (x2, y2) toạ độ đỉnh phải Procedure Rectangle(x1, y1, x2, y2 : integer); Một số thư viện khác System: Trong thư ... x, y toạ độ điểm - color màu điểm c3 Thủ tục vẽ đoạn thẳng Procedure Line(x1, y1, x2, y2 : integer); Trong đó: (x1, y1) (x2, y2) toạ độ hai điểm đầu, cuối đoạn thẳng c4 Thủ tục vẽ đoạn thẳng nối...
- 12
- 775
- 1
Thiết kế bài giảng Tin học 11
... cầu học sinh tìm thêm số ví dụ tương tự Chú ý theo dõi dẫn dắt ví dụ giáo viên để suy nghĩ tìm ví dụ tương tự - Yêu cầu học sinh đưa cấu trúc chung cách diễn đạt - Yêu cầu học sinh lấy ví dụ có ... ten_chuong_trinh; - Ví dụ: Program tinh_tong; - Cấu trúc: Uses tên_thư_viện; - Ví dụ: Uses crt ; - Cấu trúc: Const tên_hằng = giá_trị; - Ví dụ: Const maxn =10 0; - Cấu trúc: Var tên_biến=Kiểu_dữ_liệu; - Ví dụ: ... Hãy cho số ví dụ biểu thức logic Chú ý theo dõi dẫn dắt giáo viên suy nghĩ để trả lời - Trong toán học ta có biểu thức 5B) or ((X +1)
- 96
- 1,401
- 9
GA Bài 12 Tin học 11
... hàm GV lấy xử lí xâu) ví dụ cụ thể Tiết 30 * Hoạt động 4: Lấy số ví dụ cụ thể sử dụng hàm thủ tục xử lí xâu Hoạt động GV HS Nội dung - GV: Lấy số ví dụ đê HS hiểu rõ cách sử dụng hàn xâu - HS: Chú ... Program VD4; Uses Crt; Var S1, S2: String; i : Byte; Begin clrscr; Write(Nhap xau s1:); Readln(S1); S2:= ; For i: =1 to length(S1) if (S1[i] >=0 and S1[i]
- 5
- 1,310
- 8
GA Bài 13 tin học 11
... thi: - GV: Lấy ví dụ quản lí học sinh (Dùng Program vd1; Uses crt; bảng phụ để trình bày) { Khai bao} - GV: Phân tích chơng trình để HS hiểu rõ Type Hocsinh = record u điểm sử dụng ghi quản lí ... Writeln( Bang ket qua kiem tra ); For i: =1 to n Writeln(Lop[i] sbd:5, Lop[i] Hoten:30, Lop[i].toan:5 :1, Lop[i].Van:5 :1, Lop[i].tong:8 :1, Lop[i].Ketqua :15 ); Readln; END V củng cố dặn dò - Nhắc ... :);readln(Lop[i].Van); end; { tinh tong cho tung ban ghi } For i: =1 to n Lop[i].Tong:= Lop[i].Toan+ Lop[i].Van; { dien ket qua cho tung ban ghi } For i: =1 to n if Lop[i].Tong> =10 then Lop[i].Ketqua:=Dat...
- 4
- 1,074
- 2
GA bài 9 tin hoc 11
... xét ghi bảng: - GV: Lấy hai ví dụ: Rẽ nhánh + VD1: Nếu Châu không học bị điểm Ta nói cách diễn đạt nh thuộc dạng thiếu: Nếu + VD2: Nếu Châu không học bị điểm kém, học có điểm cao Ta nói cách ... else begin x1 := (-b - sqrt (D)) / (2*a) ; x2 := -b/a - x1 ; writeln ('x1 = ', x1:8:3, 'x2 = ',x2:8:3); end ; * Hoạt động 4: Lấy số ví dụ để làm sáng tỏ câu lệnh rẽ nhánh câu lệnh ghép Hoạt động ... Output bài, xác định kiểu liệu a,b,c,d - Thảo luận theo nhóm (4 hs /1 nhóm- bàn liền nhau) để viết toán ngôn ngữ lập trình Pascal - Các nhóm khác nhận xét, bổ xung trả lời Một số Ví dụ * VD1: Tìm...
- 4
- 927
- 2
GA bai 10 tin hoc 11
... tng bc mt S1:= 0; S1:=S1 +1/ a; S1:=S1 +1/ (a +1) ; S1:=S1 +1/ (a+N); Sau ú gi hc sinh nhn xột v cỏch gii bi toỏn ny - HS: Nu gii theo cỏch ny thỡ ta phi vit 10 0 ln cõu lnh nu nh N =10 0, Nờu N >10 0 thỡ s ... toỏn 1: Tớnh v a kt qu mn hỡnh tng: S1 = 1 1 + + + + a a +1 a + a + 10 0 Bi toỏn 2: Tớnh v a kt qu mn hỡnh tng: S2 = cho n 1 1 + + + + a a +1 a + a+N < 0,00 01 a+N Cỏch gii: - B1: Khi to S: =1/ a; ... toán Tong_1a Clrscr; GV: Ví dụ cài đặt thuật toán Tong_1a Write(Nhap gia tri a vao: ); HS: Nghe giảng, ghi Readln(a); S: =1/ a; For N: =1 to 10 0 HS: Nghiên cứu ví dụ S:=S +1/ (a+N); GV: Hãy so sánh...
- 8
- 1,108
- 1
Bài 16 - tin học 10
... Bài 16 Định dạng văn Định dạng trình bày phần văn theo thuộc tính văn nhằm mục đích cho văn rõ ràng đẹp, nhấn mạnh phần quan trọng, giúp người đọc nắm bắt dễ nội dung chủ yếu văn 1 Định ... Lựa chọn văn Cách 1: Sử dụng lệnh Format Font Hộp thoại Font Cỡ chữ Chọn phông chữ Màu chữ Thiết lập chế độ ngầm định Kiểu chữ Gạch chân Cửa sổ hiển thị kết chọn Cách 2: Sử dụng nút lệnh công ... Lựa chọn văn Cách 1: Sử dụng lệnh Format Paragraph Hộp thoại Paragraph Căn lề Vị trí lề trái Định dạng dòng Vị trí lề phải Khoảng cách đoạn văn Khoảng cách dòng Cách 2: Sử dụng nút lệnh công...
- 16
- 853
- 3
Tiết 16 - Tin học 11
... GIẠO ẠN TIN HC 11 Bi 2: Dỉûa vo Vê dủ - trang 46 - SGK täøng S= 1 + + + 2*i täøng dỉìng ai =1/ (2*i) < 0.0 01 Bi 3: Bi - trang 51 - SGK G + chọ = 36 2*g + 4*chọ = 10 0 TỈÅÍNG FOR dog: =1 TO 24 DO ... 10 0*a +10 *b+c (10 0*a +10 *b+c) MOD = v a + b + c =20 Bi 5: Bi säú - trang 51 SGK Hỉåïng dáùn: B1: Nháûp CHA,CON B2: Nam:=0; B3: Trong CHA < 2*CON làûp lải: a Cha := cha +1; b Con:= +1; c: Nam:= Nam +1 B4 In ... = 10 0) THEN Begin writeln('So ga:', cock); writeln('So cho:', dog); End; END; Bi 4: Tçm säú cọ chỉỵ säú m chia cho dỉ v täøng cạc chỉỵ säú = 20 Hỉåïng dáùn: Gi säú âọ l = abc 10 0*a +10 *b+c (10 0*a +10 *b+c)...
- 2
- 443
- 0
Bài tập tin học 11 chương 5 và 6
... to 10 Begin Write('Nhap so ',i,' : '); readln(a[i]); End; assign(f1,'c:\data1.txt'); rewrite(f1); for i: =1 to 10 write(f1,a[i]:4); close(f1); 1b: Program Doctep1; Var f1:text; a: array [1 10] ... So_n(a1,d,n); Tong(a1,d,n); Readln; END Bài 9a: Viết thủ tục giải phương trình bậc ax+b=0 Bài 10 a : Viết thủ tục giải phương trình bậc ax2+bx+c=0 Bài 11 a: Viết thủ tục luythua để tính an , áp dụng: ... tam:=a1; for i: =1 to n -1 tam:=tam + d; Writeln('Gia tri cua so thu ',n,' la: ',tam) End; Procedure Tong(a1,d, n: integer); var tam1, tam2, i: integer; Begin tam1:= a1; tam2:= a1; for i: =1 to n-1...
- 4
- 10,402
- 105
bai 3 tin hoc 11
... Data Khai báo hằng: Thường sử dụng cho giá trị xuất nhiều lần chương trình Ví dụ: Turbo Pascal CONST Max =10 0; Pi=3 .14 16; C/C++ const int Max =10 0; const float Pi=3 .14 16; Lop= A ; Dieukien=True; ... chương trình>; Trong đó: tên chương trình tên người lập trình đặt theo quy định tên Ví dụ 1: Program Giai_PTB2; Ví dụ 2: Program Baitoan; Gv Dinh Nguyen Thanh Tu Suu tam va gioi thieu voi CENTEA ... ngữ lập trình cung cấp số chương trình thông dụng lập sẵn Thư viện ngôn dụng lập Muốn sửngữ chương trình cần khai báo thư viện chứa trình nhỉ? Ví dụ: Pascal CRT; C/C++ Khai báo USES #include...
- 9
- 802
- 0
Giải bài tập Tin học 11
... i: =1 to n A[i]:=random(300)-random(300); for i: =1 to n write(A[i]:5); writeln; dem: =1; for j:=n downto jfor i: =1 to j -1 if A[i]>A[i +1] then begin t:=a[i]; a[i]:=a[i +1] ; A[i +1] :=t; dem:=dem +1; ... n:=length(S); dem:=0; for i: =1 to n if (s[i]>='0') and (s[i]
- 29
- 14,887
- 156
Bài giảng Tin Học 11: Đề thi - Đáp án HK1 2010-2011
... NINH TRƯỜNG THPT TIÊN YÊN ĐỀ KIỂM TRA HỌC KÌ I N¨m häc 2 010 – 2 011 Môn: Tin - Khối 11 Thời gian: 45 phút (Không kể thời gian giao đề) Họ tên: Lớp: 11 SBD: Điểm: ( Phần dọc phách) II ... 2 010 – 2 011 Môn: Tin - Khối 11 Sè ph¸ch: Thời gian: 45 phút (Không kể thời gian giao đề) Họ tên: Lớp: 11 SBD: Điểm: ( Phần dọc phách) Mã đề Sè ph¸ch: I TRẮC NGHIỆM: (7 điểm) Câu 1: Xét ... begin s1:=s1 +1; s2:=s2+i; end; writeln(s1,’ ‘, s2); end Kết chương trình là: A) 15 B) 16 C) 15 D) 16 Câu 6: Xét chương trình sau: Var i, dem: integer; Begin i:=5; dem:=0; while i < > begin i:=i -1; ...
- 4
- 682
- 1
Tài liệu Giải Bài Tập Tin Học 11
- 16
- 23,124
- 315
Tìm thêm: xác định các mục tiêu của chương trình khảo sát các chuẩn giảng dạy tiếng nhật từ góc độ lí thuyết và thực tiễn khảo sát chương trình đào tạo của các đơn vị đào tạo tại nhật bản khảo sát chương trình đào tạo gắn với các giáo trình cụ thể xác định thời lượng học về mặt lí thuyết và thực tế điều tra với đối tượng sinh viên học tiếng nhật không chuyên ngữ1 khảo sát các chương trình đào tạo theo những bộ giáo trình tiêu biểu nội dung cụ thể cho từng kĩ năng ở từng cấp độ xác định mức độ đáp ứng về văn hoá và chuyên môn trong ct mở máy động cơ lồng sóc mở máy động cơ rôto dây quấn các đặc tính của động cơ điện không đồng bộ đặc tuyến hiệu suất h fi p2 đặc tuyến mômen quay m fi p2 đặc tuyến tốc độ rôto n fi p2 đặc tuyến dòng điện stato i1 fi p2 động cơ điện không đồng bộ một pha thông tin liên lạc và các dịch vụ chỉ tiêu chất lượng theo chất lượng phẩm chất sản phẩm khô từ gạo của bộ y tế năm 2008 chỉ tiêu chất lượng 9 tr 25