cho tệp thiHK.dat gồm 10 dòng mỗi dòng gồm ba giá trị a,b,c trong đó
a là số báo danh
b là điểm lí thuyết
c là điểm thực hành
viết chương trình đọc dữ liệu từ tệp thiHK.dat rồi tính tổng điểm của thí sinh ( tổng điểm = lí thuyết + thực hành x2 ) ghi kết quả vào tệp kết quả.dat gồm hai thông tin (sbd và tổng điểm )
var f1,f2: text;
b,c: real;
a: integer;
begin
assign(f1,thihk.dat);
reset(f1);
assign(f2,ketqua.dat);
rewrite(f2)
for a:=1 to 10 do
begin
read(f1,a,b,c);
writeln(f2,’sbd ‘,a,’ co so diem: ‘, b+2*c);
end;
close(f1); close(f2);
end.