const fo='int.txt'
fo='out.txt'
var f1,f2:text;
m,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
readln(f1,n);
writeln(f2,m+n);
close(f1);
close(f2);
end.
Một file văn bản có tên D:\DSt.txt có chứa đúng 2 dòng ,mỗi dòng chỉ chứa 1 số nguyên. Viết chương trình đọc từ tệp trên và in ra màn hình tổng và giá trị tuyệt đối hiệu hai số. Giúp e với ạ 🙆♀️
uses crt;
const fi='dst.txt'
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a);
readln(f1,b);
writeln('Tong cua hai so la: ',a+b);
writeln('Gia tri tuyet doi hieu hai so la: ',abs(a-b));
readln;
end.
Bài AB
Tìm hai số A và B, biết tổng A+B và hiệu A-B. Yêu cầu: Cho tổng và hiệu của hai số, hãy tìm hai số đó.
Dữ liệu vào: File văn bản AB.INP
- Dòng 1: Chứa tổng A+B;
- Dòng 2: Chứa hiệu A-B.
Dữ liệu ra: file văn bản AB.OUT
- Dòng 1: ghi A - Dòng 2: ghi B.
Lưu ý: Trường hợp A, B là số thực thì lấy một chữ số.
Ràng buộc: A+B và A-B là số nguyên <264 .
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
freopen("ab.inp","r",stdin);
freopen("ab.out","w",stdout);
cin>>a>>b;
cout<<fixed<<setprecision(1)<<a+b<<endl;
cout<<fixed<<setprecision(1)<<a-b;
return 0;
}
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;
}
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.
Bài 7: Viết chương trình đọc từ file INP một dãy số nguyên A gồm có N phần tử (N<=10000). Ghi vào file OUT: dòng 1 ghi dãy số vừa nhập, dòng 2 ghi tổng của dãy số, dòng 3 ghi đếm các số dương có trong dãy và dòng 4 ghi tính tổng của các số dương đó.
BAI7.INP | BAI7.OUT |
6 10 -5 6 -7 -9 4
| 10 -5 6 -7 -9 4 -1 3 20 |
mình ghi dư cái số 4 bên phần BAI7.INP nha mn
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;
}
Câu 1: Tìm số lớn nhất File chương trình: TimMax.pas
Yêu cầu: Tìm số lớn nhất trong dãy số nguyên cho trước.
Dữ liệu vào: Đọc từ file TimMax.inp, gồm:
- Dòng thứ nhất: Số nguyên dương N (1<N<103) là số lượng các số nguyên trong dãy số.
- Dòng thứ hai: là các số nguyên trong dãy số, các số nguyên được viết cách nhau 1 khoảng trắng và không vượt quá 109.
Dữ liệu ra: Ghi vào file TimMax.out, gồm 1 giá trị duy nhất là kết quả của bài toán.
Ví dụ:
|
TIMMAX.INP |
TIMMAX.OUT |
|
4 5 6 1 2 |
6 |
Ai giúp giải câu này với
cho tệp X gồm có nhiều dòng, mỗi dòng có chứa 2 số nguyên a,b (a,b là số nguyên dương<=100). viết chương trình tính chu vi, diện tích hình chữ nhật với chiều dài a, chiều rộng b được đọc ra từ tệp X
uses crt;
const fi='x.inp'
var f1:text;
a,b:array[1..100]of integer;
i,n:integer;
begin
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
begin
writeln('Chu vi dong ',i,' la: ',(a[i]+b[i])*2);
writeln('Dien tich dong ',i,' la: ',a[i]*b[i]);
end;
close(f1);
readln;
end.
