const fi='bt.txt';
fo='kt.txt';
var f1,f2:text;
a,b,c,tbc:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
tbc:=(a+b+c)/3;
writeln(f2,tbc:4:2);
close(f1);
close(f2);
end.
Bài 16: Ví dụ làm việc với tệp
Các câu hỏi tương tự
Cho tệp BT.TXT chứa 3 số nguyên liên tiếp trên 1 dòng. Viết chương trình đọc dữ liệu từ tệp BT.TXT, tính tổng các số trên cùng 1 dòng; ghi tổng của các dòng vào tệp KQ.txt
HƯỚNG DẪN
Các bước thực hiện bài toán ?
1. Gắn tệp BT.TXT, KQ.TXT vào các biến tệp
2. Mở tệp BT.TXT để đọc và mở tệp KQ.TXT để ghi
3. Nếu chưa cuối tệp BT.TXT thì thực hiện
3.1. Đọc dữ liệu từ tệp gắn vào biến x, y, z
3.2. tß x+y+z
3.3. Ghi t vào tệp KQ.TXT trên 1 dòng
4. Đóng các tệp
Đọc tiếp
Cho tệp BT.TXT chứa 3 số nguyên liên tiếp trên 1 dòng. Viết chương trình đọc dữ liệu từ tệp BT.TXT, tính tổng các số trên cùng 1 dòng; ghi tổng của các dòng vào tệp KQ.txt
HƯỚNG DẪN
Các bước thực hiện bài toán ?
1. Gắn tệp BT.TXT, KQ.TXT vào các biến tệp
2. Mở tệp BT.TXT để đọc và mở tệp KQ.TXT để ghi
3. Nếu chưa cuối tệp BT.TXT thì thực hiện
3.1. Đọc dữ liệu từ tệp gắn vào biến x, y, z
3.2. tß x+y+z
3.3. Ghi t vào tệp KQ.TXT trên 1 dòng
4. Đóng các tệp
giả sử trên đĩa E có tệp SO.INP chứa nhiều dòng dữ liệu, mỗi dòng chứa hai số nguyên cách nhau bởi dấu cách. hãy viết chương trình đọc ra mỗi dòng dữ liệu trong tệp SO.INP, sau đó tính trung bình cộng của mỗi dòng và hiển thị kết quả trung bình cộng ra màn hình tương ứng với mỗi dòng dữ liệu? Mn giúp mik vs
Viết chương trình đọc từ tệp Dữ liệu.int chứa 2 số nguyên bất kì . Tính và ghi kết quả vào tệp Kết quả.out 2 dòng , dòng đầu ghi giá trị tổng 2 số , dòng thứ 2 ghi giá trị trung bình của 2 số đó
Cho tệp INPUT.INP có chứa 2 số nguyên a và b. Viết chương trình đọc dữ liệu từ tệp INPUT.INP và ghi vào tệp OUTPUT.OUT số nhỏ nhất của 2 số nguyên này
Cho tệp ăn.txt chứa dãy các số nguyên liên tiếp viết cách nhau 1 dấu cách .viết CT đọc dữ liệu từ tệp txt tính tổng các số chẵn và tổng các số lẻ ghi kết quả vào tập kq.txt trên 2 dòng
1. Tệp 'DL.doc' trên đĩa D chỉ chứa 2 số nguyên a, b (Mỗi số nằm trên 1 dòng).
a) Viết chương trình đọc dữ liệu từ tệp 'DL.doc', in kết quả ra màn hình.
b)Viết chương trình đọc dữ liệu từ tệp 'DL.doc', ghi vào tệp 'TB.doc' trung bình cộng của 2 số a,b.
cho tệp SONGUYEN.INP chứa 3 số nguyên a,b,c có kiểu dữ liệu kiểu long long. tìm giá trị lớn nhất của 3 số trên và ghi kết quả vào tệp lonnhat.out
Ai giúp em với ạ.
Câu 1: cho tệp mang .txt có nội dung là 4 số nguyên như sau: 1 3 2 1. Hãy viết chương trình đọc dữ liệu từ tệp này. Tính tổng các giá trị đọc được. Ghi giá trị đọc được từ tệp mang.txt và tổng này vào tệp tong.txt
Câu 2: Viết chương trình thực hiện các công việc sau:
- đọc ba số a,b,c từ tệp ptb2.txt
- giải phương trình bậc 2 với hệ số a b c vừa đọc được
- ghi kết quả giải phương trình bậc 2 vào tệp ketqua.txt
Câu 5: Cho file dulieu.dat gồm hai dòng, mỗi dòng chứa hai số...
Đọc tiếp
Ai giúp em với ạ.
Câu 1: cho tệp mang .txt có nội dung là 4 số nguyên như sau: 1 3 2 1. Hãy viết chương trình đọc dữ liệu từ tệp này. Tính tổng các giá trị đọc được. Ghi giá trị đọc được từ tệp mang.txt và tổng này vào tệp tong.txt
Câu 2: Viết chương trình thực hiện các công việc sau:
- đọc ba số a,b,c từ tệp ptb2.txt
- giải phương trình bậc 2 với hệ số a b c vừa đọc được
- ghi kết quả giải phương trình bậc 2 vào tệp ketqua.txt
Câu 5: Cho file dulieu.dat gồm hai dòng, mỗi dòng chứa hai số nguyên. ghi lên file tb.dat từ giá trị trung bình cộng của các số trên file dulieu.dat
cho tệp Data.txt chứa liên tiếp các số nguyên, mỗi số trên 1 dòng. viết chương trình đọc các số vào chương trình pascal và tính trùng bình cộng các số đó. ghi kết quả vào TBC.txt