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

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

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

на Паскале
Пользуясь функциями модуля Graph, создать изображение Снеговика
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2009, 21:46
Ответы с готовыми решениями:

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

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

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

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

3
Seqular
25 / 13 / 2
Регистрация: 06.01.2009
Сообщений: 87
23.02.2009, 06:42 2
Три залитые окружности + ведро на макушке ) Рекомендую картинку нарисовать в Paint (рисунок 640х480) и по тем точкам (коорд. X, Y) уже рисовать в программе.
0
hector.A.
1 / 1 / 0
Регистрация: 08.12.2008
Сообщений: 26
23.02.2009, 18:09  [ТС] 3
Не поскажите код ???
0
error777
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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2009, 18:49

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

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

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

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

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


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

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

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