Viết chương trình cho tệp dulieuvao.dat trong đó có chứa 5 dòng, mỗi dòng có nhiều số, mỗi số cách nhau một dấu cách. Em hãy tính tổng của mỗi dòng.
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.
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 dulieuvao.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên a, b. Các số cách nhau bởi dấu cách. Viết chương trình đọc dữ liệu từ tệp, tính trung bình cộng và ghi kết quả ra tệp dulieura
Viết chương trình nhập từ bàn phím 10 số nguyên ,hãy ghi 10 số nguyên đó vào tệp KQ.Txt . Hai dòng ,5 số trên 1 dòng , mỗi sôa cách nhau 1 dấu cách
uses crt;
const fi='kq.txt'
var a:array[1..10]of integer;
i,n:integer;
f1:text;
begin
clrscr;
n:=10;
for i:=1 to n do readln(a[i]);
assign(f1,fi); rewrite(f1);
for i:=1 to n do
begin
if (n%5<>0) then write(f1,a[i]:4);
else writeln(f1);
end;
close(f1);
readln;
end.
Cho tệp SN3.INP chứa n số nguyên dương (mỗi số cách nhau một dấu cách trên một dòng). Viết chương trình đọc dữ liệu từ tệp đã cho Tính ƯCLN dãy các số nguyên dương đó và lưu kết quả vào tệp UC.OUT .
#include <bits/stdc++.h>
using namespace std;
unsigned long long a[1000],i,n,uc;
//chuongtrinhcon
unsigned long long ucln(long long a,long long b)
{
if (b==0) return(a);
else return(ucln(b,a%b));
}
//chuongtrinhchinh
int main()
{
freopen("sn3.inp","r",stdin);
freopen("uc.out","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
uc=ucln(a[1],a[2]);
for (i=3; i<=n; i++)
uc=ucln(uc,a[i]);
cout<<uc;
return 0;
}
Viết chương trình đọc số liệu của dãy N số trong tệp DATA1.TXT. Sau đó ghi dữ liệu là các thông tin sau vào tệp KQ1.TXT: - Dòng 1: Tổng các số lẻ trong dãy? - Dòng 2: Danh sách các số dương chia cho 5 có trong dãy, mỗi số cách nhau 1 cách
Program HOC24;
var i,n: integer;
a: array[1..1000] of integer;
t: longint;
f1,f2: text;
const fi='DATA1.TXT'
fo='KQ1.TXT'
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
writeln(f2,t);
for i:=1 to n do if a[i] mod 5=0 then write(f2,a[i],' ');
close(f1); close(f2);
end.
Cho tệp 'dayso.in' chứa các dãy số nguyên A1, A2....,An mỗi dãy sô nằm trên 1 dòng. Viết chương trình tính tổng theo dòng trong tệp 'dayso.in' sau đó ghi các số tổng này lên tệp 'tong.out', mỗi số ghi trên một dòng
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.
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.