... định nghĩa sẵn Pascal, người ta định nghĩa lại muốn TrongPascaltacó tên chuẩn sau đây: Boolean, Char, Integer, Word, Byte, Real, Text False, True, MaxInt Abs, Arctan, Chr, Cos, Sin, Eof, Eoln ... (String), ghi (Record), tập hợp (Set), tập tin (File) - Kiểu điểm (pointer): Trong chương này, xét kiểu liệu đơn gi n Kiểu số nguyên (Integer type) a Kiểu số nguyên thuộc Z chứa Turbo Pascal Được ... SIN(x) COS (x) ARCTAN (x) LN (x) EXP (x) TRUNC (x) ROUND (x) Ý NGHĨA |x| : lấy gi trị tuyệt đối số x x2 : lấy bình phương trị số x : lấy bậc trị số x sin (x) : lấy sin x cos (x) : lấy cos x arctang...
... a,b,c:Rea; {Khai báo biến} Delta := b*b – 4*a*c; (* Tính delta để gi i phương trình bậc *) BÀI TẬP THỰC HÀNH Khởi động Turbo Pascal Nhập vào đoạn chương trình sau: Uses Crt; Begin Writeln(‘***********************************************************’); ... trí trỏ Các thành phần ngônngữPascal 6.1 Từ khóa Từ khoá từ mà Pascal dành riêng để phục vụ cho mục đích (Chẳng hạn như: BEGIN, END, IF, WHILE, ) Chú ý: Với Turbo Pascal 7.0 trở lên, từ khoá chương ... BAI1.PAS Thoát khỏi Pascal Khởi động lại Turbo Pascal Mở file BAI1.PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa 11 Thoát khỏi Pascal 12 Viết...
... a,b,c:Rea; {Khai báo biến} Delta := b*b – 4*a*c; (* Tính delta để gi i phương trình bậc *) BÀI TẬP THỰC HÀNH Khởi động Turbo Pascal Nhập vào đoạn chương trình sau: Uses Crt; Begin Writeln(‘***********************************************************’); ... trí trỏ Các thành phần ngônngữPascal 6.1 Từ khóa Từ khoá từ mà Pascal dành riêng để phục vụ cho mục đích (Chẳng hạn như: BEGIN, END, IF, WHILE, ) Chú ý: Với Turbo Pascal 7.0 trở lên, từ khoá chương ... BAI1.PAS Thoát khỏi Pascal Khởi động lại Turbo Pascal Mở file BAI1.PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa 11 Thoát khỏi Pascal 12 Viết...
... lm thay i gi tr ca mt (hay mt s) ụ nh no ú, cho n t c gi tr cn tỡm b Lnh ghộp (Compound statement) Mt nhúm cõu lnh n c t gia ch BEGIN v END s to thnh mt cõu lnh ghộp TrongPascalta cú th t ... khụng cho gi tru no c Khi to hm, thõn chng tỡnh bao gi cng cú gi tr gỏn cho tờn hm hm tr v gi tr ny c gi Cỏc tham s khỏc sau tờn hm v tờn th tc gi l cỏc tham s hỡnh thc (hay cũn gi l i) Trong ... dng s nguyờn hay thc) thnh s v gỏn cho bin Var Code l bin nguyờn dựng phỏt hin li:nu phộp bin i ỳng thỡ Code cú gi tr bng 0, nu sai St khụng biu din ỳng s nguyờn hay thc thỡ Code s cú gi tr...
... lm thay i gi tr ca mt (hay mt s) ụ nh no ú, cho n t c gi tr cn tỡm b Lnh ghộp (Compound statement) Mt nhúm cõu lnh n c t gia ch BEGIN v END s to thnh mt cõu lnh ghộp TrongPascalta cú th t ... nh ngha sn Pascal, nhng ngi ta cú th nh ngha li nu mun TrongPascalta cú cỏc tờn chun sau õy: Boolean, Char, Integer, Word, Byte, Real, Text False, True, MaxInt Abs, Arctan, Chr, Cos, Sin, Eof, ... Hng (constant) a énh ngha Hng l mt i lng cú gi tr khụng i quỏ trỡnh chy chng trỡnh Ta dựng tờn hng chng trỡnh c rừ rng v d sa i b Cỏch khai bỏo CONST = ; Vớ d 6.4: CONST...
... biểu thức logic Câu lệnh trước từ khóa else có dấu chấm phẩy Trong câu lệnh For…to …do gi trị đầu lại lớn gi trị cuối hay câu lệnh For… downto … gi trị đầu lại nhỏ gi trị cuối Trong câu lệnh ... bảng trình bày Gi o viên nhận xét, tổng kết, nhấn mạnh nguyên nhân gây lỗicó chương trình Để khích lệ học sinh, gi o viên tiến hành đánh gi kết nhóm cho điểm 3 * Gi i pháp 2: Gi o viên nêu toán ... Tăng cường cho gi o viên gi ng dạy môn Tin học tiếp thu chuyên đề, phần mềm phục vụ cho công việc gi ng dạy - Tăng cường cho gi o viên tham gia học bồi dưỡng chuyên đề phương pháp gi ng dạy môn...
... gi tr gia bin nguyờn x v y Tuy nhiờn chy chng trỡnh, iu ny khụng xy Gi tr ca bin nguyờn x v y trc gi th tc x cú gi tr bng 1, y cú gi tr bng v sau gi th tc Hoandoi(x,y) gi tr ca x, y cú gi ... a,b,c: real; delta,x1,x2:real; Begin Clrscr; Write( nhap a,b,c); readln(a,b,c); Delta:=b*b-4*a*c; If delta=0 then Writeln(phuong trinhco nghiem kep, b/2*a) Else Begin If delta>0 then Begin x1:= (-b+Sqrt(delta))/2*a; ... mt n v mi gi F(a) thc hờn biu thc F(a)+F(a), gi tr F(a) c gi hai ln Ti ln th nht a = 5, ú F(a) = , ti ln gi th hai lỳc ú a = ú F(a) = v ta nhn c kt qu 13 Trong ú biu thc 2*F(a) ch gi giỏ tr F(a)...
... kiểu Logic 1/ Kiểu Logic (Boolean): Gồm hai gi trị False (sai) True (đúng) Ví dụ: VAR BienLogic : Boolean; Khi khai báo xong ta gán cho BienLogic hai gi trị: BienLogic := True; hay BienLogic := ... Nhanxet; {Begin} Write(Hoc Pascal kho qua!); Readln; End Tìm gi I thuật tính tổng 10 số nguyên Tìm gi I thuật tính tổng số chẵn Tìm gi I thuật tính Max số, max số Tìm gi I thuật để biết ước số chung ... Program LenhWriteln; Begin Writeln(‘Chuc mung ban’); Writeln(‘Den voi ngonngu Pascal. ’); Readln; End Kết là: Chuc mung ban Den voi ngonnguPascal Program LenhWriteln; Begin Writeln(‘Chao mung...
... function ViTriNguyenAm(c:Char): Byte; {Tìm số nguyên âm ctrong mảng} var i: Byte; begin for i:= to 12 * begin if c = TapKyTuNA[i] then begin ViTriNguyenAm:= i; Exit; end; end; VitriNguyenAm:= 0; ... end; 's': if CoNguyenAm then BoDau(dSa) else ThemHDP('s'); 'f': if CoNguyenAm then BoDau(dHu) else ThemHDP('f'); 'r': if CoNguyenAm then BoDau(dHo) else ThemHDP('r'); 'x': if CoNguyenAm thenBoDau(dNg) ... else ViTriBoDau:= i; Exit; end; end; ViTriBoDau:= 0; end; function CoNguyenAm:boolean; {Có nguyên âm từ cuốicùng gõ không} begin CoNguyenAm:= (ViTriBoDau 0) end; procedure BoDau(dau: Byte);...
... phím: gi , phút, gi y Cọng thêm số gi y nhập từ bàn phím Hãy in kết sau cọng xong Gợi ý: - Gọi số gi y cộng thêm là: ss Gán gi y: =gi y+ss - Nếu gi y≥60 thì: phút:=phút + gi y DIV 60 gi y: =gi y ... Swap; Var a,b,tam: Integer; Begin Write('Nhap vao a= '); Readln(a); Write('Nhap vao b= '); Readln(b); tam:=a; {tam lấy gi trị a} a:=b; {a lấy gi trị b} b:=tam; {b lấy lại gi trị tam} Writeln('a ... CASE B OF Const 1: S1; Const 2: S2; Const n: Sn; END; Dạng CASE B OF Const 1: S1; Const 2: S2; Const n: Sn; ELSE Sn+1; END; Trong đó: B: Biểu thức kiểu vô hướng đếm kiểu nguyên, kiểu logic, kiểu...
... Pi đỉnh đa gi c Ví dụ Đa gi c bao Cho N đa gi c thoả mãn tính chất - Với đa gi c có đa gi c mà điểm nằm đa gi c - Các cạnh chúng điểm chung Bài toán đặt là: Với đa gi c i, có đa gi c bao nó? ... thuộc đa gi c Cho đa gi c không tự cắt A1A2 AN với đỉnh Ai(xi,yi) nguyên Với điểm A(xA,yA) cho trước, xác định xem A có nằm đa gi c cho hay không (Trong trường hợp cạnh đa gi c xem nằm đa gi c) ... Đếm số giao điểm, số giao điểm lẻ A thuộc đa gi c Chương trình: VD4 Đếm số điểm có toạ độ nguyên thuộc đa gi c Cho đa gi c gồm n đỉnh (x1,y1), (x2,y2), , (xn,yn), biết xi yi(i=1, ,n) số nguyên...
... phần hình thành phát triển lực trí tuệ chung cho học sinh THPT Gi thuyết khoa học Nếu trìnhgi ng dạy Tin học, đặc biệt gi ng dạy ngônngữlậptrình Pascal, gi o viên lựa chọn cẩn thận hệ thống ... lực trí tuệ chung cho học sinh THPT thông qua gi ng dạy ngônngữlậptrìnhPascal Chương III: Thực nghiệm sư phạm Chương I : Cơ sở lí luận I lực trí tuệ chung ? Năng lực trí tuệ chung bao gồm: ... tụê chung cho học sinh ? Chương II : Hình thành phát triển lực trí tụê chung cho học sinh THPT thông qua gi ng dạy ngônngữlậptrìnhPascal Phương pháp hình thành phát triển lực trí tuệ chung...
... quan im giao tip gia ngi vi mỏy Cn dt cho hc sinh thit lp nhng mn hỡnh cú bn thụng bỏo, to nờn s i thoi gia ngi v mỏy Chng trỡnh m chỳng ta lp ra, núi chung l khụng phi ch riờng chỳng ta dựng, ... 1: Ta dy cho hc sinh lp trỡnh tớnh din tớch t gi c li cho bit ta ca cỏc nh Bi toỏn ny s c quy v bi toỏn quen thuc l tớnh din tớch tam gi c theo cụng thc Hờrụng tagi ý cho hc sinh chia t gi c ... cho dõn giu, nc mnh, xó hi cụng bng, minh, ỏp ng yờu cu xõy dng v bo v T Quc xó hi ch ngha (Nguyn Sinh Huy Nguyn Vn Lờ - Gi o dc hc i cng - trang127) Trong cỏc nhim v ca gi o dc thỡ nhim v gi o...
... pháp gi ng dạy Tin học Lời cảm ơn Khoá luận đợc hoàn thành dới hớng dẫn gi p đỡ tận tình thầy gi o TrơngTrọng Cần Trong thời gian hoàn thành khoá luận, tác gi nhận đợc gi p đỡ thầy gi o, côgi o ... phơng pháp gi o dục, tạp chí gi o dục - Nghiên cứu hoạt động dạy học gi o viên học sinh trờng THPT gi thuyết khoa học Tin học môn khoa học trừu tợng, song lại trở thành công cụ nhận thức gi i cách ... đầu cách nêu bật thuộc tính chung, liên hệ, quan hệ chung định phần tử tập hợp xuất phát Những thuộc tính chung bao gồm hai loại: thuộc tính chunggi ng thuộc tính chung chất Nh vậy, trừu tợng...
... a, b, c tam gi c Nếu a, b, c ba cạnh tam gi c in lên hình câu ba cạnh tam gi c, ngợc lại, ba cạnh tam gi c tính chu vi diện tích tam gi c Hớng dẫn : - Điều kiện để a, b, c ba cạnh tam gi c cạnh ... ba cạnh tam gi c ABC, tính diện tích đờng cao tam gi c [8.4] Viết chơng trình nhập vào từ bàn phím thời gian công việc N gi y Hãy chuyển đổi viết hình số thời gian dới dạng gi , phút, gi y Ví ... SQR, ABS nguyên hay thực gi ng đối số SQRT, SIN, COS, ARCTAN, LN, EXP nguyên hay thực thực Abs(x) = |x| : trị tuyệt đối x Sqrt(x) = x Sin(x), Cos(x), Artan(x): tính sinx, cosx arctgx Ln(x) = logex...
... bày văn Tham số Mode lấy gi trị : - BW40 = 0; {40x25 B/W Color Adapter} CO4 0 = 1; {40x25 Color Color Adapter} BW80 = 2; {80x25 B/W Color Adaptor} CO8 0 = 3; {80x25 Color Color Adapter} Mono = 7; ... TrinhDoTT : (Kem,TB,Kha,Gioi)); BacSi : (ChuyenKhoa : Khoa); CaBiet: (); End; {Of Record} VAR cb1, cb2 : Ly_lich; BEGIN WITH cb1 DO Begin Holot := 'Nguyen Van'; Ten := 'Long'; NgheNghiep := CongNhan; ... \ Gi o trình tin học đại cơng Ví dụ : Viết chơng trình nhập vào chữ Xem xét chữ nguyên âm hay phụ âm ? Program VIDU_6; Uses Crt; Var TapChuCai, TapNguyenAm : Set Of Char; Ch : Char; Begin TapChuCai...