1) Viet cac cau lenh de doc du lieu tu tep ''dulieu.txt'' 2 bien a,b ( su dung bien tep f1)
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>);
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) Trong PASCAL de khai bao bien tep van ban ta phai su dung cu phap:
A. Var<ten bien tep>: Text; B. Var <ten tep>: Text;
C. Var <ten tep> : String; D. Var <ten bien tep> : String;
1) Cau lenh de gan ten tep 'bai1.txt', cho bien tep f la:
A. assign(bai1.txt,f); B. assign(f,bai1.txt);
C. assign('bai1.txt',f); D. assign(f,'bai1.txt');
1) Tep ma du lieu trong no duoc ghi duoi dang cac ki tu theo ma ASCII duoc goi la tep gi
A. Tep truy cap truc tiep B. Tep co cau truc C. Tep van ban D. Tep truy cap tuan tu
1) Cau lenh dung de dong tep f1 la:
A. Close(f1): B. close(f1); C. Stop(f1): D. Stop(f1);
1) Hay chon thu tu hop li nhat khi thuc hien cac thao tac nhap du lieu vao tep:
A. Mo tep => Gan ten tep => Ghi du lieu vao tep => Dong tep
B. Mo tep => ghi du lieu vao tep => Gan ten tep => Dong tep
C. Gan ten tep => Mo tep => Ghi du lieu vao tep => Dong tep
D. Gan ten tep => Ghi du lieu vao tep => Mo tep => Dong tep
Viet chuong trinh hoan chinh,su dung cau lenh dieu kien,thuc hoen nhap tu ban phim,gia tri cua bien nguyen a va in thong bao xem a co phai boi cua 7 hay khong
uses crt;
var a:integer;
begin
clrscr;
write('nhap a='); readln(a);
if a mod 7=0 then writeln(a,' la boi cua 7')
else writeln(a,' khong la boi cua 7');
readln;
end.