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;
}
Câu 1: Cho tệp HCN.TXT chứa liên tiếp các cặp số nguyên (a, b) là cạnh của các hình chữ nhật (các số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Viết chương trình đọc các cặp cạnh a, b từ tệp HCN.TXT, tính chu vi và diện tích của các hình chữ nhật tương ứng và ghi vào tệp KETQUA.TXT.
const fi='hcn.txt'
fo='ketqua.txt'
var f1,f2:text;
a,b:array[1..100]of integer;
n:integer;
cv,dt:real;
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
begin
cv:=(a[i]+b[i])/2;
dt:=a[i]*b[i];
writeln(f2,cv:4:2,' ',dt:4:2);
end;
close(f1);
close(f2);
end.
cho tệp DataIn.txt chứa liên tiếp các số nguyên dương và âm, các số trên cùng một dòng ngăn cách nhau bởi dấu cách. viết chương trình đọc các số vào chương trình pascal và tính tổng rồi ghi ra DataOut.txt
xin giúp đỡ ạ
const fi='dulieu.txt'
fo='ketqua.txt'
var i,t:integer;
f1,f2:text;
a:array[1..9]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 9 do
begin
read(f1,a[i]);
t:=t+a[i];
end;
writeln(f2,t);
close(f1);
close(f2);
end.
const fi='dataln.txt'
fo='dataout.txt'
var f1,f2:text;
x,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 24 do
begin
read(f1,x);
t:=t+x;
end;
writeln(f2,t);
close(f1);
close(f2);
end.
cho tệp DataIn.txt chứa liên tiếp 24 dãy số các số nguyên dương và âm, các số trên cùng một dòng ngăn cách nhau bởi dấu cách. viết chương trình đọc các số vào chương trình pascal và tính tổng rồi ghi ra DataOut.txt
xin giúp đỡ ạ
const fi='dataln.txt'
fo='dataout.txt'
var f1,f2:text;
x,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 24 do
begin
read(f1,x);
t:=t+x;
end;
writeln(f2,t);
close(f1);
close(f2);
end.
Cho hình tròn tâm I ( 0;0) bán kính R ( R nguyên). Viết chương trình: - Đọc vào 1 tệp có tên dt_ht.inp 1 dòng duy nhất bán kính R - Tính diện tích hình tròn và đưa ra tệp có tên dt_ht.out ( kết quả hiển thị 2 chữ số thập phân sau dấu phẩy)
program TinhDienTichHinhTron;
var
fIn, fOut: Text;
r: Integer;
dien_tich: Real;
begin
Assign(fIn, 'dt_ht.inp');
Reset(fIn);
Readln(fIn, r);
Close(fIn);
Assign(fOut, 'dt_ht.out');
Rewrite(fOut);
dien_tich := Pi * r * r;
Writeln(fOut, FormatFloat('0.00', dien_tich));
Close(fOut);
end.
cho tep dulieu.txt gồm nhiều hàng chứa 3 số nguyên( tương ứng với đáy lớn, đáy bé và chiều cao hình thang) cách nhau bởi dấu cách.Viết chương trình lần lượt đọc 3 số trong tệp dulieu.txt rồi tính diện tích hình thang
Viết chương trình đọc từ tệp văn bản 'INPUT.TXT' 2 dòng
Dòng đầu tiên chứa số nguyên n là chỉ số phần tử
Dòng tiếp theo chứa n số nguyên, các số cách nhau 1 khoảng cách và không có kí hiệu xuống dòng
Tính và in ra màn hình tích các số lẻ đọc được trong n số đó
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 DL.TXT có nội dung như sau: - Số nguyên n ( dòng 1 ) - Dãy gồm n số nguyên ( dòng 2 ) ( Các số cách nhau bởi dấu cách ) Viết chương trình ghi các số chẵn của dãy số trên vào tệp KQ.TXT
cho tệp songuyen.dat chứa các số nguyên dương , mỗi số cách nhau một dấu cách theo hàng ngang . viết chương trình độc các số nguyên từ tệp và tính tổng của chúng
uses crt;
const fi='songuyen.dat'
var f1:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
close(f1);
readln;
end.
