Bài 16. Ví dụ làm việc với tệp

THÂN CHÀO CÁC EM!
BÀI 16: VÍ DỤ LÀM VIỆC VỚI TỆP
-oOo-
Ví dụ 1

Ví dụ 2
BÀI 16: VÍ DỤ LÀM VIỆC VỚI TỆP
-oOo-
Ví dụ 1: Xem sách giáo khoa trang 87.
Program khoang_cach;
var
d:real;
f,f1: text;
x,y: real;
begin
assign(f,`E:TRAI.TXT`);
reset(f);
assign(f1,`E:KHCACH.TXT`);
rewrite(f1);
While not eof(f) do
begin


read(f,x,y);
d:= sqrt(x*x+y*y);
writeln(`Khoang cach d =`,d:8:2);
close(f);
readln
end.
Program khoang_cach;
var
d:real;
f,f1: text;
x,y: real;
begin
assign(f,`E:TRAI.TXT`);
reset(f);
assign(f1,`E:KHCACH.TXT`);
rewrite(f1);
While not eof(f) do
begin


read(f,x,y);
d:= sqrt(x*x+y*y);
writeln(`Khoang cach d =`,d:8:2);
readln;
writeln(f1,` khoang caùch d = `,d:8:2);
writeln(f1);
end;
close(f);
close(f1);
readln
end.
BÀI 16: VÍ DỤ LÀM VIỆC VỚI TỆP
-oOo-
Ví dụ 2: Xem sách giáo khoa trang 87.
Program dientro;
var a: array[1..5] of real;
f1,f2:text;
r1,r2,r3:real;
i:integer;
begin
assign(f1,`E:RESIST.DAT`);
reset(f1);
assign(f2,`E:RESIST2.EQU`);
rewrite(f2);
while not eof(f1) do
begin


read(f1,R1,R2,R3);
a[1]:=R1*R2*R3/(R1*R2+R1*R3+R2*R3);
a[2]:=R1*R2/(R1+R2)+R3;
a[3]:=R1*R3/(R1+R3)+R2;
a[4]:=R2*R3/(R2+R3)+R1;
a[5]:=R1+R2+R3;
for i:= 1 to 5 do
write(f2,a[i]:9:2, ` `);
writeln(f2);
end;
close(f1); close(f2);
readln
end.
TRẢ LỜI CÁC CÂU SAU:
TIẾT HỌC KẾT THÚC!