VPF::Не научили в школе звёздочку рисовать!

MOHCTP

Дата 11.5.2009, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.8.2008

Репутация: нет
Всего: нет

Ребят, привет! В общем, такое дело. Помогите плиз звёздочку нарисовать: Вот всё, что я помню:

Код


Uses Graph;
Var  
     grDriver: Integer;
     grMode: Integer;
     ErrCode: Integer;
     Res: Integer;
Begin
    grDriver:=detect;
    InitGraph(grDriver, grMode, ‘x:\BP\BGI’);
    ErrCode:=GraphResult;
    If   ErrCode =  0  then
         Begin
???????????????????????? (Надо было учиться((((
Line (???) и т.д.

А да, вот ещё что помню):
End
                                 Else
         Begin
              сюда по-моему что-то помещается, когда программа не выполняется... не помню.
         End;
End.

Если кто может, помогите... С этим я как не дружил, так, похоже и не подружусь, а сделать надо...

Это сообщение отредактировал(а) volvo877 - 12.5.2009, 09:57

skulab

Дата 11.5.2009, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.5.2009

Репутация: нет
Всего: нет

Код


{ Рисует контур пятиконечной звезды } 
uses Graph;
var
r: integer; { радиус звезды )
хО,уО: integer; { координаты центра звезды }
х,у: integer; a: integer;
i: integer;
{ координаты конца луча }
{ угол между осью ОХ и прямой, соединяющей центр звезды и конец луча }
grDriver: Integer; grMode: 
Integer; ErrCode: Integer; 
res: integer;
begin
grDriver := detect;
InitGraph(grDriver, grMode,'e:\tp\bgi');
ErrCode := GraphResult;
if ErrCode <> grOk then
begin
writelnf'Ошибка инициализации графического режима.'); 
goto bye;
 end;
xO:=100; yO:=100; r:=20;
a:=18; ( строим от правого гор. луча } 
x:=xO+Round(r*cos(a*2*pi/360));
 y:=yO-Round(r*sin(a*2*pi/360));
 MoveTo(x,y); for i:=l to 5 do begin
a:=a+36;
x:=xO+Round(r/2*cos(a*2*pi/360));
y:=yO-Round(r/2*sin(a*2*pi/360));
LineTo(x,y);
a:=a+36;
if a > 360 then a:=18;
x:=xO+Round(r*cos(a*2*pi/360));
y:=yO-Round(r*sin(a*2*pi/360)); LineTo(x,y); 
end;
 readln;
end.

Это сообщение отредактировал(а) volvo877 - 12.5.2009, 09:56

MOHCTP

Дата 11.5.2009, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.8.2008

Репутация: нет
Всего: нет

Жаль нету 100 сабщев, так бы репутацию повысил... Спасибо огромное, выручили. Давайте сюда хоть ваш r-кошелёк...

volvo877

Дата 12.5.2009, 09:56 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Хм... То есть, неважно, что программа даже компилироваться не будет? Ну что-ж... Показательно...

MOHCTP

Дата 12.5.2009, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.8.2008

Репутация: нет
Всего: нет

Да нет, программа работает, всё в норме, было пару недочётов, но я уж не такой тупой, поправил)

skulab

Дата 16.5.2009, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.5.2009

Репутация: нет
Всего: нет

Здравствуйте, вот мой кошелек... R170511708639 ) Удачи, если что обращайтесь: ася: 404590739 или мыло: [email protected]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »