muốn mở tệp vừa đọc vừa ghi thig dùng thủ tục nào?
Hãy ghép chức năng của các thủ tục chuẩn
Tên thủ tục chuẩn | Chức năng |
1. Thủ tục read(<danh sách biến>); | a. Nhập dự liệu từ bàn phím vào cho danh sach biến |
2. Thủ tục read(<biến tệp>,<danh sách biến>); | b. Đọc dữ liệu từ tệp ra danh sách biến |
3. Thủ tục write(<biến tệp>,<danh sách kết quả>); | c. Ghi ( đưa ) dạn sách kết quả vào tệp |
4. Thủ tục write(<danh sách kết quả>); | d. Đưa ra màn hình danh sách kết quả |
5. Thủ tục close(<biến tệp>); | e. Đóng tệp đã mở |
6. Thủ tục assign(<biến tệp>,<tên tệp>); | f. Gắn tên tệp với đại diện của nó(là 1 biến tệp) |
7. Thủ tục reset(<biến tệp>); | g. Mở tệp để đọc dữ liệu ra |
8. Thủ tục rewrite(<biến tệp>) | h. Mở tệp để ghi dữ liệu vào |
Hãy bắt đầu một phiên làm việc mới: Khởi động Logo, mở một tệp chương trình chứa các thủ tục đã viết (ví dụ tệp Baihoc1.lgo) bằng cách gõ lệnh (Load “Baihoc1.lgo). Xem nội dung và cách sắp xếp các thủ tục trong tệp này bằng cách nháy nút lệnh Edall. Viết thêm một thủ tục mới, thực hiện thủ tục này và ghi lại tệp với tên cũ. (Chú ý: Tránh mở nhiều tệp liên tiếp).
Hãy bắt đầu một phiên làm việc mới: Khởi động Logo, mở một tệp chương trình chứa các thủ tục đã viết (ví dụ tệp Baihoc2.lgo) bằng cách chọn File -> Load… và tìm tệp trong cửa sổ Open. Xem nội dung và cách sắp xếp các thủ tục trong tệp này bằng cách nháy nút lệnh Edall. Viết thêm một thủ tục mới, thực hiện thủ tục này và ghi lại tệp với tên cũ.
Viết chương trình đọc dữ liệu từ tệp input.pas (tệp có chứa 2 số nguyên cách nhau bởi dấu cách) và ghi vào tệp output.pas tích của hai số nguyên vừa đọc từ tệp input.pas
Program HOC24;
var f1,f2: text;
a,b: integer;
t: longint;
begin
assign(f1,'input.pas');
reset(f1);
assign(f2,'output.pas');
rewrite(f2);
readln(f1,a,b);
t:=a*b;
write(f2,t);
close(f1);
close(f2);
End.
Viết chương trình khi đã mở tệp chúng ta có thể dùng thủ tục Write hoặc Writeln để ghi dữ liệu vào tệp
Nội dung dữ liệu ghi vào tệp như sau:
Tep van ban
123 1.23400000E+02
Dòng trống
const fi='tepvanban.out';
var f1:text;
begin
assign(f1,fi); rewrite(f1);
writeln(f1,'123 1.23400000E+02');
close(f1);
end.
Câu 1: Viết chương trình tổng có 4 số nhập từ bàn phím trong đó có sử dụng chương trình con. Tính tổng của hai số.
Câu 2: Giả sử tệp DULIEU.DAT được tạo trên thư mục gốc ở ổ đĩa C, muốn mở tệp để đọc dữ liệu phải dùng những thủ tục nào?
Câu 1:
uses crt;
var a,b,c,d,t:integer;
{------------------------chuong-trinh-con-tinh-tong-cua-hai-so-----------------}
function tong(var x,y:integer):integer;
begin
tong:=x+y;
end;
{------------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
write('Nhap so thu tu: '); readln(d);
t:=tong(a,b)+tong(c,d);
writeln('Tong cua bon so la: ',t);
readln;
end.
Câu 2:
const fi='dulieu.dat';
assign(f1,fi); reset(f1);
giúp mik câu này với:
a. Muốn mở tệp vào văn bản đã lưu em chọn lệnh nào?
b.Lệnh ''repeat'' trong logo là lệnh gì?
c. Một thủ tục trong logo gồm mấy phần
d.Trong phần mềm logo,để tạo thủ tục hình tròn em gõ lệnh ?
e.Một thủ tục trong logo bắt đầu và kết thúc bởi?
h.Câu lệnh dùng để sao chép văn bản
g. Có thể tạo hiệu ứng chuyển động trong mấy cách?
i. Để chèn video và âm thanh vào bải trình chiếu em chon:
Tệp thủ tục có phần mở rộng là gì ?
a.Docx B.Pptx C.Png D.Lgo
Tệp thủ tục có phần mở rộng là gì ?
a.Docx B.Pptx C.Png D.Lgo
Bài 3-4: Thủ tục trong Logo - Nêu khái niệm thủ tục trong Logo. - Nêu các thành phần của thủ tục. - Cú pháp câu lệnh để mở cửa sổ soạn thảo thủ tục - Nêu quy tắc đặt tên cho thủ tục. - Nêu cú pháp câu lệnh để lưu lại các thủ tục trong Logo vào một tệp. - Nêu cú pháp câu lệnh để nạp tệp chứa các thủ tục để làm việc. - Nêu quy tắc đặt tên cho tệp. |