1) Khi viet mot chuong trinh muon tra ve 1 gia tri ta nen dung:
A. Ham B. Thu tuc C. Chuong trinh con D. Thu tuc hoac ham
1) Cau lenh Rewrite(<bien tep>); co y nghia gi
A. Thu tuc gan ten tep cho ten bien tep B. Khai bao bien tep
C. Thu tuc dong tep D. Thu tuc mo ten de ghi du lieu
1) Cau lenh Assign(<bien tep>, <ten tep>); co y nghia gi
A. thu tuc gan ten tep cho ten bien tep B. thu tuc mo ten de doc du lieu
C. Khai bao bien tep D. Thu tuc dong tep
1) Chon phat bieu dung trong cac phat bieu duoi day khi noi ve loi ich cua viec su dung chuong trinh con :
A. De chuong trih gon hon B. Ho tro viec chuong trinh co cau truc nhu cau truc la, re nhanh
C. Khong co loi ich D. Tranh duoc viec phai viet lap di lap lai cung 1 day lenh nao do
1) Neu ham eoln( ) cho gia tri bang true thi con tro tep nam o vi tri:
A. Dau dong B. Dau tep C. Cuoi dong D. Cuoi tep
1) Dien vao dau cham trong bai giai: Viet chuong trinh thuc hien nhung viec sau:
a) Doc tu ban phim 1 danh sach gom:
Ho ten, mon thi thu nhat, diem mon thi thu nhat , mon thi thu hai, diem mon thi thu hai
b) Ghi vao dia voi ten tep QLHT
c) Doc du lieu tu File QLHT, tim nhung hoc sinh phai thi lai ( co it nhat mot mon khong dat ) . Dua ra so thu tu, ho ten, cac mon phai thi lai va diem tuong ung ra man hinh
Bai giai
program......
Uses Crt;
type phieudiem = record
hten : string [25];
Mh1 : string [10];
d1 : real;
Mh2 : string [10];
d2 : real'
end;
Var
pd : phieudiem;
f file of phieudiem;
n,i,t : integer;
Begin
clrscr;
write ( ' So phieu diem n = ' ) ;
...........................
assign (....................) ;
rewrite (..............)
For i := 1 to n do
with pd do
begin
Writeln ( ' Vao phieu diem thu ' , i );
Write ( ' Ho va ten: ' ) ;
Readln (...................)
Write (' Mon thi thu nhat : ') ;
Read..............
Write ( ' Diem mon thu nhat ' );
Read.....................
Write ( ' Mon thi thu hai: ' ) ;
Readln.............................
Write ( ' Diem mon thu hai: ' ) ;
Read...............
Write ( f, pd ) ;
end;
close (f);
clrscr ;
Writeln ( ' Danh sach hoc sinh thi lai : ') ;
Writeln;
assign....................
reset...........
t : = 0 ;
While not eof (f) do
Begin
read ( r, pd );
with pd do
If ( d1 < 5 ) or ( d2 < 5 ) then
Begin
inc (t);
Write..................
if d1 < 5 then
Write.......
if d2 < 5 then
Write............
Writeln;
end;
end;
close (f);
end.
1) De khai bao ham trong Pascal bat dau bang tu khoa:
A. Program B. Procedure C. Function D. Var
viết chương trình sự dụng tệp nhập vào 2 ma trận a va b in ra màn hình 2 ma trận dó và ma trận tích của chúng
1) Cau lenh dung de doc du lieu van ban co dang:
A. Read(<ten tep>, <danh sach ket bien>);
B. Read(<bien tep>, <danh sach ket bien>);
C. Write(<ten tep>, <danh sach ket bien>);
D. Write(<bien tep>, <danh sach ket bien>);