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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trung Kiên Lưu

cho tệp DataIn.txt chứa liên tiếp các số nguyên dương và âm, các số trên cùng một dòng ngăn cách nhau bởi dấu cách. viết chương trình đọc các số vào chương trình pascal và tính tổng rồi ghi ra DataOut.txt

xin giúp đỡ ạ

Vương Hương Giang
16 tháng 1 2022 lúc 11:52

const fi='dulieu.txt'
fo='ketqua.txt'
var i,t:integer;
f1,f2:text;
a:array[1..9]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 9 do
begin
read(f1,a[i]);
t:=t+a[i];
end;
writeln(f2,t);
close(f1);
close(f2);
end.

Trung Kiên Lưu
16 tháng 1 2022 lúc 12:12

s

Nguyễn Lê Phước Thịnh
16 tháng 1 2022 lúc 13:36

const fi='dataln.txt'

fo='dataout.txt'

var f1,f2:text;

x,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

t:=0;

for i:=1 to 24 do 

begin

read(f1,x);

t:=t+x;

end;

writeln(f2,t);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Trung Kiên Lưu
Xem chi tiết
Tran Ngô
Xem chi tiết
Dương Hữu Thành
Xem chi tiết
Phạm Đức Huy
Xem chi tiết
lê khánh huyền
Xem chi tiết
Lê Thị Hồng Trang
Xem chi tiết
Exo Aeri
Xem chi tiết
Trinh Trinh
Xem chi tiết
Dư Dư
Xem chi tiết