BT tep co ban hay (h)

Bài Tập với Tệp
Một số bài toán với tệp
Bài 1: Ghi giá trị của hai biến a,b và tổng a+b vào tệp E:Bai1.Inp.
- Khai báo;
Program Bai1;
Var Tep :Text ;
a,b :Integer ;
Begin
Write(‘ Nhap a,b : ‘); Readln(a,b);
Assign(Tep,’E:Bai1.Inp’) ;
Rewrite(Tep) ;
Write(tep,a,’ ‘,b, ‘ ‘,a+b) ;
Close(tep) ;
Readln
End.
- G?n tên tệp;
- Mở tệp ra để ghi;
Các bước:
Thể hiện bằng pascal
- Ghi vào tệp E:Bai1.Inp.
- Đóng tệp.
- Nhập a, b
- Khai báo;
Program Bai2;
Var Tep2 :Text ; S :String ;
Begin
Assign(Tep2,’E:Bai1.Inp’) ;
Reset(Tep2) ;
Readln(tep2, S) ;
Write(`Noi dung tep la: `,S) ;
Close(tep2) ;
Readln
End.
- Gắn tên tệp
- Mở tệp ra để đọc;
Bài 2: D?c n?i dung t?p E:Bai1.inp
Các bước:
Thể hiện bằng pascal
- D?c d? li?u t? t?p
- Dúng t?p