Bài 16. Ví dụ về tệp

TRƯỜNG THPT HOÀNG MAI - QUỲNH LƯU-NGHỆ AN
VÍ DỤ 1: VÍ DỤ 1 SGK TRANG 87
Program khoang_cach; Var d:real; f:text; VÍ DỤ LÀM VIỆC VỚI TỆP
VÍ DỤ 1: VÍ DỤ 1 SGK TRANG 87
Program khoang_cach; Var d : real; f : text; x,y : integer; Begin Assign(f,`TRAI.TXT`); Reset(f); While not eof(f) do Begin Read(f,x,y); d := sqrt(x*x+y*y); Writeln(`khoang cach: `, d:10:2); End; Close(f); End. (6) (2) (4) (5) (7) (8) (9) (10) (1) (3) Ví dụ 2:
Program Dientro; Var a: array[1..5] of real; R1,R2,R3: real; i: integer; f1, f2: text; Begin Assign(f1, `RESIST.DAT`); reset(f1); Assign(f2, `RESIST.EQU`); rewrite(f2); While not Eof (f1) do Begin Readln(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:3,` `); Writeln(f2); End; Close (f1); close(f2); End. End; End. (1) (2) (3) (4) (5) (6) (7) (8)