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
uses crt;
const fi='so.inp'
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
while not eof(f1) do
begin
readln(f1,a,b);
writeln((a+b)/2:4:2);
end;
close(f1);
readln;
end.
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.
cho tệp tinhtng.inp chứa
- dòng 1: 1 số nguyên dương n
- dòng 2: dây gầm n số nguyên (các số cách nhau 1 dấu cách)
yêu cầu tính tổng dây đã cho và ghi vào tệp tinhtong.out
Uses crt;
Var i,n,tong:integer;
a:array[1..10000] of integer;
f1,f2:text;
Begin
clrscr;
Assign(f1,'tinhtong.inp');
Assign(f2,'tinhtong.out');
tong:=0;
Reset(f1);readln(f1,n);
For i:= 1 to n do
Begin
read(f1,a[i]);
tong:=tong+a[i];
End;
close(f1);
rewrite(f2);
Writeln(f2,tong);
Readln;
End.
Cho tệp văn bản 'IN.PAS' có n + 1 dòng
- Dòng đầu tiên chứa số nguyên n là chỉ số phần tử
- n dòng tiếp theo mỗi dòng chưa 1 số nguyên
Viết chương trình sử dụng để đọc và tính tổng các số nguyên lẻ trong n số nguyên đó .
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.
viết chương trình đọc dữ liệu từ file văn bản so.inp gồm 2 dòng. dòng 1 ghi số nguyên dương N (N<= 100).dòng 2 dãy A gồm n số nguyên dương: a1,a2,...,an.ghi ra file so.out các số chẵn trong dãy A
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
int main()
{
freopen("so.inp","r",stdin);
freopen("so.out","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
Cho 2 tệp văn bản nguyen1.TXT , nguyen2.TXT . Mỗi dòng của 2 tệp chứa 1 số nguyên . Hãy lập trình tạo tệp 1 văn bản chứa nguyen1.TXT , nguyen2TXT . Những dòng đầu tiên là các dòng của nguyen1.TXT , còn lại là nguyen2.TXT
const fi1='nguyen1.txt'
fi2='nguyen2.txt'
fo='nguyen.txt'
var f1,f2,f3:text;
a,b:array[1..100]of integer;
n,m,i:integer;
begin
assign(f1,fi1); reset(f1);
assign(f2,fi2); reset(f2);
assign(f3,fo); rewrite(f3);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n]);
end;
m:=0;
while not eof(f2) do
begin
m:=m+1;
readln(f1,b[m]);
end;
for i:=1 to n do
writeln(f3,a[i]);
for i:=1 to m do
writeln(f3,b[i]);
close(f1);
close(f2);
close(f3);
end.
Cho tệp dulieu.inp chứa các bộ số nguyên ( mỗi bộ ghi trên 1 dòng gồm 2 số nguyên cách nhau bởi 1 kí tự trống). Vt ctrinh đọc dữ liệu trong tệp trên rồi tính tổng của mỗi bộ số nguyên, ghi các kq vào tệp tong.out( mỗi kq trên 1 dòng ). Lưu ý có sd ctrinh con
tìm các số nguyên tố trong dãy số nguyên có n phấn tử a1, a2...an. dữ liệu vào đọc từ file nguyên tố.INP, gồm 2 dòng:
- dòng đầu chứa số nguyên dương n,n<= 250.
-dòng 2 chứa các phần tử của dãy số gồm a1, a2...an.
-dữ liệu ra ghi vào tệp nguyên tố .OUTP ,các phần tử là số nguyên tố nằm trên 1 dòng
giúp mình với ạ, mình cảm ơn!!
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,j;
bool kt;
int main()
{
freopen("nguyento.inp","r",stdin);
freopen("nguyento.out","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]>1)
{
kt=true;
for (j=2; j*j<=a[i]; j++)
if (a[i]%j==0) kt=false;
if (kt==true) cout<<a[i]<<" ";
}
return 0;
}
