Viết chương trình ghi vào tệp 'lop 11c8.TxT'dòng chữ 'toi yeu VN'.
vct ghi vào tệp 'lop 11A5.txt' đồng chữ 'toi yêu viet nam'.
Program HOC24;
const fi='lop_11A5.txt'
var f: text;
begin
assign(f,fi);
rewrite(f);
write(f,'Toi yeu Viet Nam');
close(f);
end.
Em hãy viết chương trình tính diện tích hình chữ nhật và ghi kết quả vào tệp ketqua.txt
cho tệp dư liệu hình chữ nhạt gồm các cặp chiều dài, chiều rộng là số nguyên dương lớn hơn 0. Viết chương trình đọc tệp hình hcn.dat tính diện tích các hình chưi nhat ghi ra màn hình, tính chu vi cac hình chữ nhật ghi vào tệp chuvu.out.
uses crt;
const fi='hcn.dat'
fo='chuvi.out'
var f1,f2:text;
a,b:array[1..100]of integer;
n,i,j:integer;
begin
clrscr;
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
writeln(a[i]*b[i]);
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]));
close(f1);
close(f2);
readln;
end.
tệp data inp chứa một dãy số gồm 10 số cách nhau bởi dấu cách em hãy viết chương trình đọc toàn bộ các chữ số trong tệp tính và ghi kết quả vào tệp data.out tổng các chữ số chia hết cho 5
tệp sn.inp gồm các số nguyên dương ngăn cách nhau bởi ít nhất một dấu cách. các số nguyên là cạnh a,b của hình chữ nhật. viết chương trình đọc dữ liệu từ tệp sn.inp vào hai biến a,b. tính diện tích hình chữ nhật. ghi kết quả vào tệp cn.out
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
freopen("sn.inp","r",stdin);
freopen("cn.out","w",stdout);
cin>>a>>b;
cout<<a*b;
return 0;
}
Viết chương trình đọc từ tệp " input.txt" ( tệp " input .txt" chứa 4 số nguyên ) ghi vào tệp " output.txt" tổng 4 số nguyên trong tệp " input.txt" Tong là:10
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d;
int main()
{
freopen("input.txt","r",stdin);
freopen("output.txt","w",stdout);
cin>>a>>b>>c>>d;
cout<<a+b+c+d;
return 0;
}
Viết chương trình ghi vào tệp KẾT QUẢ.OUT các số nguyên chẵn < 100
#include <bits/stdc++.h>
using namespace std;
int i;
int main()
{
freopen("ketqua.out","w",stdout);
for (i=1; i<=100; i++)
if (i%2==0) cout<<i<<" ";
return 0;
}
viết chương trình tìm số nguyên lớn nhất trong n số nguyên đã có trong tệp baitap.txt và ghi vào tệp solonnhat.txt
Uses crt; Var f1,f2:text; i,n,max:integer; a:array[1..100] of integer; Begin Assign(f1,'baitap.txt');reset(f1); Assign(f2,'solonnhat.txt');rewrite(f2); While not eof(f1) do Begin Read(f1,n,a[i]); Max:=a[1]; For i:=2 to n do if a[i]>max then max:=a[i]; End; Writeln(f2,'solonnhatla:',max); Close(f1);close(f2); End.
uses crt;
var n,max :integer;
f1,f2:text;
begin
clrscr;
assign(f1,'baitap.txt'); reset(f1);
assign(f2,'solonhat.txt'); rewrite(f2);
max:=0;
while not eof(f1) do
begin
read(f1,n);
if max <n then max:=n;
end;
writeln('solonhatla: ',max:5);
write(f2,max);
close(f1);close(f2);
readln;
end.
Cho tệp SN.INP gồm 2 số nguyên . viết chương trình tính hiệu của hai số đó và ghi kết quả vào tệp SN.OUT
const fi='sn.inp'
fo='sn.out'
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a-b);
close(f1);
close(f2);
end.