Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2013, 21:11   #1
Vitaly12
 
Регистрация: 11.12.2012
Сообщений: 6
По умолчанию Классы - паскаль.

Составить описание класса прямоугольников со сторонами, параллельными осям координат. Предусмотреть возможность перемещения прямоугольников на плоскости, изменения размеров, построения наименьшего прямоугольника, который содержит два заданы прямоугольники, и прямоугольника, являющегося общей частью (пересечением) двух прямоугольников.

Подскажите пожайлуста какие поля нужно описывать для даной задачи?

В интернете есть коды на С++, но я не пока еще не знаю его...
Vitaly12 вне форума Ответить с цитированием
Старый 10.06.2013, 12:20   #2
Vitaly12
 
Регистрация: 11.12.2012
Сообщений: 6
По умолчанию

Код:
program oop;
uses crt,graph;
var gd,gm,x,y,x1,y1:integer;
   s1,s2,x2,y2,x3,y3:integer;
   ch,dk:char;
begin
writeln('1-postroit priamougolnik za koordinatami i zastavit dvigatsia');
writeln('2-vibrat iz 2 priamougolnik naimenshui i narisovat ego');
writeln('3-postroit priamougolnik iz peresicheniia dvuh');
writeln(' vash vibor? ');
readln(dk);
case  dk of
'1': begin
clrscr;
writeln('vvedite koordinati');
readln(x,y,x1,y1);
gd:=detect;
initgraph(gd,gm,'');
rectangle(x,y,x1,y1);
repeat
if keypressed then begin
ch:=readkey;
if ch in ['s','w','a','d'] then
begin
setcolor(0);
rectangle(x,y,x1,y1);
case ch of
's': begin y:=y+30;
           y1:=y1+30;
           end;
'w': begin y:=y-30;
           y1:=y1-30;
           end;
'a': begin x:=x-30;
           x1:=x1-30;
           end;
'd': begin x:=x+30;
           x1:=x1+30;
           end;
end;
setcolor(2);
rectangle(x,y,x1,y1);
end;
end;
delay(100);
until ch=#13;
end;
'2': begin
clrscr;
writeln('vvedite koordinati pervogo priamougola');
readln(x,y,x1,y1);
s1:=(x1-x)*(y1-y);
writeln('vvedite koordinati vtorogo priamougola');
readln(x2,y2,x3,y3);
s2:=(x3-x2)*(y3-y2);
gd:=detect;
initgraph(gd,gm,'');
if s1<s2 then
begin
rectangle(x,y,x1,y1);
end
else
rectangle(x2,y2,x3,y3);
end;
'3': begin
clrscr;
writeln('vvedite koordinati pervogo priamougolnika');
readln(x,y,x1,y1);
writeln('vvedite koordinati vtorogo priamougolnika');
readln(x2,y2,x3,y3);
gd:=detect;
initgraph(gd,gm,'');
rectangle(x,y,x1,y1);
rectangle(x2,y2,x3,y3);
readln;
cleardevice;
end;
end;
readln;
closegraph;
end.
Вот собственно программа без классов, помогите реализовать с помощью классов...
Vitaly12 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Классы VitalikVer Помощь студентам 0 17.05.2012 16:28
Классы casper1991 Visual C++ 6 22.02.2011 16:34
C++ и классы xnise Помощь студентам 0 13.06.2010 18:31
Паскаль классы Masha_ Фриланс 2 23.05.2010 17:30