Viết chương trình sử dụng chương trình con (hàm và thủ tục) tính diện tích hình chữ nhật biết độ dài các cạnh được đọc từ tệp input.txt kết quả được ghi vào tệp output.txt

nguyenfamy

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

Thuyhang21

program LN;
uses crt;
var a,b:integer;
f,g:text;
function dt(x,y:integer):integer;
var S:integer;
begin
S:=x*y;
dt:=S;
end;
procedure nhap_xuat;
begin
assign(f,'input.txt');reset(f);
assign(g,'output.txt');rewrite(g);
read(f,a,b);
write(g,'dien tich hinh chu nhat la : ',dt(a,b));
close(g);
end;
begin
nhap_xuat;
end.

Vote (0) Phản hồi (0) 2 năm trước

qa234667

var f1,f2:text;

a,b:real;

procedure xuat();

var t:real;

begin

t:=a*b;

writeln(f2,t:0:3);

end;

begin

assign(f1,'input.txt');reset(f1);

assign(f2,'output.txt');rewrite(f2);

readln(f1,a,b);

xuat();

close(f1);close(f2);

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Một khung dây dẫn kín tròn có bán kính 5cm, đặt trong từ trường biến thiên từ 0,4T đến 0,2T và sao cho vecto cảm ứng từ B trùn hướng với vecto pháp tuyến n. Tính độ biến thiên từ thông qua mặt phẳng S giới hạn bởi mặt phẳng khung dây.

Phần bài tập nha mọi người Giúp mình với

Xem qua giả thiết, kết luận rồi làm giúp mình nhé. Cần gấp!

câu 1 chia sẻ một cuốn sách mà em yêu thích hoặc một cuốn sách đã làm thay đổi nhận thức hoặc cuộc sống của em câu 2 Nếu được chọn làm đại sứ văn hóa đọc em có kế hoạch và biện pháp gì để khuyến khích các bạn và mọi ng đọc sánh nhiều hơn (bài này không đc chép mạng nên nhờ các bạn vất vả xíu nhé)

giúp cho tui vs nhanhhhhh vssds

Viết đoạn văn biểu cảm 10-12 câu về ngôi trường của em .Trong đoạn có sử dụng 1 câu đặc biệt, 1 trạng ngữ. Gạch chân, chỉ rõ

mọi ng giúp mik nha chính xác đó r mik cho 5 sao

giải thích giúp mình cách làm với :)

Đây là lịch sử 7 nha các bạn giúp mình vs

Dien dau <>= thích hợp vào cho cham 457+x...,1454voi x=997

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến