tailieunhanh - Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 7

Tham khảo tài liệu 'giáo trình turbo pascal - lý thuyết, bài tập và lời giải part 7', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | TS. Bùi Thê Tâm 120 Giáo trình Turbo Pácal Thủ tục PackTỉme var T DateTime var Time longint nén thời gian ớ dạng bản ghi DateTíme sang dạng Longint. Thủ tục SetFTime var F Time longint đật lại ngày và giờ đã nén cho tệp. F cần phải được gán và đã mó. Chương trình xem thời gian tạo tệp và đặt lại. uses dos var ok integer ftime Longlnt dt newDT DateTime f file fnane string 30 begin write Vao ten tep readln fname assign f fnama - Reset f if IOResult 0 then Halt GetFTime f ftime UnPackTime ftime dt with dt do begin writein day 1 - month - year 1 writein hour 1 1 1 min sec 1 end writet Co dat lai thoi gian cho tep khong 1 0 readln ck if ck l then begin With newDT do begin write Ngay readln day write - Thang readin month writef - Nam r readin year write - Gio readln hour write - Phut readln min write Giay readin sec end PackTime newDT ftime SetFTime f ftime close f end end. 3. Xem khả năng của đĩa Hàm DiskFree Drive bvle long in t trá về sò byte còn trống trên ó dĩa chi định. Drive - 0 để chỉ ổ đĩa đang làm việc. 1 là ổ đĩa A. 2 là 6 đĩa B. 3 là ổ c. Giá trị trá về là -1 nếu số chỉ ổ đĩa là không hợp lệ. Hàm DiskSize Drive byte longint trà về cỡ cùa đĩa tính theo byte. Các giá trị cùa Drive như trong hàm DiskFrcc. Nếu số của đĩa không hợp lệ hàm cũng trà VC giá trị -1. Chương trình xem cỡ đĩa phần còn trống phấn đã sứ dụng. uses Dos var sl s2 longint d byte begin writeln Quy uoc 0 - o dia ngam dinh 1 1 - o A 2 - o B 3 - o C write Vao ten o dia readln d sl Disksize d div 1024 s2 DiskFree d div 1024 Writein Do lon dia Kbyte Writein Con trong s2 Kbyte Writein Da dung sl-s2 Kbyte readln end. TS. Bùi Thế Tâm 121 Giáo trình Turbo Pácal 7 0 4. Làm việc với thư mục và tệp Biến DosError integer dùng trong nhiều thường trình của unit DOS để chứa các lỗi. Các mã của biên Dos Error 0 - không có lỗi 2 - không tìm thấy tệp 3 không lìm thấy đường dản 5 - không thể truy nhập được 6 - con trỏ tệp không hợp lệ 8 -không dử bộ nhớ 10 - mói trường không hợp lệ. 11 -

crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.