chuyên đề tin học chương 2 KIẾN THỨC CHUNG VỀ TIN HỌC VÀ MÁY TÍNH ĐIỆN TỬ

Chuyên Tin 10 BÀI KIẾN THỨC CHUNG VỀ TIN HỌC VÀ MÁY TÍNH ĐIỆN TỬ ( TIẾT ) I / KHÁI NIỆM VỀ THÔNG TIN : (INFORMATION ) + Mỗi đối tượng vấn đề nghiên cứu , có tập đặc trưng Đối tượng học sinh toán quản lý điểm gồm đặc trưng: số báo danh, họ tên, ngày sinh, điểm môn Tập giá trị đặc trưng gọi tập liệu mô tả đối tượng + Thông tin đối tượng : điều giúp nhận biết hiểu rõ đối tượng nghĩa làm rõ đặc trưng đối tượng + Độ bất định đối tượng : Giả sử đối tượng có n trạng thái , khả xuất trạng thái i ( 1 B: ↵ Tên ổ đĩa chuyển đổi từ ổ đĩa A sang ổ đĩa C chuyển đổi từ ổ đĩa C sang ổ đĩa B ) Lệnh xem tên thư mục file thư mục cần xem : DIR [đường dẫn tên thư mục cần xem][/W][/P][/A][/S] Thí dụ : A\>DIR /P Xem tên File thư mục thư mục gốc , trang A\> DIR C:\TP\SOAN ↵ xem tên file thư mục thư mục SOAN thư mục TP nằm ổ đĩa C A\> DIR ↵ xem tên file thư mục đĩa A Chú ý + DIR/P ↵ Xem trang hình + DIR/W ↵ Xem tên file, tên thư mục theo hàng ngang + DIR/W/P ↵ Xem tên file, tên thư mục theo hàng ngang,từng trang + DIR/S [thư mục xem]↵ Hiện thơng tin file ,thư mục có thư mục xem + DIR/S /B [thư mục] ↵ Hiện tên đường dẫn file thư mục có thư mục + DIR/S /B [thư mục] > ↵ Chép tên đường dẫn file,thư mục có thư mục cần xem vào File + DIR/A:[Thctính] Xem tên file có thuộc tính H,S,R(ẩn,system,chỉ đọc) + DIR/O:[kiểu xếp] Xem tên file có xếp theo kiểu xếp N,E,D ) Lệnh tạo thư mục : MD [đường dẫn tên thư mục mới] ) Lệnh chuyển đổi thư mục : CD [đường dẫn tên thư mục ] Thí dụ : A\TP>CD C:\TP\SOAN ↵ chuyển từ A\TP sang C:\TP\SOAN C:\TP\SOAN>CD C:\BKED ↵ chuyển từ C:\TP\SOAN sang C:\BKED C:\BKED>CD CONGVAN ↵ chuyển từ C:\BKED>CD sang C:\BKED\CONGVAN Chú ý : Lệnh CD\ CD Chuyên Tin 10 64 Else Cungmau := False; End; Function Hau : Boolean; Begin If (k=m) or (l=n) or (abs(m-k)=abs(n-l)) then hau := True Else hau := False; End; Function Ma : Boolean; Begin If Abs((k-m)*(l-n))=2 then Ma := True Else Ma := False; End; Procedure Ketluan; Begin If cungmau then Writeln('Cung mau ') Else writeln('Khac mau '); If hau then Writeln('2 Hau khong che ') Else writeln('2 Hau khong khong che nhau'); If Ma then Writeln('2 Ma khong che ') Else writeln('2 Ma khong khong che '); End; BEGIN Ve; Nhap; Ketluan; Readln END Bài 12 Uses Crt; Label Continue,continue1; Var x,y,Color : Byte; BEGIN color:=1; Textbackground(0); Clrscr; Textcolor(10); Gotoxy(28,18); Write('An phim bat ky de thoat '); Continue: If (color=15) then color:=1 Else Inc(color); Textcolor(color); x:=1; y:=1; Continue1: Gotoxy(2*x,y); Write('TIN HOC '); Gotoxy(72-2*x,y); Write('TUOI TRE '); Gotoxy(39,y); Write('va'); DELAY(200); Gotoxy(2*x,y); Write(' '); Gotoxy(72-2*x,y); Write(' '); Gotoxy(39,y); Write(' '); Chuyên Tin 10 65 Inc(x); Inc(y); If (y2); N := sd+1; For i:=1 to N Nhap1(i,x[i],y[i]); End; Procedure Hien; Chuyên Tin 10 67 Var i : Integer; Begin For i:=1 to N Writeln('Diem ',Char(i+64),'(',x[i]:3,',',y[i]:3,')'); End; Function Dactrung(i,j,k : Byte) : ShortInt; Var F : Real; Begin {Lap phuong trinh duong thang qua (x[i],y[i]) va (x[j],y[j]) } F := (y[k]-y[i])*(x[j]-x[i])-(y[j]-y[i])*(x[k]-x[i]); If F > then dactrung := Else dactrung := -1; End; Function Dagiacloi(sd1 : Byte) : Boolean; Var i,j,k,h : Byte; t : ShortInt; Begin For i:=1 to sd1 Begin j := i+1; If j=N then j:= 1; k := j+1; If k=N then k:= 1; T := dactrung(i,j,k); For h := to sd1 If (hi) and (hj) and( hk) then If T*dactrung(i,j,h) < then Begin DagiacLoi := False; Exit; End; End; DagiacLoi := True; End; Function Trong : Boolean; Var i,j,k : Byte; T : ShortInt; Begin For i:=1 to sd Begin j:=i+1; If j=N then j:=1; k :=j+1; If k=N then k:=1; t := dactrung(i,j,N); If t*dactrung(i,j,k) < then Begin Trong := False; Exit; End; End; Chuyên Tin 10 68 Trong := True; End; Procedure Thuchien; Begin If Not Dagiacloi(sd) then Begin Writeln(' Theo thứ tự liên tiếp đỉnh Khong phai da giac loi '); Readln; Halt; End Else Begin Writeln('Dung la da giac loi '); If not Trong then Begin Write('Diem ',Char(N+64),'(',x[N]:3,',',y[N]:3,')'); Writeln(' o ngoai da giac loi da cho '); End Else Begin Write('Diem ',Char(N+64),'(',x[N]:3,',',y[N]:3,')'); Writeln(' o da giac loi da cho '); End; End End; BEGIN Clrscr; Nhap; Hien; Thuchien; Readln END Tương tự Bài 14 +15+ 16 { Kiểm tra đa giác lồi tính diện tích đa giác lồi } Uses Crt; Const Max = 20; Type Toado = Array[1 Max] of Real; Var X,Y : Toado; B : Array[1 1000] of Boolean; ds : Array[1 1000] of Word; n,top : Word; Procedure Input; Var i : Word; Begin { Nhập giá trị đỉnh đa giác vào mảng X Y } End; Function CungFia(X1,X2,X3,X4,Y1,Y2,Y3,Y4 : Real) : Boolean; Var d1,d2 : Real; Begin d1 := (Y3-Y1)*(X2-X1)-(X3-X1)*(Y2-Y1); Chuyên Tin 10 69 d2 := (Y4-Y1)*(X2-X1)-(X4-X1)*(Y2-Y1); cungFia:=d1*d2>=0; End; Function DG_Loi(X,Y : Toado): Boolean; { Kiem tra tinh Loi cua da giac } Var i,j,k,L : Word; s : Real; Begin For i:=1 to n Begin k := i+2; L := i+1; If k=n+1 then k := 1; If L=n+1 then L := 1; For j:=1 to n If (ji) and ( Not CungFia(x[i],x[L],x[j],x[k],y[i],y[L],y[j],y[k])) then Begin Write('Da Giac Khong Loi');{Theo thứ tự liên tiếp đỉnh nhập} DG_Loi := False; Halt; End; End; Writeln('Da Giac Loi'); DG_Loi := True; End; Procedure Dientich(X,Y : Toado); Var s,Min : Real; i,j : Byte; Begin Min := 100000; { Tịnh tiến đa giác dọc trục tung , để đa giác nằm hồn tồn phía ox} For i:=1 to n If Y[i]b then Trao(a,b); Writeln; For i:=1 to sa Begin Write('Nhap kich thuoc c,d cua buu anh ',i,' : '); Repeat {$I-} Readln(c[i],d[i]); {$I+} Until ( Ioresult = ) and ( c[i]>0 ) and (d[i]>0); If c[i]>d[i] then trao(c[i],d[i]); End; End; Procedure Hien; Var i : Byte; Begin Writeln('Phong bi (',a:5:2,b:5:2,')'); For i:=1 to sa Writeln('Buu anh ',i:2,'(',c[i]:5:2,d[i]:5:2,')'); End; Procedure Khoitri; Begin FillChar(Kq,Sizeof(Kq),False); End; Function Kt1(x,y : Real) : Boolean; Begin If (x