|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.01.2009, 13:26 | #1 |
Регистрация: 10.01.2009
Сообщений: 7
|
компьютерная графика
по заданным значениям координат центра окружности и числа N , построить окружность максимального радиуса, целиком помещающуюся в экран и разбить её на N заштрихованных разными типами штриховки полос равной ширины. у кого какие варианты?
|
10.01.2009, 16:20 | #2 |
Регистрация: 10.01.2009
Сообщений: 7
|
Program oooo;
uses crt,graph; var n,i,gd,gm,x0,y0,r,r1:integer; begin clrscr; repeat write('x0=');readln(x0); write('y0=');readln(y0); until (x0>0)and(x0<640)and(y0>0)and(y0<48 0); write('N=');readln(n); gd:=detect; InitGraph(gd,gm,'d\tp\bgi'); r:=y0; if (getmaxY-y0)<r then r:=(getmaxY-y0); if x0<r then r:=x0; if (getmaxX-x0)<r then r:=(getmaxX-x0); Setcolor(4); Circle(x0,y0,r); for i:=n downto 1 do begin r1:=round(r*(i)/n); SetFillStyle(i+1,i+1); FillEllipse(x0,y0,r1,r1); end; readln; closegraph; end. есть ошибки... |
10.01.2009, 17:20 | #3 |
Регистрация: 10.01.2009
Сообщений: 7
|
Хееелп!!! погибаю!!!
|
10.01.2009, 19:08 | #4 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
А в чём Ваша "погибель"????! |
|
10.01.2009, 19:51 | #5 |
Регистрация: 10.01.2009
Сообщений: 7
|
в том что не могу эти ошибки найти(((
|
10.01.2009, 23:08 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
трудно поймать чёрную кошку в тёмной комнате...
Особенно, когда её там нет... :В А какие ошибки там есть?.. Они как то проявляются? Или Вы их просто чувствуете?! Надеюсь, Вы понимаете, что эта программа под DOS версию Паскаля: Turbo Pascal?!!! Кроме того, требуется библиотека графики Graph.tpu и драйвера *.BGI (путь к драйверам указывается при иницилизации графики: Код:
|
11.01.2009, 07:29 | #7 |
Регистрация: 10.01.2009
Сообщений: 7
|
благодарю за помощь!!! просто было немного ошибок)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Графика** | Lenivec** | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.04.2010 23:41 |
Графика | V1rusPro | Общие вопросы .NET | 0 | 22.04.2008 08:25 |
Графика | Exact | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 14.03.2008 18:37 |