Bài 16. Ví dụ làm việc với tệp

Đăng nhập

Tin tức cộng đồng

Tin tức thư viện

Chức năng Dừng xem quảng cáo trên violet.vn

Kính chào các thầy, cô! Hiện tại, kinh phí duy trì hệ thống dựa chủ yếu vào việc đặt quảng cáo trên hệ thống. Tuy nhiên, đôi khi có gây một số trở ngại đối với thầy, cô khi truy cập. Vì vậy, để thuận tiện trong việc sử dụng thư viện hệ thống đã cung cấp chức năng...

Khắc phục hiện tượng không xuất hiện menu Bộ công cụ Violet trên PowerPoint và Word

Thử nghiệm Hệ thống Kiểm tra Trực tuyến ViOLET Giai đoạn 1

Xem tiếp

Hướng dẫn sử dụng thư viện

Đưa bài giảng lên

Gốc > THPT (Chương trình cũ) > Tin học > Tin học 11 >

0 / 0

Tham khảo cùng nội dung: Bài giảng, Giáo án, E-learning, Bài mẫu, Sách giáo khoa, ...

Nhấn vào đây để tải về
Báo tài liệu có sai sót
Nhắn tin cho tác giả

(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: nguyễn Thị Thu Hiền
Ngày gửi: 15h:48' 11-11-2021
Dung lượng: 1.2 MB
Số lượt tải: 241

Số lượt thích: 0 người

SỞ GÁO DỤC VÀ ĐÀO TẠO THÁI NGUYÊN
TRƯỜNG THPT LÝ NAM ĐẾ
BÀI GIẢNG MÔN TIN HỌC LỚP 11
BÀI 16: VÍ DỤ VỀ LÀM VIỆC VỚI TỆP
Assign(,);
Reset();
Read(,);
ReWrite();
Write(,);
Close();
Ví dụ 1:
Một trường trung học cho giáo viên và học sinh đi cắm trại, sinh hoạt ngoài trời vườn quốc gia Cúc phương. Để lên lịch đến thăm trại các lớp thầy hiệu trưởng cần biết khoảng cách từ trại của mình (toạ độ (0,0)) đến trại các giáo viên chủ nhiệm. Mỗi lớp có một khu trại, vị trí trại của mỗi giáo viên chủ nhiệm đều có toạ độ nguyên (x,y) được ghi trong tệp văn bản TRAI.TXT (như vậy tệp TRAI.TXT chứa liên tiếp các cặp số nguyên cách nhau bởi dấu cách).
Tính và đưa ra màn hình khoảng cách giữa trại của mỗi giáo viên chủ nhiệm và trại của thầy hiệu trưởng?

Hu?ng d?n:
Cụng th?c tớnh kho?ng cỏch gi?a 2 di?m khi bi?t to? d? c?a nú.
D? d�i d c?a do?n th?ng n?i 2 di?m cú to? d? (x,y) v� (u,v) trong m?t ph?ng du?c tớnh theo cụng th?c:
Công thức tính khoảng cách từ trại thầy Hiệu trưởng có tọa độ (0,0) tới trại các lớp có tọa độ (x,y)?
Xác định bài toán
Input:
+ Tọa độ trại Hiệu trưởng O(0,0)
+ Tệp TRAI.TXT chứa các cặp số nguyên (x,y) liên tiếp.
Output:
+ Khoảng cách từ trại Thầy Hiệu trưởng tới trại các lớp
Thuật toán
B1. Nếu hết tệp TRAI.TXT thì kết thúc thuật toán;
B2. Đọc giá trị x, y từ tệp TRAI.TXT;
B3. Tính và in khoảng cách d:= Sqrt(x*x+y*y);
B4. Quay lại B1.
Chương trình
Program khoang_cach;
var
d: real;
f: text;
x,y: integer;
Begin
assign(f,`Trai.txt`);
reset(f);
while not eof(f) do
Begin
read(f,x,y);
d:= sqrt(x*x+y*y);
writeln(`Khoang cach: `, d:10:2);
end;
Close(f);
readln;
end.
A
Khai báo nào sau đây hợp lệ?
Var f1,f2:text;
Var f1:f2:text;
Var f1,f2 text;
1
Assign(,);
Thao tác để gắn tên tệp có cấu trúc?
2

Sai
Câu lệnh sau đúng hay sai?
Reset()
3
Tại sao cần có thủ tục đóng tệp?
Để hoàn thiện quá trình đọc/ghi dữ liệu từ tệp
4
Viết chương trình tính diện tích các hình chữ nhật. Biết chiều dài (a) và chiều rộng (b) của các hình chữ nhật là các cặp số nguyên liên tiếp cách nhau bởi dấu cách lưu trong têp BT.txt.
BÀI HỌC ĐẾN ĐÂY LÀ KẾT THÚC
Chúc các em học tốt!