Chào mừng quý vị đến với Website của Trường PTDTNT-THCS Na Hang.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
tin hoc
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Quan Văn Báo
Ngày gửi: 14h:42' 08-03-2013
Dung lượng: 20.5 KB
Số lượt tải: 11
Nguồn:
Người gửi: Quan Văn Báo
Ngày gửi: 14h:42' 08-03-2013
Dung lượng: 20.5 KB
Số lượt tải: 11
Số lượt thích:
0 người
program bai_hinh;
uses crt;
var x,j,a,S_abcd,luu,luu1:longint;
Max,Min,Dt_amn:real;
begin
(* Nhap do dai canh a *)
repeat
clrscr;
write(`Nhap do dai canh cua hinh vuong ABCD: `); readln(a);
until (a>1) and (a<=50);
S_abcd := a*a; {Dien tich hinh vuong}
Max := S_abcd/2;
Min := Max;
for x := 0 to a do
begin
{Dien tich tam giac AMN}
Dt_amn := S_abcd-(a*x)/2-((a-x)*x)/2-((a-x)*a)/2;
if Dt_amn begin
luu := x; Min := Dt_amn;
end;
if Dt_amn > Max then
begin
Max := Dt_amn; luu1 := x;
end;
end;
writeln(`Gia tri lon nhat cua dien tich tam giac AMN: `,Max:0:1);
writeln(`Gia tri x de dien tich tam giac AMN dat gia tri lon nhat: `,luu1);
writeln(`Gia tri nho nhat cua dien tich tam giac AMN: `,Min:0:1);
writeln(`Gia tri x de dien tich tam giac AMN dat gia tri nho nhat: `,luu);
readln;
end.
=======================
uses crt;
var x,j,a,S_abcd,luu,luu1:longint;
Max,Min,Dt_amn:real;
begin
(* Nhap do dai canh a *)
repeat
clrscr;
write(`Nhap do dai canh cua hinh vuong ABCD: `); readln(a);
until (a>1) and (a<=50);
S_abcd := a*a; {Dien tich hinh vuong}
Max := S_abcd/2;
Min := Max;
for x := 0 to a do
begin
{Dien tich tam giac AMN}
Dt_amn := S_abcd-(a*x)/2-((a-x)*x)/2-((a-x)*a)/2;
if Dt_amn
luu := x; Min := Dt_amn;
end;
if Dt_amn > Max then
begin
Max := Dt_amn; luu1 := x;
end;
end;
writeln(`Gia tri lon nhat cua dien tich tam giac AMN: `,Max:0:1);
writeln(`Gia tri x de dien tich tam giac AMN dat gia tri lon nhat: `,luu1);
writeln(`Gia tri nho nhat cua dien tich tam giac AMN: `,Min:0:1);
writeln(`Gia tri x de dien tich tam giac AMN dat gia tri nho nhat: `,luu);
readln;
end.
=======================
Các ý kiến mới nhất