const fi='dulieu.txt';
fo='tong.doc';
var f1,f2:text;
n,i,s:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(f2,s);
close(f1);
close(f2);
end.
Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .
BA1.INP. BAI1.OUT
6. 9
Bài toán " cho tệp văn bản Input.txt có chứa N số nguyên . Kiểm tra số đó là số âm hay số dương rồi ghi kết quả vào tệp Output.txt. Hãy viết phần khai báo cho bài toán trên .
Nhập số nguyên dương N(N<=100).viết chương trình tính tổng các số chia hết cho 5 trong phạm vi của N và lưu hay ghi trong tệp 'tong5.Txt' sao cho dòng đầu ghi số nguyên N dòng 2 ghi kết quả vừa tính đc
Viết chương trình nhập 3 số nguyên từ bàn phím. Ghi giá trị 3 số nguyên đó vào tệp có tên dulieuvao.txt
Đọc dữ liệu từ tệp vào ba biến x, y, z, tính tổng T=x+y+x và lưu giá trị của tổng vào tệp dulieura.txt
Câu 24. Trong pascal, cho đoạn chương trình:Assign(f1,‟Input.dat‟); Reset(f1);
While not eoln(f1) do
Begin
Read(f1,x);Write(x, ‘ ');
End;
Close(f1);
A. Xuất dữ liệu trong tệp Input.dat ra màn hình; B. Ghi dữ liệu vào tệp Input.dat;
C. Gắn tên tệp Input.Dat cho biến tệp f1; D. Mở tệp Input.dat để đọc;
Câu 25. Đoạn chương trình sau thực hiện: Assign(f1,‟Input.dat‟); Assign(f2,‟Output.dat‟); Reset(f1); Rewrite(f2);
While not EOF(f1) do
Begin
Read(f1,x); Write(f2,x,’ ’);
End;
Close(f1);
Close(f2);
Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên cùng một dòng.
B.Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên nhiều dòng.
Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Input.dat trên nhiều dòng.
Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Intput.dat trên cùng một dòng.
Câu 26. Cho tệp B13.TXT chỉ có một dòng „abcdefgh‟ và chương trình sau: Var f:text; S1:string[3]; S2:string;
Begin
Assign(f,’B13.TXT’);
Reset(f);
Read(f,S2,S1);
Readln
End.
Sau khi chạy chương trình trên thì S1,S2 có kết quả là
a. S1=’absdefgh’; S2=’ ’
b. S1=’ ’; S2=’abcdefgh’
c. S1=’abcde’;S2=’fgh’
d. Cả a,b,c sai
cho tệp songuyen.txt gồm n phần tử ,các số được nhập cách nhau một dấu cách.Tìm những số chẵn trong dãy số trên rồi ghi vào tệp ketqua.txt
Bài tập: viết chương trình đọc dữ liệu từ tệp tamgiac.
Inp bao gồm 1 dòng duy nhất chứa 1 số nguyên dương.
Tìm độ dài 3 cạnh của tam giác có chu vi bằng x và diện tích của các tam giác đó.
Kết quả ghi vào tệp tamgiac. Out.
( loại trừ các tam giác có diện tích trùng nhau)
Cho tệp văn bản HCN.INP gồm nhiều dòng, mỗi dòng chứa 2 số nguyên (các số cách nhau ít nhất một dấu cách) tương ứng là chiều dài và chiều rộng của một hình chữ nhật. Lập trình đọc dữ liệu từ tệp này, tính chu vi và diện tích hình chữ nhật. Kết quả ghi ra tệp HCN.OUT, mỗi dòng ghi hai giá trị tương ứng là chu vi và diện tích của hình chữ nhật, các giá trị cách nhau ít nhất một dấu cách.
