unit modind;
interface
uses modobj;
type TRectangle=object
upl, dr:TPoint;
procedure Init (InitUpl,InitDr:TPoint);
procedure R;
procedure W;
function
end;
implementation
procedure TRectangle.Init;
begin
Upl:=initUpl;
Dr:=initDr;
end;
procedure TRectangle.R;
var A,B:TPoint;
begin
writeln('Введите левую верхнюю вершину');
A.R;
writeln('Введите правую нижнюю вершину');
B.R;
Init(A,B);
end;
procedure TRectangle.W;
begin
Upl.W;
Dr.W;
end;
end.
Программа для работы с прямоугольниками (ООП), Pascal
Помогите пожалуйста дописать программу на Pascal: создайте программу для работы с прямоугольниками. Объект типа TRectangle должен включать левую верхнюю и правую нижнюю вершины (типа TPoint), а также методы, позволяющие осуществить: ввод прямоугольника с клавиатуры; вывод на экран; изменение положения и размера прямоугольника; нахождение длин его сторон и площади. В программе должна быть реализована процедура нахождения прямоугольника, образованного пересечением двух данных прямоугольников.
Процедуры для ввода, вывода я сделала, а как быть дальше не знаю :(
Вот модуль(то, что сделала):
Процедуры для ввода, вывода я сделала, а как быть дальше не знаю :(
Вот модуль(то, что сделала):
Код: