Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.84/19: Рейтинг темы: голосов - 19, средняя оценка - 4.84
1 / 1 / 0
Регистрация: 08.12.2008
Сообщений: 26
1

Пользуясь функциями модуля Graph, создать изображение Снеговика

22.02.2009, 21:46. Просмотров 3800. Ответов 3
Метки нет (Все метки)


на Паскале
Пользуясь функциями модуля Graph, создать изображение Снеговика
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2009, 21:46
Ответы с готовыми решениями:

Пользуясь функциями модуля Graph, создать изображение "Калейдоскоп"
Пользуясь функциями модуля Graph, создать изображение: • “Калейдоскоп ” из цветных линий;...

Создать абстрактный класс с виртуальной функцией вычисления нормы и модуля; определить производные классы с собственными функциями
Прошу вашей интеллектуальной помощи) Условие задачи: 16. Создать абстрактный класс Norm с...

Нарисовать изображение снеговика
procedure TForm1.Button1Click(Sender: TObject); begin canvas.Pen.Color:=claqua;...

Пользуясь функциями вернуть десятичное значение строки
Люди подскажите не могу понять формирование входной очереди.Задача такая: создать динамический...

3
25 / 13 / 2
Регистрация: 06.01.2009
Сообщений: 87
23.02.2009, 06:42 2
Три залитые окружности + ведро на макушке ) Рекомендую картинку нарисовать в Paint (рисунок 640х480) и по тем точкам (коорд. X, Y) уже рисовать в программе.
0
1 / 1 / 0
Регистрация: 08.12.2008
Сообщений: 26
23.02.2009, 18:09  [ТС] 3
Не поскажите код ???
0
88 / 10 / 2
Регистрация: 07.02.2009
Сообщений: 226
23.02.2009, 18:49 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program baba;
uses graph;
var a,b:integer;
begin
a:=detect;
initgraph(a,b,'');
setbkcolor(1); {цвет фона*}
Setcolor(15); {цвет линий}
circle(358,183,36);
circle(358,287,70);
circle(358,475,115);
line(317,151,399,151);
line(317,151,340,100);
line(340,100,378,100);
line(378,100,399,151);
arc(358,183, 360,170,25); {рот}
circle(346,170,5); {левый глаз}
circle(370,170,5); {правый глаз }
ellipse (294,592,360,0,31,18); {левоя нога*}
ellipse (410,595,360,0,31,18); {правоя нога*}
line(288,287,183,393); {левоя рука}
Line(212,364,212,406);
line(212,364,174,365);
line(427,287,507,393); {Правоя рука*}
line(485,364,516,406);
line(536,365,485,365);
readln;
closegraph;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2009, 18:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Строка: Получить длину строки, не пользуясь библиотечными функциями...
Напишите функцию для измерения длины строки, не пользуясь библиотечными функциями.

Написать программу, которая выводит на экран изображение снеговика на голубом фоне
Написать программу, которая выводит на экран изображение снеговика на голубом фоне. При нажатии на...

Написать программу, которая выводит на экран изображение снеговика на голубом фоне
Написать программу, которая выводит на экран изображение снеговика на голубом фоне. При нажатии на...

Найти значение функции sin(x), не пользуясь встроенными функциями языка, с заданной точностью
Найти значение функции sin(x), не пользуясь встроенными функциями языка, с заданной точностью.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.