cho 2 số nguyên a và b chứa trong tệp dulieu. dat. Lập trình để tính thương số t=a/b đưa kết quả vào tệp ketqua. dat
CHo tệp DULIEU TXT gồm nhiều dòng mỗi dòng gồm 2 số nguyên x và y. Đọc dữ liệu từ tệp vào ghi ra tệp KETQUA TXT số nhỏ hơn trong 2 số,mỗi số ghi trên 1 dòng.
const fi='dulieu.txt'
fo='ketqua.txt'
var f1,f2:text;
a,b:array[1..100]of integer;
n,i: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;
for i:=1 to n do
begin
if (a[i]<b[i]) then writeln(f2,a[i])
else writeln(f2,b[i]);
end;
close(f1);
close(f2);
end.
Cho tệp kiemtra.txt chứa 3 số nguyên, mỗi số nằm trên một dòng. Hãy viết chương trình đọc 3 số nguyên từ tệp kiemtra.txt và đưa vào 3 biến a, b, c. Tính và đưa ra màn hình kết quả (a+b)(a+c)(c*b). Giúp e vs mn ơi
uses crt;
const fi='kiemtra.txt'
var f1:text;
a,b,c:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a);
readln(f1,b);
readln(f1,c);
writeln((a+b)*(a+c)*(c+b));
close(f1);
readln;
end.
Cho tệp kiemtra.txt chứa 3 số nguyên, mỗi số nằm trên một dòng. Hãy viết chương trình đọc 3 số nguyên từ tệp kiemtra.txt và đưa vào 3 biến a, b, c. Tính và đưa ra màn hình kết quả (a+b),(a+c),(c*b). Giúp e vs mn ơi
uses crt;
const fi='kiemtra.txt'
var f1:text;
a,b,c:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c);
writeln((a+b)*(a+c)*(b+c));
close(f1);
readln;
end.
Đọc dữ liệu từ tệp Dl. Dat chứa các số nguyên. Loại bỏ các số âm có trong dãy Đếm trong dãy có bao nhiêu số bằng 10 sau khi loại bỏ. Kết quả ghi vào tệp Dl. Dat
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
freopen("dl.inp","r",stdin);
freopen("dl.dat","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
dem=0;
for (i=1; i<=n; i++)
if (a[i]==10) dem++;
cout<<dem;
return 0;
}
cho tệp songuyen.inp chứa dãy các số nguyên ( mỗi số cách nhau một dấu cách). Đọc dữ liệu từ tệp đã cho và
a) Tính tổng các số lẻ trong tệp và đưa kết quả lên màn hình.
b) tính tổng các số lẻ trong tệp và ghi kết quả vào tệp songuyen2
c) đưa ra màn hình các số lẻ trong tệp
uses crt;
const fi='songuyen.inp'
fo='songuyen2.out'
var a:array[1..100]of integer;
i,n,t1:integer;
f1,f2:text;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t1:=0;
for i:=1 to n do if a[i] mod 2<>0 then t1:=t1+a[i];
writeln(t1);
writeln(f2,t1);
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
close(f1);
close(f2);
readln;
end.
Cho tệp văn bản tbc.inp chứa 4 số nguyên a,b,c,d . Viết phương trình đọc 4 số nguyên từ tệp tbc.inp và tính trung bình cộng của 4 số nguyên đó. Kết quả thu được cho vào tệp tbc.out
code c++:
#include <iostream>
using namespace std;
int main()
{
freopen("tbc.inp","r",stdin);
freopen("tbc.out","w",stdout);
int a,b,c,d;
cin>>a>>b>>c>>d;
float r;
r=(a+b+c+d)/4;
cout<<r<<endl;
return 0;
}
code pascal:
Giả sử có bốn số nguyên lưu trong tệp DỮ LIEU.TXT.Hãy viết một chương trình mở tệp đã cho để tính tích của bốn số nguyên đó và đưa kết quả ra màn hình
uses crt;
const fi='dulieu.txt'
var f1:text;
a,b,c,d:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d);
writeln(a*b*c*d);
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
cho tệp SONGUYEN.INP, chứa một dãy số nguyên bất kì:
Viết chương trình pascal: Tính tổng các số chẵn trong dãy số nguyên đó. kết quả ghi vào tệp TONG.OUT.
const fi='songuyen.inp'
fo='tong.out'
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 eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.