![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 10.01.2009
Сообщений: 7
|
![]()
по заданным значениям координат центра окружности и числа N , построить окружность максимального радиуса, целиком помещающуюся в экран и разбить её на N заштрихованных разными типами штриховки полос равной ширины. у кого какие варианты?
|
![]() |
![]() |
![]() |
#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. есть ошибки... |
![]() |
![]() |
![]() |
#3 |
Регистрация: 10.01.2009
Сообщений: 7
|
![]()
Хееелп!!! погибаю!!!
|
![]() |
![]() |
![]() |
#4 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]() Цитата:
А в чём Ваша "погибель"????! |
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 10.01.2009
Сообщений: 7
|
![]()
в том что не могу эти ошибки найти(((
|
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
трудно поймать чёрную кошку в тёмной комнате...
Особенно, когда её там нет... :В А какие ошибки там есть?.. Они как то проявляются? Или Вы их просто чувствуете?! Надеюсь, Вы понимаете, что эта программа под DOS версию Паскаля: Turbo Pascal?!!! Кроме того, требуется библиотека графики Graph.tpu и драйвера *.BGI (путь к драйверам указывается при иницилизации графики: Код:
|
![]() |
![]() |
![]() |
#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 |