Góc học tập khoa CNTT - ĐHXD Phần A: Lý thuyết Câu 1: Các phận chức máy tính ? a) b) c) CPU - Là khối xử lý trung tâm, huy máy tính Nó có nhiệm vụ thực phép tính số học logic đồng thời điều khiển trình thực lệnh - Có phận :  Khối tính toán số học ALU : Thực hầu hết thao tác, phép tính quan trọng hệ thống  Khối điều khiển CU : quy định dãy thao tác cần làm hệ thống cách tạo tín hiệu điều khiển việc  Các ghi : lưu trữ thông tin tạm thời trình làm việc CPU Bộ nhớ - Chia làm loại :  Bộ nhớ : ROM, RAM  Bộ nhớ : ổ cứng, USB, CD, VCD… Các thiết bị vào - Các thiết bị vào : chuột, bàn phím… - Thiết bị : hình, máy in… Câu : So sánh ROM RAM ROM + Chỉ đọc thông tin + Do nhà sản xuất ghi vào, lưu trữ chương trình cố định + Dữ liệu không bị tắt máy RAM + Có thể ghi vào, đọc dễ dàng + Được dung để lưu trữ chương trình tạm thời chúng chạy liệu chương trình sử dụng + Khi tắt máy liệu bị Câu : Nguyên tắc giải toán máy tính điện tử ? - Gồm bước : Lập công thức cho toán Chọn phương pháp giải tốt Lập sơ đồ thuật toán Viết chương trình ngôn ngữ lập trình https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD Thực chương trình máy Câu : Chuyển đổi hệ đếm phép tính hệ số Ví dụ : (571)8=5.82+7.81+1.80=(377)10 (F5)16=15.161+5.160=(245)10 (FA5C)16=15.163+10.162+5.161+12.160=(64092)10 + Ngoài có dạng chuyển từ số 10 sang số 2, từ số 10 sang số 8… hệ đếm khác + Dạng thứ thực phép tính hệ số :cộng, trừ, nhân, chia Câu : Cấu trúc chương trình pascal ? cho ví dụ ? - - Gồm phần Tiêu đề chương trình Program tenchuongtrinh; Khai báo Uses Lable Const Var Type Function Procedure Thân chương trình Begin {….} End Ví dụ : viết chương trình tính diện tích hình tròn bán kính R Program VD; Const PI=3.14; Var R,S :real; Begin Write(‘Nhap ban kinh : ‘);readln(R); S:=PI*R*R; Writeln(‘Dien tich hinh tron la : ‘,S:6:1); Readln; End https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD Câu : Viết biểu thức ngôn ngữ lập trình pascal Ví dụ : Y=sin(α)+arctg(β)+ Viết lại thành : Y:=sin(alpha)+arctan(beta)+1/sqrt(sqr(A)+sqrt(1+sqr(A)+sqrt(1+sqr(B)+sqr(A)))) Câu : Nêu vòng lặp xác định mà em biết ? cho ví dụ ? - - - Có vòng lặp xác định : For := to For := < Giá trị cuối > downto < Giá trị đầu > Ví dụ : Viết hình số từ 50->24, số nằm dòng Var i:integer; Begin For i:=50 downto 24 Writeln(i); Readln; End Ví dụ : Viết hình chữ từ ‘a’->’z’ chữ cách dấu cách Var i:char; Begin For i:=’a’ to ‘z’ Write(I,’ ‘); Readln; End Câu : So sánh repeat …until… while…do…? Cho ví dụ - Giống : Đều vòng lặp không xác định Khác : Repeat…until… Repeat ; While…do… While Begin https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD Until ; + Thực công việc biểu thức Boolean có giá trị TRUE + Thực công việc trước thử điều kiện Boolean sau ; End; + Chừng biểu thức boolean có giá trị TRUE thực công việc + Kiểm tra điều kiện Boolean trước sau thực công việc BD BD Công việc Biểu thức boolean S KT Đ Biểu thức boolean Đ Công việc S KT - Ví dụ : tính tổng số từ 1->N Repeat…until… S:=0;i:=1; While (iN; Chú ý : + Ngoài có câu so sánh vòng lặp for while, for repeat + Nêu vòng lặp không định + Cho đoạn chương trình viết vòng lặp for,while,repeat sau viết lại đoạn chương trình vòng lặp khác Ví dụ từ repeat viết lại while + Dạng cho sơ đồ thuật toán viết lại vòng lặp https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD Câu : Cách khai báo mảng ? cho ví dụ - Mảng chiều : có cách khai báo Gián tiếp Type KieumangT=array[Kiểu dẫn] of kieuphantu; Var A:KieumangT; Ví dụ : Type A=array[-3 7] of integer; Var B:A; Trực tiếp Var A:array[Kiểu dẫn] of kiểu phần tử; Ví dụ : Var B:array[-3 7] of integer; Mảng nhiều chiều (ở xét đến mảng chiều) : Cách khai báo tương tự mảng chiều Gián tiếp Type PT:array[1 5] of real; Var MPT:array[1 3] of PT; Trực tiếp Var MPT:array[1 3,1 5] of real; - Câu 10 : Cách khai báo ghi ? cho ví dụ - - Khai báo : Type tenkieubanghi=record S1:T1; S2:T2; … Sn:Tn; End; Var bien:tenkieubanghi; Trong : T1,T2, Tn mô tả kiểu tương ứng S1,S2,…Sn danh sách trường Ví dụ : Type sinhvien=record Ht:string[30]; Dt:array[1 20] of real; DTB:real; https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD End; Var sv:array[1 50] of sinhvien; Câu 11 : Đưa thủ tục để ghi liệu cho tệp ? cho ví dụ Mở tệp để ghi Assign(bientep,tentep); Rewrite(bientep); Ghi giá trị vào tệp Write(Bientep,item1,item2,…,itemN); Đóng tệp Close(bientep); - Ví dụ : Tạo tệp chứa số nguyên từ 1->100 ghi dạng nguyen.dat Var f:file of integer; i:integer; Begin Assign(f,’nguyen.dat’); Rewrite(f); For i:=1 to n Write(f,i); Close(f); End Câu 12 : Đưa thủ tục để đọc liệu cho tệp ? cho ví dụ Mở tệp để đọc Assign(bientep,tentep); Reset(bientep); Đọc liệu từ tệp Read(bientep,var1,var2,…,varN); Đóng tệp Close(bientep); - Ví dụ : Cho tệp nguyen.dat chứa số nguyên Đọc phần tử thứ phần từ thứ gán vào biến a b Var f:file of integer; a,b:integer; Begin Assign(f,’nguyen.dat’); https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD Reset(f); While not eof(f) Begin Read(f,a,b,b); End; Close(f); End Câu 13 : Đưa thủ tục để ghi liệu cho tệp văn ? Mở tệp để ghi Assign(bientep,tentep); Rewrite(bientep); Ghi giá trị vào tệp Write(bientep,item1,item2,…,itemN); Writeln(bientep,item1,item2,…,itemN); Writeln(bientep); Đóng tệp Close(bientep); Câu 14 : Đưa thủ tục để đọc liệu cho tệp văn ? Mở tệp để đọc Assign(bientep,tentep); Reset(bientep); Đọc liệu từ tệp Read(bientep,var1,var2,…,varN); Readln(bientep,var1,var2,…,varN); Readln(bientep); Đóng tệp Close(bientep); Câu 15 : Nêu phép toán tập hợp ? cho ví dụ Ví dụ : cho tập A:=[1 10,15 25]; B:=[8 17,24 31]; Có phép toán tập hợp Phép gán https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD Phép giao C:=A*B=[8 10,15 17,24 25]; Phép hợp C:=A+B=[1 31]; Phép hiệu C:=A-B=[1 7,18 23]; C:=B-A=[11 14,26 31]; Phép thử thuộc in A = TRUE Phép so sánh : >,= sv[j].ns then begin temp:=sv[i]; sv[i]:=sv[j]; sv[j]:=temp; end; writeln(f,'STT':4,'Ho ten':25,'Nam sinh':10); {Minh chi hien thi tung nay,ai thich hien thi them thi them vao nhe} for i:=1 to m with sv[i] writeln(f,i:4,ten:25,ns:10); close(f); end; Begin Nhap; tracuu; ghitep; readln; End 46 https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD Bài 27: Cho trước danh sách tên đội bóng tham gia mùa giải kết thi đấu đội Kết thi đấu đội ghi ma trận vuông gồm kết thắng (3 điểm), hòa (1 điểm), thua (0 điểm) tổ chức sau : Các phần tử thuộc đường chéo gán 0, phần tử aij khác có ý nghĩa : aij= đội i thắng đội j aij= đội i hòa đội j aij= đội i thua đội j Hãy viết chương trình để thực yêu cầu sau : - Một chương trình nhập liệu từ bàn phím - Một chương trình tính điểm đội - Một chương trình xếp theo thứ tự đội sau mùa giải theo thứ tự giảm dần - Một chương trình ghi kết vào tệp chương trình hình theo định dạng sau : Dòng : KET QUA BONG DA Dòng : Số đội bóng tham gia mùa giải Các dòng dòng ghi : STT, hai dấu cách, số điểm - Một chương trình gọi chương trình Giải : Uses crt; Var i,j,m,Temp1:integer; f1:text; Temp:string[25]; Doi:array[1 20] of string[25]; S:array[1 20] of integer; A:array[1 20,1 20] of integer; Procedure Nhap; Begin Write('Nhap so doi: '); Readln(m); For i:=1 to m Begin Write('Ten doi ',i,': '); Readln(Doi[i]); End; Writeln('Nhap ket qua tung tran dau theo ma tran vuong: '); For i:=1 to m For j:=1 to m Begin Write('A[',i,j,']= '); Readln(A[i,j]); End; 47 https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD End; Procedure Tinhdiem; Begin Fillchar(S,Sizeof(s),0); {Gan tat ca phan tu S = 0} For i:=1 to m For j:=1 to m If ij then {Khong tinh duong cheo chinh} Begin If A[i,j]=3 then S[i]:=S[i]+3 Else If A[i,j]=1 then Begin S[i]:=S[i]+1; {Vi doi hoa nen so diem ca cung se tang len 1} S[j]:=S[j]+1; End Else S[j]:=S[j]+3; {A[i,j]=0 > Doi J duoc diem, I dc diem} End; End; Procedure Sapxep; Begin For i:=1 to m-1 For j:=i+1 to m If S[i][...]... loại Một chương trình con nhập danh sách, chỉ nhập tt, kết quả học tập, còn phân loại tính theo công thức : Phân loại bằng A nếu kết quả học tập >=8 Phân loại bằng B nếu kết quả học tập >=6 Phân loại bằng C nếu kết quả học tập >=5 Phân loại bằng D nếu kết quả học tập >=4 Phân loại bằng E nếu kết quả học tập < 4 Ghi danh sách ra tệp Mở tệp, đọc dữ liệu vào bộ nhớ trong Một chương trình con sắp xếp lại... be hon tich'); readln; end 21 https://www.facebook.com/groups/CNTT.NUCE/ Góc học tập khoa CNTT - ĐHXD Bài 14 : Kiểu bản ghi - Cho bảng sau : STT Họ tên 1 Điểm danh … m 1…n 1 2 Đếm số buổi đi học, nghỉ học có phép, nghỉ học không phép Đưa ra những sinh viên không được thi biết điều kiện không được thi là số buổi nghỉ học không phép >= 20%m Giải : (Dino) uses crt; type sinhvien=record ten:string[20];... Góc học tập khoa CNTT - ĐHXD writeln(f3,'Ten cac chu ho co luong dien tieu thu it nhat la :'); for k:=1 to t do writeln(f3,k,' ',ch1[k].ht:10); close(f3); readln; end Bài 17 : Vẽ sơ đồ thuật toán và viết chương trình Pascal thực hiện các công việc cho bài toán sau : Cho một danh sách lớp : TT 1 2 3 4 5 Họ tên Kết quả học tập Phân loại Một chương trình con nhập danh sách, chỉ nhập tt, kết quả học tập, ... “Trung binh” - Tìm học bổng của từng sinh viên biết Nếu DTB>=9, sinh viên sẽ được học bổng 240000 Nếu 8 ... Góc học tập khoa CNTT - ĐHXD Bài 14 : Kiểu ghi - Cho bảng sau : STT Họ tên Điểm danh … m 1…n Đếm số buổi học, nghỉ học có phép, nghỉ học không phép Đưa sinh viên không thi biết điều kiện không... thực công việc cho toán sau : Cho danh sách lớp : TT Họ tên Kết học tập Phân loại Một chương trình nhập danh sách, nhập tt, kết học tập, phân loại tính theo công thức : Phân loại A kết học tập. .. thức : Phân loại A kết học tập >=8 Phân loại B kết học tập >=6 Phân loại C kết học tập >=5 Phân loại D kết học tập >=4 Phân loại E kết học tập < Ghi danh sách tệp Mở tệp, đọc liệu vào nhớ Một