Bài tập
Lập trình
-Nhập từ bàn phím số nguyên N ( \(1\leq N\leq 40\)) và các tọa độ đỉnh (xi,yi) của một đa giác lồi N cạnh (\(1\leq i\leq N\),xi,yi - nhận giá trị thực).
- Xác định tọa độ đỉnh trên trái và dưới phải của hình chữ nhật thỏa mãn các điều kiện:
+Các cạnh song song với các trục tọa độ;
+Chứa đa giác lồi đã cho;
+Có diện tích nhỏ nhất
- Đưa ra màn hình các tọa độ tìm được với 3 cs sau dấu thập phân).
Lưu ý: Hcn và tọa độ của các điểm chỉ xét trên góc phần tư thứ I
code này mình gõ chưa chạy thử nếu sai cú pháp chỗ nào bạn sửa lại nha!
var n,i:byte;
x,y: real;
max,mix,may,miy:real;
begin
readln(n);
for i:=1 to n do
begin
readln(x,y);
if i=1 then begin
max:=x;mix:=x;may:=y;miy:=y;
end else
begin
if max<x then max:=x;
if mix>x then mix:=x;
if may<y then may:=y;
if miy>y then miy:=y;
end;
end;
writeln('dinh tren trai: ('max,',',miy,') ;');
writeln('dinh duoi phai: ('mix,',',may,') ;');
readln;
end.Tks bạn nhá , bạn chỉ thiếu 2 cái dấu , chỗ writeln thôi ,mình hỏi thêm đoạn nếu mình muốn viết xi thì trong pc viết sao nhỉ
ko viết dc kiểu ý đâu bạn bạn viết kiểu x[i] đi. còn nếu viết kiểu xi thì phải học cao hơn và giao diện cũng ko phải dao diện màn hình dòng lệnh ý.