hãy viết chương trình đọc ra từ tệp hcn.inp các cặp cạnh a,b của hình chữ nhật. tính chu vi và diện tích mỗi hình chữ nhật rồi ghi kết quả vào tệp hcn.out
Viết chương trình đọc dữ liệu từ tệp input.bass chứa hai số nguyên dương lần lượt là độ lớn của các cạnh ab của hình chữ nhật ABCD tính chu vi diện tích của hình chữ nhật trên a/ in kết quả ra màn hình b/ luôn kết quả vào tệp output. pass
Cho file 'HCN.inp' chửa 2 số nguyên lần lượt là chiều dài và chiều rộng của một hình chữ nhật. Viết chương trình đọc dữ liệu từ file trên và tính chu vi, diện tích hình chữ nhật đó. Kết quả ghi vào file "HCN.out. M.n giúp mình với ạ
#include <bits/stdc++.h>
using namespace std;
int main()
{
int a,b;
freopen("hcn.inp","r",stdin);
freopen("hcn.out","w",stdout);
cin>>a>>b;
cout<<(a+b)*2<<endl;
cout<<a*b;
return 0;
}
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 ctrinh đọc từ tệp "DULIEU.INP" 2 cạnh p, q (a, b). Một hàm tính chu vi (diện tích) hình chữ nhật và ghi kết quả vào tệp "KETQUA.OUT"
with open('DULIEU.INP', 'r') as input_file:
p, q = map(int, input_file.readline().strip().split())
chu_vi = 2 * (p + q)
dien_tich = p * q
with open('KETQUA.OUT', 'w') as output_file:
output_file.write(f'Chu vi hinh chu nhat la: {chu_vi}\n')
output_file.write(f'Dien tich hinh chu nhat la: {dien_tich}\n')
cho tệp "BAITAP.TXT" chứa hai số nguyên dương a,b lần lượt là độ dài hai cạnh của một hình chữ nhật. Hãy viết chương trình đọc từ tệp trên độ dài hai cạnh, tính chu vi của hình chữ nhật và in kết quả tính được ra màn hình.
uses crt;
const fi='baitap.txt'
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln('Chu vi hinh chu nhat la: ',(a+b)*2);
close(f1);
readln;
end.
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.
uses crt;
const fi='baitap.txt'
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln('Chu vi la: ',(a+b)*2);
writeln('Dien tich la: ',a*b);
close(f1);
readln;
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.
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.
mọi người ơi giúp em với ạ
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.