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) 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) 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) 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 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) Viet cac cau lenh de doc du lieu tu tep ''dulieu.txt'' 2 bien a,b ( su dung bien tep f1)
TRONG CAC TEN TEP DUOI DAY, NHUNG TEP NAO LA TEP VAN BAN DUOC SOAN THAO BOI PHAN MEM SOAN THAO VAN BAN MICROSOFT WORL?
A.bai_van.docx
B.buc_tranh.bmp
C.tro_choi.exe
D.danh_sach.docx
E. luyen_go.exe
F.chuong_trinh.pas
HAY CHON NHUNG PHUONG AN TRA LOI DUNG VA NEU LY DO CHO LIEU CHON CUA EM? TIN 6 NHA . AI LAM DUNG MINH CHO 3 TICK
trả lời bừa đây:
A và D
lí do là vì cái tên của nó:)))
BAN GIAI THICH RO RA DUOC KO
nhap du lieu tuy y vao 1 o tren trang tinh .dung phim en ter de ket thuc viec nhap du lieu trong o do va quan sat o duoc kich hoat tiep theo
lap lai thao tac nhap du lieu vao cac o tren trang tinh ,nhung su dung phim mui ten de ket thuc viec nhap du lieu .quan sat o duoc kich hoat tiep theo va cho nhan xet
chon 1 o tinh co du lieu va nhan phim delete.chon mot o tinh khac co du lieu va go noi dung moi.Cho nhan xet ve cac ket qua
(bai 2 trang 9 SGK tin hoc lop 7)
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;
