Viết chương trình đọc 2 số thực a, b từ tệp 'DULIEU.DAT' ( Tệp 'DULIEU.DAT' có nhiều dòng dữ liệu mỗi dòng chứa hai số thực). tính chu vi P và diện tích S hình chữ nhật và xuất kết quả ra màn hình. ( yêu cầu viết chương trình đọc một dòng dữ liệu đầu tiên trong tệp 'DULIEU.DAT'
Những câu hỏi liên quan
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 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.
Đọc tiếp
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.
Đúng 0
Bình luận (0)
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 ạ
Đọc tiếp
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
BÀI TẬP THỰC HÀNH – DỮ LIỆU KIỂU TỆP Câu 1: Cho tệp BAI1.INP có cấu trúc như sau:- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhậtEm hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả in ra màn hình đúng đến 2 chữ số thập phân? Câu 2: Cho tệp BAI2.INP có cấu trúc như sau:- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhậtEm hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả ghi vào tệp BAI2.OUTđúng đến 2 chữ số thập phân? Câu 3: Cho tệp BAI3.INP có cấu trúc như sau:- Gồm N...
Đọc tiếp
BÀI TẬP THỰC HÀNH – DỮ LIỆU KIỂU TỆP
Câu 1: Cho tệp BAI1.INP có cấu trúc như sau:
- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhật
Em hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả in ra màn hình đúng đến 2 chữ số thập phân?
Câu 2: Cho tệp BAI2.INP có cấu trúc như sau:
- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhật
Em hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả ghi vào tệp BAI2.OUT
đúng đến 2 chữ số thập phân?
Câu 3: Cho tệp BAI3.INP có cấu trúc như sau:
- Gồm N dòng chứa độ dài 2 cạnh của hình chữ nhật
Em hãy lập chương trình tính diện tích hình chữ nhật đó . các kết quả ghi vào tệp BAI3.OUT đúng đến 2 chữ số thập phân?
Câu 4: Cho tệp BAI4.INP chứa 3 số nguyên a,b,c lần lượt là độ dài của 3 cạnh tam giác. Hãy lập chương trình tính chu vi, diện tích của tam giác đó .Kết quả ghi vào tệp BAI4.OUT có cấu trúc như sau:
BAI4.INP | BAI4.OUT |
3 4 5 | Chu vi=….. Dien tich =…… |
Câu 5: Cho tệp BAI5.INP chứa duy nhất số nguyên dương M . Hãy lập chương trình kiểm tra M là số chẵn hay số lẻ .Kết quả ghi vào tệp BAI5.OUT có cấu trúc như sau:
BAI5.INP | BAI5.OUT |
7 | 7 la so le |
Câu 6: Cho tệp BAI6.INP có cấu trúc như sau :
-Dòng 1: số nguyên dương N
-Dòng 2: là dãy N số nguyên dương a1, a2, …..an
Hãy lập chương trình ghi vào tệp BAI6.OUT :
-Dòng 1: Dãy số nguyên a1,a2,a3,…,an
-Dòng 2: Các số chẵn của dãy số
-Dòng 3: Số phần tử >10
-Dòng 4: Tổng các phần tử của dãy
BAI6.INP | BAI6.OUT |
5 4 6 23 1 5 | Dãy số nguyên có dạng :4 16 23 1 5 Các số chẵn của dãy số là 4 16 Số phần tử lớn hơn 10 là: 2 Tổng các phần tử của dãy là: 49 |
Câu 7: Cho tệp BAI7.INP có cấu trúc như sau :
-Dòng 1: số nguyên dương N
-Dòng 2: là dãy N số nguyên dương a1, a2, …..an
Hãy lập chương trình ghi vào tệp BAI7.OUT :
-Dòng 1: Dãy số nguyên a1,a2,a3,…,an
-Dòng 2: Các số lẻ của dãy số
-Dòng 3: Số phần tử =0
-Dòng 4: Tổng các phần tử của dãy
BAI7.INP | BAI7.OUT |
8 4 0 6 23 0 1 5 0 | Dãy số nguyên có dạng : 4 0 6 23 0 1 5 0 Các số lẻ của dãy số là 23 1 5 Số phần tử bằng 0 là: 3 Tổng các phần tử của dãy là: 49 |
Câu 1:
uses crt;
const fi='bai1.inp'
var f1:text;
a,b:real;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln(a*b:4:2);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
const fi='bai2.inp'
fo='bai2.out'
var f1,f2:text;
a,b:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a*b:4:2);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
Câu 3:
const fi='bai3.inp'
fo='bai3.out'
var f1,f2:text;
a,b:array[1..100]of real;
i,n: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
writeln(f2,a[i]*b[i]:4:2);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
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 Dulieu.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên. Viết chương trình đọc dữ liệu từ tệp Dulieu.txt rồi tìm GTNN của mỗi dòng, rồi hiển thị ra màn hình.
uses crt;
const fi='dulieu.txt'
var f1:text;
a,b:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
begin
if a[i]<b[i] then writeln(a[i])
else writeln(b[i]);
end;
readln;
end.
Đúng 1
Bình luận (0)
cho tệp văn bản HinhTron.INP chứa bán kính R các số viết trên 1 dòng , hãy đọc dữ liệu từ tệp HinhTron.INP để tính chu vi và diện tích của mỗi hình tròn. Kết quả ghi vào tệp HinhTron.Out
const fi='hinhtron.inp'
fo='hinhtron.out'
var f1,f2:text;
a:array[1..100]of real;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
for i:=1 to n do
writeln(f2,'Hinh tron thu ',i,': Chu vi la ',(2*a[n]*pi):4:2,' va Dien tich la: ',a[n]*a[n]*pi:4:2);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
giả sử trên đĩa E có tệp SO.INP chứa nhiều dòng dữ liệu, mỗi dòng chứa hai số nguyên cách nhau bởi dấu cách. hãy viết chương trình đọc ra mỗi dòng dữ liệu trong tệp SO.INP, sau đó tính trung bình cộng của mỗi dòng và hiển thị kết quả trung bình cộng ra màn hình tương ứng với mỗi dòng dữ liệu? Mn giúp mik vs
uses crt;
const fi='so.inp'
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
while not eof(f1) do
begin
readln(f1,a,b);
writeln((a+b)/2:4:2);
end;
close(f1);
readln;
end.
Đúng 0
Bình luận (0)