Tệp và thao tác với tệp

Chí Nguyễn

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

Bùi Anh Tuấn
14 tháng 3 2021 lúc 20:53

Bình luận (0)
Minh Lệ
15 tháng 3 2021 lúc 18:56

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.

Bình luận (0)

Các câu hỏi tương tự
Chí Nguyễn
Xem chi tiết
Lê Thị Ngọc Anh
Xem chi tiết
NGUYỄN THỊ KIM CHI
Xem chi tiết
Nguyen Duc Anh
Xem chi tiết
Hoàng Long
Xem chi tiết
Vũ văn huy
Xem chi tiết
Lâm Thanh Thư
Xem chi tiết
New wibu
Xem chi tiết
Phạm Thị Thu Hằng
Xem chi tiết