Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2012, 16:57   #1
mixazavra
 
Регистрация: 30.10.2012
Сообщений: 5
По умолчанию По моему чего то не хватает ?

Здравствуйте помогите разобраться, только начал изучать делфи вот у меня есть код программы(недописанный) подскажите как сделать так чтобы она рисовала снежинку по нажатию кнопки либо пользователь задает число веток и витков в заранее спасибо.Вот сам код

Код:
program primer_8;
{$S+}
Uses graph,crt;
label 1,2;
var x,y,a,b,p,n:integer;
t,l:real;
g:char;
procedure snow(x,y,k:integer;l:real);
var x1,y1:integer;
i:integer;
begin
if k=0 then exit;
for i:=1 to p do
begin
x1:=trunc(x+l*cos(2*pi*(i-1)/p));
y1:=trunc(y+l*sin(2*pi*(i-1)/p));
if (x1>640) or (y1>480) or (x1<0) or (y1<0) then begin
outtextxy(10,10,'Sorry, picture not on the screen !!!');
outtextxy(10,20,'Press any key for exit');
end;
if keypressed then halt;
line(x,y,x1,y1);
snow(x1,y1,k-1,l*t);
end;
end;
begin
x:=320;
y:=240;
g:='y';
write('Demo ? [Y/N] - '); readln(g);
if g='y'
  then
     begin  n:=3; p:=6; l:=100; t:=0.25; goto 1; end;
write('n='); readln(n);
if (n<=0) or (n>20)
   then
      begin write('No!');readln;goto 2; end;
write('p='); readln(p);
if (p<=0) or (p>50)
  then
    begin write('No!');readln;goto 2; end;
write('l= ');readln(l);
if (l<=0) or (l>250)
  then
    begin write('No!');readln;goto 2; end;
write('t='); readln(t);
1:a:=detect; b:=detect;
initgraph(a,b,'c:\lg\bgi');
snow(x,y,n,l);
readkey;
closegraph;
2:end.

Последний раз редактировалось Stilet; 30.10.2012 в 21:31.
mixazavra вне форума Ответить с цитированием
Старый 30.10.2012, 21:18   #2
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Код:
Uses graph,crt;
Уже не Дельфи.... Уверены, что не паскаль изучаете?

P.S. Для форматирования кода на форуме используются теги CODE.../CODE, а не DELPHI.../DELPHI. Или кнопочка #
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...

Последний раз редактировалось Sciv; 30.10.2012 в 21:21.
Sciv вне форума Ответить с цитированием
Старый 30.10.2012, 21:32   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Да эта программа на Делфи не пойдет.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 30.10.2012, 21:46   #4
mixazavra
 
Регистрация: 30.10.2012
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Да эта программа на Делфи не пойдет.
Мне просто надо написать программу на делфи так чтобы она рисовала по заданным пользователям данным рисовала снежику пользователь должен задать количество веток и витков снежинки.

у меня запускается но не происходит действие а именно не рисует вот в чем проблема

Последний раз редактировалось Stilet; 30.10.2012 в 21:55.
mixazavra вне форума Ответить с цитированием
Старый 30.10.2012, 21:52   #5
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Не рисует... а что делает? Хоть какой-то результат (текст из описанных в программе, ошибку) выдает?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...

Последний раз редактировалось Sciv; 30.10.2012 в 21:56.
Sciv вне форума Ответить с цитированием
Старый 30.10.2012, 22:37   #6
mixazavra
 
Регистрация: 30.10.2012
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Sciv Посмотреть сообщение
Не рисует... а что делает? Хоть какой-то результат (текст из описанных в программе, ошибку) выдает?
нет просто запускается без ошибки а если не помню нажать какую то кнопку выдает ошбиочку и все
mixazavra вне форума Ответить с цитированием
Старый 31.10.2012, 05:07   #7
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Попробуйте цвет линий задать. Может она рисует Вам черным по черному?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 31.10.2012, 12:04   #8
mixazavra
 
Регистрация: 30.10.2012
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Sciv Посмотреть сообщение
Попробуйте цвет линий задать. Может она рисует Вам черным по черному?
нет у меня проблема надо чтобы запускалось по нажатию кнопки и начинало рисовать но я не помню чего там надо для ентого сделать
mixazavra вне форума Ответить с цитированием
Старый 31.10.2012, 20:10   #9
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
но я не помню чего там надо для ентого сделать
Ну, судя по коду, последовательность такая:

1. На вопрос "Демо" ответить Н
2. Ввести значение n (от 1 до 19)
3. Ввести значение р (от 1 до 49)
4. Ввести значение l (от 1 до 249)
5. Ввести значение t - которое, кстати, в программе нигде не используется...
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 31.10.2012, 21:41   #10
mixazavra
 
Регистрация: 30.10.2012
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Sciv Посмотреть сообщение
Ну, судя по коду, последовательность такая:

1. На вопрос "Демо" ответить Н
2. Ввести значение n (от 1 до 19)
3. Ввести значение р (от 1 до 49)
4. Ввести значение l (от 1 до 249)
5. Ввести значение t - которое, кстати, в программе нигде не используется...
Просто я в делфи вообще почти не разбираюсь можешь помочь написать программу которая бы рисовала снежинку по заданным пользователям количеству витков и веток
mixazavra вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проблема с двуменрным массивом, не могу понять чего не хватает Hime_Aka Общие вопросы C/C++ 2 16.04.2009 00:20
Чего не хватает Windows ? (Опрос) BOBAH13 Софт 47 02.02.2009 19:42
Чего вам не хватает в вашем языке? crazy horse Свободное общение 3 02.09.2008 17:25