Tin học 11 Bài 16 (sách mới)

---

---

Trọn bộ lời giải Tin 11 Bài 16 sách mới Kết nối tri thức, Cánh diều, Chân trời sáng tạo hay, chi tiết giúp học sinh lớp 11 dễ dàng làm bài tập Tin học 11 Bài 16.

Giải Tin 11 Bài 16 (sách mới)

Giải Tin 11 Bài 16 Kết nối tri thức

• (Kết nối tri thức) Giải Tin 11 Bài 16: Công việc quản trị cơ sở dữ liệu

  Xem lời giải

Giải Tin 11 Bài 16 Chân trời sáng tạo

Môn Tin 11 Chân trời sáng tạo sẽ học chung sách với môn Tin học 11 bộ sách Kết nối tri thức. Bên cạnh đó, trường THPT tùy thuộc vào trang thiết bị và đội ngũ Giáo viên còn có thể chọn sách Tin học 11 Cánh diều.

Giải Tin 11 Bài 16 Cánh diều

---

---

---

Lưu trữ: Giải Tin 11 Bài 16: Ví dụ làm việc với tệp (sách cũ)

Ví dụ 1:

Một trường trung học phổ thông tổ chức cho giáo viên và học sinh của trường đ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 khu 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 (ở vị trí có tọa độ (0,0) )đến trại của 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ó tọa độ 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ác số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng).

Trả lời:

Ta sử dụng hàm eof để kiểm tra xem đã đọc hết tệp hay chưa (Hàm này giới thiệu ở bài trước).

Sau đó lần lượt đọc 2 số nguyên ra rồi tính khoảng cách của điểm (x,y) đến điểm (0,0) bằng công thức

Kc = √(x² + y² )

program kc;
uses crt;
var
	d:real;
	f:text;
	x,y:integer;
begin
	clrscr;
	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);
	readkey;
end.

Kết quả:

File TRAI.TXT

Kết quả in ra màn hình

Ví dụ 2: Tính điện trở tương đương:

Cho ba điện trở R1,R2,R3. Sử dụng cả ba điện trở để tạo ra năm mạch điện có điện trở tương đương khác nhau bằng cách mắc theo các sơ đồ nêu ở hình 17.

Mỗi cách mắc sẽ cho một điện trở tương đương khác nhau.

Cho tệp văn bản RESIST.DAT gồm nhiều dòng, mỗi dòng chưa ba số thực R1, R2, R3, các số cách nhau một dấu cách, 0<R1, R2, R3 <=10⁵.

Chương trình đọc dữ liệu từ tệp RESIST.DAT và RESIST.EQU, mỗi dòng ghi năm điện trở tương đương của ba điện trở ở dòng dữ liệu vào tương ứng.

Trả lời:

program dientro;
uses crt;
var 
	a:array[1..5] of real;
	R1,R2,R3:real;
	i:integer;
	f1,f2:text;
begin
	assign(f1,'RESIST.DAT');
	reset(f1);
	assign(f2,'RESIST.EQU');
	rewrite(f2);	
	while not eof(f1) do
	begin
		readln(f1,R1,R2,R3);
		a[1] :=R1*R2*R3/ (R1*R2+R1*R3+R2*R3); a[2]:=R1*R2/(R1+R2)+R3;
		a[3]:=R1*R3/(R1+R3)+R2;
		a [4] :=R2 *R3/(R2+R3)+R1;
		a[5]:=R1+R2+R3;
		for i:= 1 to 5 do write (f2, a[i]:9:3, ' ');
		writeln(f2);
	end;
	close(f1);
	close(f2);
end.

Xem thêm các bài giải bài tập Tin học lớp 11 hay, chi tiết khác:

• Giải bài tập Tin học 11 trang 79,80
• Bài 14: Kiểu dữ liệu tệp
• Bài 15: Thao tác với tệp
• Bài 16: Ví dụ làm việc với tệp
• Giải bài tập Tin học 11 trang 89

---

---

---