|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.10.2010, 01:08 | #1 |
Пользователь
Регистрация: 07.12.2009
Сообщений: 10
|
Такое дело..:\ графика с элементами ООП..
Здравствуйте,посмотрите кому не лень,пожалуйста..
) не появляются одновременно фигуры.. не знаю,что с ними делать.. virtual с конструктором как раз позволяют же вроде такое делать.. ниичего не понимаю.=// =(( program hm; Uses crt, graph; type Shape1=object a,b:real; constructor init(x,y:real); procedure show;virtual; end; shape2=object(shape1) constructor Init(x,y:real); procedure show;virtual; end; constructor shape1.init; begin a:=x; b:=y; end; procedure shape1.show; var t:real;f:integer; p :real; begin setcolor(1); setbkcolor(20); t:=0; repeat t:=t+0.15; for f:=0 to 628 do begin p:=120*cos(0.3*f); a:=p*cos(f/10+t)+320; b:=p*sin(f/10)+170; putpixel(round(a),round(b),15); end; delay(100);clearviewport; until keypressed; end; constructor shape2.init; begin a:=x;b:=y; end; procedure shape2.show; var j:real; k: integer; begin setcolor(2);setbkcolor(20); j:=0; repeat j:=j+0.15;for k:=93 downto -93 do begin a:=(2*k-40*sin(k/10))*cos(k)+320; b:=-20+40*cos(k/10)+430; putpixel(round(a),round(b),17); end;delay(100);clearviewport;until keypressed; end; Var s1:shape1; s2:shape2; f:Integer; driver, mode, error:Integer; s:string; Begin driver:=detect; s:=''; Initgraph(driver,mode,s); error:=GraphResult; if error<>GrOk then begin writeln(GraphErrorMsg(Error)); Halt(error) end; Begin s1.init(getmaxx mod 4,getmaxy mod 3); s1.show; s2.init(getmaxx mod 2,2); s2.show; end; CloseGraph; End. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ООП, Паскаль, графика | random7 | Помощь студентам | 10 | 24.11.2009 15:37 |
Паскаль ООП. Примеры программ с использованием ООП | SeЯgey | Помощь студентам | 5 | 13.05.2009 21:55 |
графика, паскаль, ООП | HoOpe | Помощь студентам | 18 | 25.03.2009 12:38 |