Góc học tập khoa CNTT - ĐHXD

Phần A: Lý thuyết
Câu 1: Các bộ phận chức năng của máy tính ?
a)

b)

c)

CPU
- Là khối xử lý trung tâm, là bộ chỉ huy của máy tính. Nó có nhiệm vụ thực
hiện các phép tính số học và logic đồng thời điều khiển các quá trình thực
hiện lệnh.
- Có 3 bộ phận chính :
 Khối tính toán số học ALU : Thực hiện hầu hết các thao tác, phép
tính quan trọng của hệ thống.
 Khối điều khiển CU : quy định dãy thao tác cần làm đối với hệ
thống bằng cách tạo ra tín hiệu điều khiển mọi việc.
 Các thanh ghi : lưu trữ thông tin tạm thời trong quá trình làm việc
của CPU
Bộ nhớ
- Chia ra làm 2 loại :
 Bộ nhớ trong : ROM, RAM
 Bộ nhớ ngoài : ổ cứng, USB, CD, VCD…
Các thiết bị vào ra
- Các thiết bị vào : chuột, bàn phím…
- Thiết bị ra : màn hình, máy in…

Câu 2 : So sánh ROM và RAM
ROM

Câu 4 : Chuyển đổi giữa các hệ đếm và các phép tính ở hệ cơ số 2
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 ra còn có các dạng chuyển từ cơ số 10 sang cơ số 2, từ cơ số 10 sang cơ số
8… và các hệ đếm khác
+ Dạng thứ 2 là thực hiện các phép tính ở hệ cơ số 2 :cộng, trừ, nhân, chia.
Câu 5 : Cấu trúc của một chương trình pascal ? cho ví dụ ?
-

-

Gồm 3 phần
1. Tiêu đề của chương trình
Program tenchuongtrinh;
2. Khai báo
Uses
Lable
Const
Var
Type
Function
Procedure
3. 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;

Ví dụ 1 : Viết ra màn hình các số từ 50->24, mỗi số nằm trên 1 dòng
Var i:integer;
Begin
For i:=50 downto 24 do
Writeln(i);
Readln;
End.
Ví dụ 2 : Viết ra màn hình các chữ cái từ ‘a’->’z’ mỗi chữ cái cách nhau
một dấu cách.
Var i:char;
Begin
For i:=’a’ to ‘z’ do
Write(I,’ ‘);
Readln;
End.

Câu 8 : So sánh repeat …until… và while…do…? Cho ví dụ
-

Giống nhau : Đều là vòng lặp không xác định
Khác nhau :
Repeat…until…
Repeat
<công việc>;

While…do…
While <biểu thức Boolean> do
Begin

3

Biểu thức boolean
Đ
Công việc
S
KT

-

