Bài 1. Cho tệp văn bản input.txt gồm nhiều dòng. dòng đầu tiên ghi số nguyên dương N, N dòng tiếp theo, mỗi dòng ghi một số nguyên không lớn hơn 10000. a. Đọc dữ liệu từ tệp, đếm xem có bao nhiêu số dương chẵn. b. Đọc dữ liệu từ tệp, sắp xếp N số theo thứ tự tăng dần rồi ghi kết quả vào tệp output.txt. Ai biết làm giúp mk vớii
Cho tệp input.txt gồm nhiều dòng , mỗi dòng chứa 1 số nguyên . Hãy ghi ra tệp soạn.txt các số nguyên âm có trong tệp input.txt, mỗi số trên 1 dòng
const fi='input.txt'
fo='soan.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n: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]);
end;
for i:=1 to n do
if a[i]<0 then writeln(f2,a[i]:4);
close(f1);
close(f2);
end.
Viết chương trình đọc từ tệp văn bản 'INPUT.TXT' 2 dòng
Dòng đầu tiên chứa số nguyên n là chỉ số phần tử
Dòng tiếp theo chứa n số nguyên, các số cách nhau 1 khoảng cách và không có kí hiệu xuống dòng
Tính và in ra màn hình tích các số lẻ đọc được trong n số đó
Cho một tệp có tên input.txt. tệp input chứa nhiều dòng, mỗi dòng là 3 số thực, cách nhau bởi dấu cách. Viết chương trình:
a) Tính tổng số thực trên mỗi dòng trong tệp input.txt
b) Tính trung bình cộng các số thực trên mỗi dòng trong tệp input.txt
uses crt;
const fi='input.txt'
var f1:text;
a,b,c:array[1..100]of real;
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],c[n]);
end;
for i:=1 to n do
writeln('Tong cua dong ',i,' la: ',a[i]+b[i]+c[i]:4:2);
for i:=1 to n do
writeln('Trung binh cong cua dong ',i,' la: ',(a[i]+b[i]+c[i])/3:4:2);
close(f1);
readln;
end.
Viết chương trình và sử dụng chương trình con đọc dữ liệu từ tệp input.txt chứa dãy số nguyên trên một dòng. Các số cách nhau một khoảng trắng
Tính tổng dãy số trong tập input.txt rồi ghi kết quả tổng này vào tập output.txt
Giúp em với ạ. Em cảm ơn
const fi='input.txt'
fo='output.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
write(f2,t);
close(f1);
close(f2);
end.
1. Tệp Dulieu.txt có một dòng chứa các số nguyên (cách nhau khoảng trắng). Viết chương trình kiểm tra và đưa vào tệp Ketqua.txt những số nguyên dương chẵn trên cùng một dòng và cách nhau một khoảng trắng. 2.Viết chương trình nhập vào một mảng số nguyên, tínhvà đưa ra màn hình tổng của các số không âm có trong mảng.Yêu cầu sử dụng chương trình con để viết các thủ tục nhập, xuất mảng và hàm để tính tổng.
1:
const fi='Dulieu.txt'
fo='ketqua.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2=0) then write(f2,a[i]:4);
close(f1);
close(f2);
end.
P/s: Cái này mình viết chương trình chính thôi nhé, còn hàm và thủ tục bạn tự viết nhé(chỉ cần lấy ý tưởng trong chương trình chính ra viết là được rồi)
2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]>=0 then t:=t+a[i];
writeln(t);
readln;
end.
Bài 1. Viết chương trình đọc dữ liệu vào từ tập tin DOC.INP như sau: − Dòng 1: Số nguyên dương n (n ≤ 255) − Dòng 2: Gồm n số nguyên nằm trên một dòng, mỗi số cách nhau một khoảng trắng. (các số nguyên thuộc khoảng từ -2 15 đến 215 -1) Yêu cầu: a) Tìm số nhỏ nhất (Min) có trong tập tin. Ví dụ: DOC.INP KQ.OUT
uses crt;
const fi='doc.inp'
var f1:text;
n,i:integer;
a:array[1..255]of integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
min:=a[1];
for i:=1 to n do
if min>=a[i] then min:=a[i];
writeln(min);
close(f1);
readln;
end.
Bài 1: Viết một hàm kiểm tra tính chẵn, lẻ của một số nguyên. Đọc dữ liệu từ file “input.txt” có cấu trúc gồm Dòng đầu chứa một số nguyên dương 𝑛 ; (1 < 𝑛 ≤ 1000). - 𝑛 dòng kế tiếp, dòng thứ 𝑖 ghi một số nguyên dương 𝑎𝑖 nhỏ hơn 106 . Xuất ra file “output.txt” 𝑛 dòng, dòng 𝑖 ghi “so chan” nếu 𝑎𝑖 chẵn và ghi “so le” nếu 𝑎𝑖 là số lẻ