GIAI BAI TAP THUC HANH 6

.Chương 5: THAO TÁC VỚI TỆPBài tập chương 1. Một số trường hợp phải dùng tệp: luu trữ lượng thông tin lớn, dùng lâu dài, ít thay đổi như tên người trong một cơ quan, hồ sơ của sinh viên, lương cán bộ,.... 2. Trong sơ đồ thao tác với tệp, khi cần nhập dữ liệu từ tệp phải dùng những thao tác như gắn tên tệp, mở tệp để ghi, ghi dữ liệu vào tệp, đóng tệp để hoàn tất việc ghi dữ liệu Assign(f,f1); Rewrite(f); Write(f,x,’ ‘,y,’ ‘,z); {ghi giá trị các biến , y, z vào tệp} Close(f); 3. Phải mở tệp trước khi đọc tệp vì trước khi sử dụng tệp phải có câu lệnh mở tệp để trình dịch biết thực hiện mục đích mở tệp để đọc hay ghi, đồng thời đặt con trỏ, tệp vào vị trí thích hợp 4. Phải dùng lệnh đóng tệp sau khi đã kết thúc ghi dữ liệu vào tệp để hệ thống hoàn tất việc ghi dữ liệu ra tệp. Không có câu lệnh đóng tệp thì chương trình sẽ không thể ghi được dữ liệu vào tệp.Chương 6: CHƯƠNG TRÌNH CON VÀ LẬP TRÌNH CÓ CẤU TRÚCBài Thực Hành Số 6 ----------------- -----------------***** ***** *****----------------- ----------------- Chuong trình program thuchanh6; uses crt; type str = string[79]; var S1, S2:str; dong:byte; dung:boolean; procedure catdan(s1:str; var s2: str); begin s2:=copy(s1,2,length(s1)-1)+S1[1]; end; procedure cangiua(var s:str); var n, i:integer; begin n:=length(s); n:=(80-n) div 2; for i:=1 to n do s:=` `+s; end; procedure chuchay(s1:str; dong:byte); var s2:str; dung:boolean; begin clrscr; cangiua(s1); clrscr; dung:=false; while not(dung) do begin gotoxy(1,dong); write(s1); delay(100); catdan(s1,s2); s1:=s2; dung:=keypressed; end; end; begin clrscr; write(`Nhap xau :’);readln(s1); write(`Nhap dong: `);readln(dong); chuchay(s1,dong); readln end.