... Hội ThiTinHọc Trẻ Huyện Dĩ An 2009 Program Bai2; var x,s,tmp: real; n,i,dau: integer; begin repeat write('Nhap n > 0: '); readln(n); until (n>0); write('Nhap so thuc X: '); readln(x); s:=0; dau:=1; ... s:=s+dau*tmp; dau:=-dau; end; write('Tong S la: ',s:8:3); readln; end Bài 3: Viết chương trình a) Nhập danh sách lớp: (2 đ) Thông tinhọc sinh gồm: họ, tên Lưu vào tập tin HOSO.txt b) Đọc thông tin ... tinhọc sinh từ tập tin HOSO.txt xuất hình (2 đ) program hoso; type hs=record ho:string[30]; ten:string[10]; end; var 3/5 Hội ThiTinHọc Trẻ Huyện Dĩ An 2009 f: file of hs; a: hs; nhap:char;...
... phần tử không chia hết cho 3: Program Bai2; var z: array[1 100] of integer; n,i: integer; begin repeat write('Nhap n > 0: '); readln(n); until (n>0); writeln('Nhap gia tri cho day so nguyen:'); ... chiều ngang ấn phím dừng (nhập xuất chuỗi: đ) (chạy chữ: đ) ( ấn phím dừng: đ) Ví dụ: Ho va Ten: Tran Bang Tam Tran Bang Tam Program Bai3; uses crt; var str: string; i: integer; dung:boolean; begin ... 2/4 Hội ThiTinHọc Trẻ Huyện Dĩ An 2009 begin write('z[',i,']= '); readln(z[i]); end; writeln('Cac phan tu khong chia he cho 3'); for i:=1 to n if (z[i] mod 0) then write(z[i]:5); readln; end...
... thức kỹ đề định chuyên gia + Mạng Neural (Neural networks): nghiên cứu kỹ giải vấn đề cách trải nghiệm qua phạm vi rộng lớn vấn đề Ví dụ: CAST(Collaborative Agents for Simulating Teamwork): ... (Groupware) : Định ngh a: Groupware hệ thống cho phép thông tin việc đề định chia sẻ người làm việc cộng tác với việc giải vấn đề Groupware cung cấp ba chế: - Truyền thông giao tiếp (communication) ... thể cho đề tài v a tiếp nhận Sau xây dựng ý tưởng cho hệ thống đời Nghiên cứu tiền khả thi( Feasibility assessment) + Sau có ý tưởng cho dự án thực hiện,chúng ta cần xem xét vấn đề liên quan nhu...
... aj Mahal lăng mộ nằm Agra, Ấn Độ Hoàng đế Mughal Shah Jahan (gốc Ba Tư, lên năm 1627); tiếng Ba Tư Shah Jahan có ngh a "ch a tể giới" lệnh xây cho người vợ yêu dấu Mumtaz Mahal.Công việc xây dựng ... Cheopstại Giza Ai Cập Vười treo Babylon Đền thờ nữ thần Artemis Ephesus Tượng thần Zeus Olympia Lăng mộ vua Mausolus Halicanassus Tượng thần Colossus Rhodes Ngọn hải đăng Alexandria SC_CCA_0586_0061_200802_13.doc ... 1648 Một số tranh cãi xung quanh câu hỏi người thi t kế Taj Mahal; rõ ràng đội nhà thi t kế thợ thủ công chịu trách nhiệm thi t kế công trình Ustad Ahmad Lahauri coi kiến trúc sư Sau hoàn tất,...
... sai biến mảng : Trừ ½ số điểm Program Bai2; Uses crt; Var a , b, c, d, e : Real; Function MAX (a , b : Real) : Real; Begin If a > b then MAX := a Else MAX := b; End; Begin Clrscr; Write (‘ Nhap ... MAX := b; End; Begin Clrscr; Write (‘ Nhap vao so : ’); Readln (a, b, c, d, e); Writeln(‘ So lon nhat so la: ’,MAX(MAX(MAX(MAX (a , b), c), d), e)); Readln End 0.5 0.5 ... Program Bai1; Uses crt; Var A: Array [ 5,1 ] of Integer; i, j , tong1, tong2, spt1,spt2 : Integer; Begin Clrscr; For i:= to For j := to Begin Write (‘ Nhap phan tu dong ‘,i,’ cot ‘,j,’ : ‘); Readln (A[ i,j]);...
... lời: Program baitap; Var A: array[1 10] of integer; i, max, csmax, sc, t: integer; Begin Write(‘ nhap cac phan tu cua day :’); For i:=1 to 10 Begin Khai báo Nhập mảng Câu a (Max) Câu b (sc, sl) ... Write(‘nhap pt thu ’,i,’=’); Readln (A[ i]); End; max: =A[ 1]; csmax:=1; For i:=2 to 10 If A[ i] > max then Begin max: =A[ i]; csmax:=i; end; writeln(‘gtri ptu max=’,max); writeln(‘chi so ptu max =’, csmax); ... dãy A gồm 10 số nguyên A1 , A2 , …, A1 0 (4 điểm) a Tìm đ a hình phần tử lớn dãy số nguyên b Tính đ a hình số lượng số chẳn số lẻ c Tính hiển thị giá trị trung bình phần tử mảng Trả lời: Program baitap;...
... Circle (a, b,r); Delay(100); Setcolor(black); {Thiet lap ve hinh tron rong voi mau vien mau den cung voi mau nen cua man hinh} Circle (a, b,r); a: =a+ dx; b:=b+dy;{Thiet lap cho hinh tron chuyen dong dap ... Tim_thay:=false; While (dau k then Cuoi:=Giua -1 else Dau:=Giua +1; end; if Tim_thay then ... (Binary Search)? Program cau6; {uses crt;} var A: array[1 20] of integer; i,j,n,k,Dau,cuoi,giua,tg: integer; Tim_thay:boolean; begin {Phan 1: Nhập giá trị phần tử dãy số} write('nhap so phan tu...
... HỆ CƠ SỐ A LÝ THUYẾT: - Trong hệ số 10: Số A = an… .a2 a 1a0 = a0 + 1 0a1 + … +10nan nên: Để lấy số a0 = A mod 10; Để x a chữ số a0 ta dùng A: =A div 10 (Tương tự: Để lấy hai số tận a1 a0 = A mod 100; ... DT_BAC(Var A: KM;Bac:byte;gt:real); Var i:byte; Begin For i:=1 to n A[ i]:=0; A[ Bac]:=gt; End; 24 Begin clrscr; Write('Nhap bac cua da thuc bi chia: ');Readln(n); Writeln('Nhap da thuc A: '); NhapDT (A, n); ... swap(var x,y:real); var tam:real; begin tam:=x; x:=y; 12 y:=tam; end; Begin Write('Nhap n: ');Readln(n); Write('nhap so:');Readln(max); Write('nhap so: ');Readln(nhi); if nhi > Max then swap(Max,nhi)...
... hai nghim x = 0, x = Tớnh th tớch ca chúp A. BCNM (1,00 im) 0,50 S N H M C A K B Gi K l trung im ca BC, H l hỡnh chiu vuụng gúc ca A trờn SK Do BC AK, BC SA nờn BC AH Do AH SK, AH BC nờn AH ... ( SBC ) Xột tam giỏc vuụng SAK: 1 3a = + AH = 2 AH SA AK 19 0,25 0,25 SM SA = = SB SB2 SN SA Xột tam giỏc vuụng SAC: SA = SN.SC = = SC SC2 S 16 9 1 9a SBCNM = SSBC = Suy ra: SMN = SSBC ... 0,50 0,25 2,00 0,50 Ta giao im H ca d1 v ( ) l nghim ca h: x = x y + z = = 1 y = H ( 0; 1; ) 2x y + z = z = Vỡ A ' i xng vi A qua d1 nờn H l trung im ca AA ' A ' ( 1; 4;1) Vit phng...
... R= = BC + BD D 2 Q a 0,25đ = AB + AC + BD = 2 Gọi H trung điểm BC AH BC Do BD (P) nên BD AH AH (BCD) a 0,5đ Vậy AH khoảng cách từ A đến mặt phẳng (BCD) AH = BC = 2 B A Câu 2điểm 1) Tìm ... điểm C P Ta có (P) (Q) = (P) (Q), mà AC AC (Q) AC AD, hay 0,5đ 0,5 đ CAD = 900 Tơng tự, ta có BD nên H BD (P), CBD = 900 Vậy A B 0,25đ A, B nằm mặt cầu đờng kính CD Và bán kính mặt ... Trong khai triển trên, luỹ th a x 3n 2i k = , hay 2i + k = Ta có hai trờng hợp th a điều kiện i = 0, k = i = 1, k = Nên hệ số x3n a3 n = Cn Cn 23 + C1 C1 n n n=5 2n(2n2 3n + 4) = 26n Do a3 n...
... 1; b), AB1 = ( 2a; 0; b) 0,25 B1C, AC1 AB1 ab d ( B1C, AC1 ) = = B1C, AC1 a + b2 b) áp dụng bất đẳng thức Côsi, ta có: ab ab 1 a+ b d(B1C; AC1 ) = ab = = 2ab 2 a + b2 Dấu "=" xảy a = b ... trọng tâm G tam giác ABC tìm m (1,0 điểm) Trọng tâm G tam giác ABC có t a độ: x + xB + xC y + y B + yC m m xG = A = 1; yG = A = Vậy G(1; ) 3 3 Tam giác ABC vuông góc G GA.GB = m m GA(2; ... 3 m GA.GB = + = m = Tính khoảng cách B1C AC1, (1,0 điểm) a) Từ giả thi t suy ra: C1 (0; 1; b), B1C = (a; 1; b) 0,25 0,25 0,25 0,25 0,25 0,25 0,25 0,25 3,0 0,25 0,25 0,25 0,25 AC1 = (a; 1;...