Đáp án: viết chương trình tìm hình chữ nhật có diện tích lớn nhất theo yêu cầu sau nhập vào bàn phím hai số tự nhiên N và d ( 1<d<N<1000) Với N là số đoạn thẳng có cùng chiều dài d đơn vị Xuất ra màn hình tổng số đoạn thẳng cần chọn, số đoạn đặt trên 1 chiều rộng, số đoạn đặt trên 1 chiều dài sao cho ta có... - uses crt;var CD, CR, n, d longint;begin clrscr; write(ʹMoi ban nhap vao so doan thang ʹ); readln(n); write(ʹMoi ban nhap vao do dai moi doan thang ʹ); readln(d); // Tính số đoạn thẳng cần chọn n =n div 2 * 2; // Tính chiều rộng, chiều dài CR=n div 4; CD=n div 2 - CR; writeln(ʹTong so doan thẳng cần...

uses crt;var CD, CR, n, d longint;begin clrscr; write(ʹMoi ban nhap vao so doan thang ʹ); readln(n); write(ʹMoi ban nhap vao do dai moi doan thang ʹ); readln(d); // Tính số đoạn thẳng cần chọn n =n div 2 * 2; // Tính chiều rộng, chiều dài CR=n div 4; CD=n div 2 - CR; writeln(ʹTong so doan thẳng cần...

luka12marine

1 năm trước

viết chương trình tìm hình chữ nhật có diện tích lớn nhất theo yêu cầu sau: nhập vào bàn phím hai số tự nhiên N và d ( 1<d<N<1000) . Với N là số đoạn thẳng có cùng chiều dài d đơn vị. Xuất ra màn hình tổng số đoạn thẳng cần chọn, số đoạn đặt trên 1 chiều rộng, số đoạn đặt trên 1 chiều dài sao cho ta có được hình chữ nhật có diện tích lớn nhất, cho biết diện tích hình chữ nhật tìm được. Chương trình ví dụ: Moi ban nhap vao so doan thang: 23 Moi ban nhap vao do dai moi doan thang: 2 Tong so doan thẳng cần chọn là: 22 Số đoạn đặt trên 1 chiều rộng là: 5 Số đoạn đặt trên 1 chiều dài là: 6 Diện tích hình chữ nhật là: 120 AI GIÚP EM VỚI GIẢI THÍCH CÁCH LÀM LUÔN Ạ

Xem đáp án

47 lượt xem

1 câu trả lời

Đỗ Văn Hùng

1 năm trước

uses crt;
var CD, CR, n, d: longint;
begin
clrscr;
write('Moi ban nhap vao so doan thang: '); readln(n);
write('Moi ban nhap vao do dai moi doan thang: '); readln(d);

// Tính số đoạn thẳng cần chọn
n :=n div 2 * 2;

// Tính chiều rộng, chiều dài
CR:=n div 4;
CD:=n div 2 - CR;

writeln('Tong so doan thẳng cần chọn là: ', n);
writeln('Số đoạn đặt trên 1 chiều rộng là: ', CR);
writeln('Số đoạn đặt trên 1 chiều dài là: ', CD);
writeln('Diện tích hình chữ nhật là: ', CD * CR * d * d);
// Diện tích = (CD * d) * (CR * d) = CD * CR * sqr(d)
readln;
end.