|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2009, 09:17 | #1 |
Пользователь
Регистрация: 06.12.2009
Сообщений: 23
|
Графика(доски забора)
дана программа рисования забора:
Program zabor; Uses Crt,Graph,Graph0; Var d,w,x,q,z,a,p:integer; begin ClrScr; x:=0; Write('vvedite dlinu doski '); Readln(w); Write('vvedite kolichestvo pikseley '); Readln(p); a:=p div w; z:= w div 2; Init('g:\bp\bgi'); for q:=1 to a do begin moveto(x,480); setcolor(q); setfillstyle(1,q); linerel(0,-200); linerel(z,-30); linerel(z,30); linerel(0,200); linerel(-2*z,0); floodfill(x+1,400,q); x:=x+2*z; end; d:=p mod w; if d>0 then begin moveto(x,480); setcolor(q+1); setfillstyle(1,q+1); linerel(0,-200); linerel(z,-30); linerel(0,230); linerel(-z,0); floodfill(x+1,400,q+1);end; readln; end. Она рисует по в заданном количестве пикселей столько досок,сколько задано их по ширине....надо ее изменить так,чтоб ту доску в остатке рисовало не половину,а вот именно эту часть(к примеры,если вводить ширину доски-30,а ширину всего забора-110,то он должэен нарисовать 3 целых доски и чуть больше половины)....нам подсказали,что вот эту остаточную доску нужно делать так: рисовать полную ее,а потом закрашивать черным квадратом(bar)...так вот,помогите пожалуйста вычислить координаты этого квадрата...очень нужно))) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Где профессиональные доски объявлений? | stepan-ketler | Свободное общение | 1 | 06.03.2009 10:54 |
Лучший скрипт доски объявлений на PHP | portaldv | PHP | 1 | 11.11.2008 03:35 |
Лучший скрипт доски объявлений на PHP | Кипешь | PHP | 2 | 02.10.2008 22:25 |