Ví dụ : tính tổng các số từ 1->N
Repeat…until…
S:=0;i:=1;
While (iN;

Chú ý :
+ Ngoài ra còn có các câu so sánh giữa vòng lặp for và while, giữa for và
repeat.
+ Nêu các vòng lặp không các định

2.

-

Câu 10 : Cách khai báo bản ghi ? cho ví dụ
-

-

Khai báo :
Type tenkieubanghi=record
S1:T1;
S2:T2;
…..
Sn:Tn;
End;
Var bien:tenkieubanghi;
Trong đó : T1,T2,...Tn là các mô tả kiểu tương ứng
S1,S2,…Sn là danh sách các trường
Ví dụ :
Type sinhvien=record
Ht:string[30];
Dt:array[1..20] of real;
DTB:real;
5
https://www.facebook.com/groups/CNTT.NUCE/


Góc học tập khoa CNTT - ĐHXD
End;

3.

Mở tệp để đọc
Assign(bientep,tentep);
Reset(bientep);
Đọc dữ liệu từ tệp
Read(bientep,var1,var2,…,varN);
Đóng tệp
Close(bientep);
- Ví dụ : Cho tệp nguyen.dat chứa các số nguyên. Đọc phần tử thứ nhất và
phần từ thứ 3 gán vào 2 biến a và b
Var f:file of integer;
a,b:integer;
Begin
Assign(f,’nguyen.dat’);
6
https://www.facebook.com/groups/CNTT.NUCE/


Góc học tập khoa CNTT - ĐHXD
Reset(f);
While not eof(f) do
Begin
Read(f,a,b,b);
End;
Close(f);
End.
Câu 13 : Đưa ra các thủ tục để ghi dữ liệu cho tệp văn bản ?
1.



Câu 15 : Nêu các phép toán trong tập hợp ? cho ví dụ
Ví dụ : cho 2 tập
A:=[1..10,15..25];
B:=[8..17,24..31];
Có 6 phép toán trong tập hợp
1.

Phép gán
7
https://www.facebook.com/groups/CNTT.NUCE/


Góc học tập khoa CNTT - ĐHXD
2.
3.
4.

5.
6.

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 về
4 in A = TRUE

Function
Function tenham(Khai bao cac tham
so hinh thuc neu co):kiểu giá trị hàm;
{Khai báo các hằng, biến…}
Begin
{Thân chương trình con}
End.
+ Trả lại cho một giá trị kết quả vô
hướng thông qua tên của nó.
+ Được sử dụng trong các biểu thức.

Ví dụ :
Procedure
Procedure dientich(r:real;var dt:real);
Begin

Function
Function dt(r:real):real;
Begin

8
https://www.facebook.com/groups/CNTT.NUCE/


Góc học tập khoa CNTT - ĐHXD
dt:=3.14*r*r;
end;

dt:=3.14*r*r;
End;



Góc học tập khoa CNTT - ĐHXD
+ Các tham số thực có thể là một biểu
thức. Chúng có thể thay đổi trong
chương trình con và khi ra khỏi chương
trình con đó chúng không thay đổi giá
trị.

+ Các tham số thực phải là các biến,
không được phép là giá trị. Chúng có
thể thay đổi trong chương trình con và
khi ra khỏi chương trình con chúng giữ
nguyên giá trị thay đổi đó.

+ Ngoài ra còn có dạng cho chương trình con xong sau đó đưa ra các trường hợp
bỏ từ khóa var thì kết quả sẽ như thế nào
Câu 18 : Phân biệt biến toàn cục và biến địa phương ? cho ví dụ
Biến toàn cục
Biến địa phương
+ là các biến được khai báo trong + là các biến được khai báo trong
chương trình chính, chúng có thể dung chương trình con và nó chỉ có tác dụng
ở mọi nơi trong chương trình.
trong phạm vi chương trình con đó.
Khi chương trình con kết thúc thì biến
này mất tác dụng.
+ Dạng tiếp theo là cho đoạn chương trình sau đó tìm kết quả khi chạy đoạn
chương trình đó

10

begin
write('x[',i,'] = ');
readln(x[i]);
end;
for i:=1 to n do
if x[i]>=0 then
begin
k:=k+1;
y[k]:=x[i];
end
else
begin
l:=l+1;
z[l]:=x[i];
end;
Writeln('Day ca phan tu >=0 la :');
for i:=1 to k do
writeln('y[',i,'] = ',y[i]:4:1);
Writeln('Day ca phan tu
writeln('Nhap ma tran vecto B');
for i:=1 to m do
begin
write('b[',i,']= ');
readln(b[i]);
end;
for j:=1 to m do
for i:=1 to n+1 do
if i
if a[i,j]tich then
writeln(' Tong lon hon tich')
else if tong=tich then
writeln(' Tong bang tich ')
else
writeln('Tong 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


for i:=1 to n do
with sv[i] do
begin
writeln('Hoc sinh thu ',i);
write('Ho ten: ');
readln(ten);
dh:=0;
kp:=0;
cp:=0;
for j:=1 to m do
begin
write('Buoi ',j,': ');
readln(dd[j]);
if dd[j]='k' then kp:=kp+1
else if dd[j]='p' then cp:=cp+1
else dh:=dh+1;
end;
22
https://www.facebook.com/groups/CNTT.NUCE/


Góc học tập khoa CNTT - ĐHXD
end;
writeln('Danh sach thong tin di hoc cua sinh vien la: ');
writeln('STT':4,'Ho ten':20,'Di hoc':8,'Khong phep':12,'Co
phep':9,'Trang thai':18);
for i:=1 to n do
with sv[i] do
begin
write(i:4,ten:20,dh:8,kp:12,cp:9);

type sinhvien=record
ht:string[30];
diemdanh:array[1..10] of char;
dh:integer;
nh:integer;
23
https://www.facebook.com/groups/CNTT.NUCE/


Góc học tập khoa CNTT - ĐHXD
cp:integer;
end;
var sv:array[1..20] of sinhvien;
sv1:array[1..20] of sinhvien;
i,j,m,n,k,t,max:integer;
f1,f2,f3:Text;
begin
assign(f1,'ten.txt');
reset(f1);
i:=0;
while not eof(f1) do
begin
i:=i+1;
readln(f1,sv[i].ht);
end;
n:=i;
close(f1);
assign(f2,'diemdanh.txt');
reset(f2);
i:=0;

end;
max:=sv[1].dh;
for i:=1 to n do
if sv[i].dh>max then
max:=sv[i].dh;
for i:=1 to n do
if sv[i].dh=max then
begin
t:=t+1;
sv1[t]:=sv[i];
end;
write('Thong ke so buoi di hoc cua sinh vien');
for i:=1 to n do
begin
writeln;
write(i,' ',sv[i].ht:10,' ');
for j:=1 to m do
write(sv[i].diemdanh[j],' ');
write(sv[i].dh,' ',sv[i].nh,' ',sv[i].cp);
end;
writeln;
write('Co ',t,' sinh vien di hoc cham chi nhat : ');
for i:=1 to t do
begin
writeln;
write(i,' ',sv1[i].ht:10);
end;
assign(f3,'ketqua.txt');
rewrite(f3);
for i:=1 to n do