Cho tệp D:\DuLieu.txt. gồm nhiều dòng, mỗi dòng chứa 2 số nguyên. VCT đọc các cặp số nguyên trong tệp đã cho và xuất ra màn hình tổng của từng cặp số tương ứng
Những câu hỏi liên quan
. Cho tệp D:\DuLieu.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên. Viết chương trình (VCT) đọc các cặp số nguyên trong tệp đã cho và xuất ra tệp D:\KetQua.txt, một dòng chứa số lớn nhất và một dòng số nhỏ nhất của từng cặp số tương ứng trong tệp D:\DuLieu.txt.
Xem chi tiết
const fi='dulieu.txt'
fo='ketqua.txt'
var f1,f2:text;
a,b,c,d:array[1..100]of integer;
i,n,dem,dem1:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n],b[n]);
end;
dem:=0;
dem1:=0;
for i:=1 to n do
if a[i]>b[i] then
begin
inc(dem);
inc(dem1);
c[dem]:=a[i];
d[dem]:=b[i];
end
else begin
inc(dem);
inc(dem1);
c[dem]:=b[i];
d[dem]:=a[i];
end;
for i:=1 to dem do
write(f2,c[i]:4);
writeln(f2);
for i:=1 to dem1 do
write(f2,d[i]:4);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
cho tệp Dulieu.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên. Viết chương trình đọc dữ liệu từ tệp Dulieu.txt rồi tìm GTNN của mỗi dòng, rồi hiển thị ra màn hình.
uses crt;
const fi='dulieu.txt'
var f1:text;
a,b:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
begin
if a[i]<b[i] then writeln(a[i])
else writeln(b[i]);
end;
readln;
end.
Đúng 1
Bình luận (0)
cho tẹp dulieu.txt gồm nhiều dòng, chứa 2 số nguyên. viết ct đọc dữ liệu từ tệp DULIEU.TXT tìm max mỗi dòng rồi đưa ra màn hình
uses crt;
const fi='dulieu.txt'
var f1:text;
a,b:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
if a[i]<b[i] then writeln(b[i])
else writeln(a[i]);
readln;
end.
Đúng 1
Bình luận (0)
Cho tệp 'input.txt' gồm nhiều dòng, mỗi dòng chứa từng cặp số nguyên a,b là hệ số của phương trình bâc nhất ax+b=0.Viết phương trình đọc các số nguyên từ tệp dữ liệu trên, tính và ghi vào tệp 'output.txt' nghiệm của ptb 1
uses crt;
const fi='input.txt'
fo='output.txt'
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
if (a=0) and (b=0) then writeln(f2,'Phuong trinh co vo so nghiem');
if (a<>0) then writeln(f2,-b/a:4:2);
if (a=0) and (b<>0) then writeln(f2,'Phuong trinh vo nghiem');
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
giả sử tệp "Dulieu.txt" có cấu trúc: Dòng 1 ghi 1 số nguyên N kiểu int; dòng 2 trở đi ghi dãy số thực A1, A2, ..., An. Yêu cầu đọc dữ liệu từ tệp, tính tổng các giá trị của dãy rồi xuất ra màn hình
uses crt;
const fi='dulieu.txt'
var f1:text;
a:array[1..100]of real;
t:real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Tệp “DL.TXT chứa 2 dòng:
- Dòng 1: chứa 1 số nguyên n là số phần tử có trong tệp
Dòng 2: chứa dãy n số nguyên, các số cách nhau ít nhất1 khoảng trắng.
a) Xuất ra màn hình các số dương có trong tệp.
b) Cho biết trong tệp có bao nhiêu số nguyên chẵn?
c) Ghi các số lẻ vào tệp “SOLE.TXT”.
d) Hãy tính tổng các số chẵn có trong tệp. Ghi kết quả ra màn hình.
e) Tính tổng các số dương rồi ghi kết quả vào tệp D:soduong.txt
f) Hãy ghi các số nguyên tố vào tệp “SNT.TXT”
g) Cho biết trong tệp có bao nhiê...
Đọc tiếp
Tệp “DL.TXT" chứa 2 dòng:
- Dòng 1: chứa 1 số nguyên n là số phần tử có trong tệp
Dòng 2: chứa dãy n số nguyên, các số cách nhau ít nhất1 khoảng trắng.
a) Xuất ra màn hình các số dương có trong tệp.
b) Cho biết trong tệp có bao nhiêu số nguyên chẵn?
c) Ghi các số lẻ vào tệp “SOLE.TXT”.
d) Hãy tính tổng các số chẵn có trong tệp. Ghi kết quả ra màn hình.
e) Tính tổng các số dương rồi ghi kết quả vào tệp "D:\soduong.txt"
f) Hãy ghi các số nguyên tố vào tệp “SNT.TXT”
g) Cho biết trong tệp có bao nhiêu số nguyên tố?
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.
Đọc tiếp
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.
const fi='hcn.inp'
fo='hcn.out'
var f1,f2:text;
a,b:array[1..100]of integer;
i,j,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
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.mọi người ơi giúp em với ạ
Đọc tiếp
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.
mọi người ơi giúp em với ạ
const fi='hcn.inp'
fo='hcn.out'
var f1,f2:text;
a,b:array[1..100]of integer;
i,j,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập dữ liệu từ tệp Dulieu.txt chứa các số nguyên. Tính tổng giá trị các số có trong tệp và xuất kết quả ra màn hình