... trúc thư mục: hướng dẫn HS tạo thư mục kiểu trường học (TRUONG THPT/ KHOI/ LOP/ TEN LOP…); tệpBAI HAT /Viet Nam (Dan ca; nhac tre; …); Quoc te/ … Phần 5: Tạo tệp văn tên HS lớp, nhạc ưa thích…...
... trúc thư mục: hướng dẫn HS tạo thư mục kiểu trường học (TRUONG THPT/ KHOI/ LOP/ TEN LOP…); tệpBAI HAT /Viet Nam (Dan ca; nhac tre; …); Quoc te/ … Phần 5: Tạo tệp văn tên HS lớp, nhạc ưa thích…...
... tep : TEXT; d : real; x,y : Integer; BEGIN Clrscr; ASSIGN (tep, ‘TRAI.INP’); RESET (tep) ; While not eof (tep) Begin read (tep, x,y) ; d:=sqrt(x*x+y*y); Writeln(‘Khoang cach:’,d:10:2); End; Close (tep) ; ... Program Vidu2; Uses crt; Var tep: TEXT; a,b: Integer; Begin Clrscr; ASSIGN (tep, 'D:\TP\Songuyen.txt’); RESET (tep) ; Begin Readln (tep, a,b); Writeln(a,b); End; Close (tep) ; Readln; GV: Chia nhỏ toán ... ASSIGN (tep, 'D:\Songuyen.txt’); cho đúng? REWRITE (tep) ; GV: Yêu cầu toán ghi số a, b vào tệp Write(‘Nhap so a , b '); ’Songuyen.text’ Vậy em cho Thầy biết câu Readln(a,b); lệnh ghi tệp? Write (tep, a,b);...
... THAO TÁC VỚITỆP * Khai báo tệp văn bản: Tệp văn khai báo trực tiếp phần khai báo biến: Var :Text; * Mở tệp để ghi liệu: Để mở tệp chuẩn bị lưu trữ liệu, ta sử dụng thủ tục chuẩn sau đây: ... tệp khai báo sau từ khóa VAR Tên tệp: Là tên ta chọn để ghi liệu vào đĩa Ví dụ : ASSIGN(f, ‘a:\baitap.txt’); REWRITE(f); {khởi tạo tệp rỗng} Sau thủ tục trên, để tiến hành ghi liệu vào tệp ta ... tệp khai báo sau từ khóa VAR Tên tệp: Là tên ta chọn để ghi liệu vào đĩa Ví dụ : ASSIGN(f, ‘a:\baitap.txt’); RESET(f); Sau thủ tục trên, để tiến hành đọc liệu vào tệp ta dùng thủ tục READ(…),...
... vào tệp có tên BAITAP.INP Thể pascal Các b ớc: - Khai báo; Program bai1 ; Uses crt; Var tep2 : TEXT; A:ARRAY[1 100] of Integer; i,n:Integer; Begin Clrscr; - Gán tên tệp; ASSIGN (tep2 , 'C:\DULIEU.INP); ... Nội dung tệp BAITAP.INP Bài 2: Mở tệp BAITAP.INP, in dãy số tệp hình Tính tổng dãy số Các b ớc: - Khai báo; - Gán tên tệp; - Mở tệp để đọc; Thể pascal Program Bai2 ; Uses crt; Var tep: TEXT; A:ARRAY[1 ... S,i,n:Integer; Begin Clrscr; ASSIGN (tep, 'D:\TP\BAITAP.INP); RESET (tep) ; - Gán tổng dãy = 0; - Dãy số nguyên số, nhng đọc đợc cách dùng hàm EOF(tên biến tệp); - Đọc liệu BAITAP.INP; từ file - In hình...
... THỂ HIỆN BẰNG PASCAL Program vd1; Uses crt; Var tep : TEXT; d : real; x,y : Integer; BEGIN Clrscr; ASSIGN (tep, ‘TRAI.INP’); - Mở tệp để đọc; RESET (tep) ; - Đọc tọa độ file, lần đọc số - Đóng tệp ... d:=sqrt(x*x+y*y); Writeln(‘Khoang cach: ’,d:10:2); End; Close (tep) ; Readln; END TRAI.INP 234512 Nhấn F3 để mở tệp BAITAP.INP xem nội dung Nội dung BAITAP.INP tệp Ví dụ 2: Tính điện trở tương đương Cho...