3 задачки на графику, помогите плиз Опции

[лёшик]

По поводу существования или несуществования языка Дельфи тупо открываем Википедию и читаем:
Delphi (Де́льфи, произносится /ˈdɛlˌfi/[1]) — язык программирования, который используется в одноимённой среде разработки. Название используется начиная с 7 версии среды разработки[2], ранее это был Object Pascal...

Добавлено через 7 мин.
Нет, создание каталога ТР не помогло. Может, этот каталог нужно где-то конкретно поставить? В корне диска С: например? Правда, пробую, не хочет он зараза работать. Придется пробовать FPC, что это такое, кстати?

Добавлено через 3 мин.
Так и пишет зараза что неправильный каталог запуска, и предлагает проверить PIF-файл

[Archon]

Так и пишет зараза что неправильный каталог запуска, и предлагает проверить PIF-файл

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

[Lapp]

Сорри за дезу.
Хотя я на месте Вирта накатил бы на них бочку..))

[лёшик]

Ну раз графика, значит графика. Ща нарисуем увеличивающийся мячик и наклоняющуюся ветку в Канвасе D7 методами "эллипс", "прямая линия" и "ОнТаймер" и будем наблюдать как зреющее яблоко ветку ломает, чтобы меньше было повода в оффтопе обвинять
А Вирт думаю возражать бы не стал, он бы понял, что от прогресса не спрячешься, тем более, что он вполне качественный и закономерный)))
И кстати, о каком ярлыке идет речь? Запускать я пытаюсь прямо пусковой экзешник в папке \BIN, ни какие ярлыки в этом процессе вроде как не участвуют

Сообщение отредактировано: лёшик - 27.06.2009 20:11

[volvo]

Ща нарисуем увеличивающийся мячик и наклоняющуюся ветку в Канвасе D7 методами "эллипс", "прямая линия" и "ОнТаймер" и будем наблюдать как зреющее яблоко ветку ломает, чтобы меньше было повода в оффтопе обвинять

В данной ветке форума это будет не меньшим оффтопом, чем все предыдущее сообщение. Еще раз: не получается запустить Паскаль - при чем тут "Задачи"? Есть раздел "ОС и ПО", где твоя проблема будет к месту... А для рисование на Канвасе есть раздел Дельфи...

[Гость]

да вы че оффтоп действительно развели - раздел надо читать, а раздел - PASCAL.
а тут началось, у кого не получается делфи запустить.

и по-моему просилось помочь именно с задачами на ПАСКАЛе...

читать надо топик...

[phoenix85]

все, все сделал задачки, кроме ветки с растущим плодом...
все таки никак не приходит на ум...

Сообщение отредактировано: phoenix85 - 29.06.2009 13:37

[phoenix85]

ну помогите с программой то...

ветка гнется под тяжестью растущего плода...

Сообщение отредактировано: phoenix85 - 29.06.2009 18:00

[Archon]

ну помогите с программой то...

ветка гнется под тяжестью растущего плода...

phoenix85, в этом разделе не помогают сдать зачет. В нем помогают научиться решать задачи. Если ты не попытаешься выполнить задание сам, то вряд-ли кто-нибудь захочет сделать это за тебя. И создавать дублирующие темы бесполезно.

Выше, я привел тебе основу программы. Ты понял как она работает? А что и куда нужно добавить, ясно? Если да, то что мешает попробовать нарисовать самому? Когда у тебя возникнут конкретные вопросы, тогда мы поможем.

Если самому решать ну совсем лень, могу посоветовать раздел "Задачи на заказ".

[phoenix85]

вас по нормальному просят,

а вам так тяжело помочь человеку..

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

[Krjuger]

Ты знаеш,а если я тебя попрошу мне миллион долларов дать,ты мне их даш????Или тебе что сложно чтоли????Я по нормальному прошу же.К тебе отнеслись вполне соответственно тому,что ты представляеш.

отдыхайте...

Спасибо о великий,что разрешил....
ты пришел на форум с вопросом и заметь тут никого ничто не обязывает тебе хотябы на что то отвечать.А так вот обьясни глупым причину по которой тебе должны помогать,если ты сам не собираешся работать.Все что нужно тебе уже дали,стряхни пыль со своих шариков в голове и заставь свой перпетум мобиль работать.

Сообщение отредактировано: Krjuger - 1.07.2009 1:29

[phoenix85]

сори перед всеми, если обидел...

есть часть кода? но не доделаю никак:

program krug;
uses crt,graph;
var i, j, gd, gm, r:integer; Stage: Integer;


const
	FrameDelay = 50; { Задержка кадра.  }
	NumStages = 100; { Число степеней "зрелости" фрукта. }
	
procedure DrawBranch(Stage: Integer; Draw: Boolean);
begin
	{ ... }
	{ Здесь надо поместить код рисования ветки с фруктом в зависимости от степени }
	{ зрелости фрукта (Stage). В примере это число меняется от 0 до 99, но ты     }
	{ можешь сделать так, как будет удобнее. Если Draw = false, то рисовать надо  }
	{ черным цветом, если Draw = true, то рисовать надо обычными цветами.         }
	
	{ Это просто пример, чтобы убедиться, что все работает: }
	if Draw then SetColor(Red) else SetColor(Black);
	Line(10, 50, 200, 250 + Stage);
end;


begin
	gd := Detect;
	InitGraph(i,j, 'c:\tp\bgi');
	
	{ Основной цикл. }
	Stage := 0;
	repeat
		{ Стираем ветку. }
		DrawBranch(Stage, false);
		{ Переходим на новую стадию наклона. }
		Inc(Stage);
		{ Рисуем ветку в новой стадии. }
		DrawBranch(Stage, true);
		{ Задержка, чтобы кадры не сменяли друг друга слишком быстро. }
		Delay(FrameDelay);
	until Stage > NumStages;
	


begin
i:=detect;

if graphresult<>grok then
begin

writeln(grapherrormsg(graphresult));
halt;
end;
SetColor(0);i:=5;j:=5;r:=3;
while (j+r<GetMaxY)and(not(keypressed)) do
begin
SetFillStyle(1,12);
fillEllipse(i,j,r,r);
delay(1000);
SetFillStyle(1,0);
fillEllipse(i,j,r,r);
inc(i);
inc(j);
if i mod 5=0 then inc®;
end;
readkey;
end;
end.

это все, что я смог сделать...