Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и...

Question

Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и определяет, является ли прямаугольник квадратом. Постройте данный прямоугольник ( единицу длины показать 5 пикселями)

Answer 1

uses crt,graphABC;
var x,y,xc,yc:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;

write ('Введите ширину ');
read (x);
write ('Введите длину ');
read (y);

if (x=y) then write ('Это квадрат');
hidecursor;
setpencolor(clAqua);
rectangle(xc-x*5,yc-y*5,xc+x*5,yc+y*5);
floodfill(xc,yc,clAqua);
readkey;

end.