Giúp em giải bài này với ạ...
Cho tệp văn bản "C:\CANH.TXT chứa giá trị chiều dài cạnh của hình vuông. Em hãy viết chương trình để đọc giá trị cạnh hình vuông từ tệp trên rồi tính và đưa ra màn hình diện tích hình vuông đó
Những câu hỏi liên quan
Bài 1: 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.
Xem chi tiết
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.
Đúng 1
Bình luận (0)
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.
Đúng 1
Bình luận (0)
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.
Đúng 1
Bình luận (0)
Viết chương trình và đưa ra màn hình diện tích S của đường bán kính R với giá trị của R được đọc từ tệp INPUTC3.TXT
Program HOC24;
const fi='INPUTC2.TXT'
var s,r: real;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,r);
s:=r*r*pi;
close(f);
end;
begin
ip;
write('S= ',s:1:2);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình và đưa ra màn hình diện tích S của hình chữ nhật có chiều dài a, chiều rộng b. Với các giá trịa,b được đọc từ tệp INPUTC2.TXT
Program HOC24;
const fi='INPUTC2.TXT'
var s: longint;
a,b: integer;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b);
s:=a*b;
close(f);
end;
begin
ip;
write('S= ',s);
readln
end.
Đúng 1
Bình luận (0)
Cho tệp kiemtra.txt chứa 3 số nguyên, mỗi số nằm trên một dòng. Hãy viết chương trình đọc 3 số nguyên từ tệp kiemtra.txt và đưa vào 3 biến a, b, c. Tính và đưa ra màn hình kết quả (a+b)(a+c)(c*b). Giúp e vs mn ơi
uses crt;
const fi='kiemtra.txt'
var f1:text;
a,b,c:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a);
readln(f1,b);
readln(f1,c);
writeln((a+b)*(a+c)*(c+b));
close(f1);
readln;
end.
Đúng 0
Bình luận (1)
Cho tệp kiemtra.txt chứa 3 số nguyên, mỗi số nằm trên một dòng. Hãy viết chương trình đọc 3 số nguyên từ tệp kiemtra.txt và đưa vào 3 biến a, b, c. Tính và đưa ra màn hình kết quả (a+b),(a+c),(c*b). Giúp e vs mn ơi
uses crt;
const fi='kiemtra.txt'
var f1:text;
a,b,c:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c);
writeln((a+b)*(a+c)*(b+c));
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập dữ liệu từ tệp Dulieu.txt chứa các số nguyên. Tính tổng giá trị các số có trong tệp và xuất kết quả ra màn hình
Viết chương trình ghi 2 số 5 15 vào tệp so.txt sau đó đọc tệp so.txt, gán giá trị vào 2 biến x y. Tính tổng hiệu tích thương của x,y rồi in kq ra màn hình.
Xem chi tiết
*Viết chương trình ghi hai số 5 và 15 vào tệp so.txt:
const f='so.txt'
var f1:text;
begin
assign(f1,f); rewrite(f1);
writeln(f1,'5 15');
close(f1);
end.
*Viết chương trình tính tổng, hiệu, tích, thương của x,y và in kết quả ra màn hình:
uses crt;
const fi='so.txt'
var x,y:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,x,y);
writeln('Tong la: ',x+y);
writeln('Hieu la: ',x-y);
writeln('Tich la: ',x*y);
writeln('Thuong la: ',x/y:4:2);
close(f1);
readln;
end.
Đúng 2
Bình luận (1)