Народ помогите, нужен код программы, что бы нарисовать домик на цветном фоне в Паскале.
Народ помогите, нужен код программы, что бы нарисовать домик на цветном фоне в Паскале.
знаешь, я бы сказал что ты лентяй, но ты дурак! юзай Lineto
Проектная документация на домик?
программа написанная в PASCALe
Прит такой формулировке вопроса больше нечего написать.
Вам не кажется что нужно уточнить какой вы хотите домик, какое качество графики, где там какой фон, и т.д.
мне просто нужен код программы. домик обычный как рисовали в детстве в тетради. фон любово цвета. простой детский рисунок! кто может предложить свои варианты?
Одному уже предложили. Ты тоже можешь попробовать сходить вот
Ключевые слова: pascal, графика.
Версия компилятора: fpc-2.4.4.i386-win32
Код:
Program home;
uses crt, graph;
Procedure Graphinterface;
Var gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:=' ';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
delay (1000);
line(50,200,150,150);
delay (1000);
line(150,150,100,100);
delay (1000);
line(100,100,50,150);
delay (1000);
line(50,150,150,150);
delay (1000);
line(150,150,150,200);
delay (1000);
line(150,200,50,200);
delay (1000);
line(50,200,50,150);
delay (1000);
line(50,150,150,200);
repeat
until keypressed;
end.
uses crt, graph;
Procedure Graphinterface;
Var gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:=' ';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
delay (1000);
line(50,200,150,150);
delay (1000);
line(150,150,100,100);
delay (1000);
line(100,100,50,150);
delay (1000);
line(50,150,150,150);
delay (1000);
line(150,150,150,200);
delay (1000);
line(150,200,50,200);
delay (1000);
line(50,200,50,150);
delay (1000);
line(50,150,150,200);
repeat
until keypressed;
end.
спасибо, но эта программа не работает. не надо чтобы рисунок рисовался, надо что бы был на фоне.
выше сказано, какой компилятор юзать. а для фона есть спец функции, например setbkcolor(9); где вместо девятки может быть любое число, от 0 до 15.
есть и другие функции setcolor(8); и setfillstyle(1,14); и даже floodfill(x2+45,y-249,6);
И почему тебе не нравится, чтобы рисовался? Мне нравится, когда рисуется. Ну если не хочешь, чтобы рисовался, убери задержки delay (1000);
А по моему, замечательно рисуется белый домик на черном фоне.
Обалдеть можно, человеку решили задачу(осталось чуток под себя подпилить), а ему еще и не нравится
Не надо не куда ходить на сколько я понял в РОССИИ ЭТО В ПОРЯДКЕ ВЕЩЕЙ.
Месяц назад вернулся из РОССИИ это есть катострофа, такого не было когда я был USSR.
Кухня на кухне и кухней погоняют.
Кстати с 5-7 лет дети это говорят.
Цитата: UserNet2008
Месяц назад вернулся из РОССИИ это есть катострофа, такого не было когда я был USSR.
USSR закончилась в 1991-м году. И что, ты в детском возрасте уже был способен оценивать «порядок вещей»? ☺
USSR закончилась в 1991-м году. И что, ты в детском возрасте уже был способен оценивать «порядок вещей»? ☺
1991-м году мне было 26 лет. И работал на таких машинах х86, 286 если Вам это что-то говорит.
Но это уже к делу не относится…:-)