Tin hoc

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.
=======================