Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Necrover
2 / 2 / 0
Регистрация: 03.12.2014
Сообщений: 27
1

Графика, буквы 2D И 3D

08.12.2014, 02:22. Просмотров 706. Ответов 1
Метки нет (Все метки)

За данным примером реализовать букву 'Л' в 2D и 3D. Пример с буквой 'Ш':
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses graphabc;
procedure p2d;
begin
 setbrushcolor(clperu);
 fillrect(120,300,500,350);//shpala
 fillrect(120,350,170,100);//\\1 stovp
 fillrect(285,350,335,100);//\\2stovp90
 fillrect(450,350,500,100);//3stovp
 end;
 
procedure p3d;
begin
Brush.Color := clblack;    
moveto(310,202);//9
lineto(400,162);//12
lineto(310,122);//11
lineto(220,162);//10
lineto(310,202);//9
lineto(310,390);//8
lineto(230,430);//7
lineto(230,240);//3
lineto(140,200);//2
lineto(50,240);//1
lineto(140,280);//4
lineto(140,520);//6
lineto(50,480);//5
lineto(50,240);//1
moveto(140,280);//4
lineto(230,240);//3
moveto(400,162);//12
lineto(400,346);//17
lineto(468,312);//18
lineto(468,128);//13
lineto(388,86);//14
lineto(468,48);//15
lineto(558,88);//16
lineto(558,312);//19
lineto(140,520);//6
moveto(468,128);
lineto(558,88);
moveto(388,86);
lineto(388,156);
moveto(220,162);
lineto(220,236);
moveto(310,390);
lineto(230,352);
moveto(468,312);
lineto(400,276);
floodfill(145,300,clPlum);
floodfill(130,300,clperu);
floodfill(290,300,clperu);
floodfill(460,300,clPERU);
floodfill(55,240,clwheat);
floodfill(310,190,clwheat);
floodfill(468,120,clwheat);
floodfill(240,400,clwheat);
floodfill(410,330,clwheat);
end;
var i:integer;
begin
Writeln('Enter 0 if 2D or 1 if 3');
Readln(i);
if i=0 then p2d else p3d;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2014, 02:22
Ответы с готовыми решениями:

Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B
Здравствуйте,помогите пожалуйста написать программу .Напишите программу,...

Файл содержит буквы,посчитать буквы 'p'. нужно только найти ошибку
Помогите пожалуйста найти ошибку) Файл содержит буквы латинского алфавита....

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

Дана строка S, удалить из нее все буквы (а), а буквы (о) заменить на 0
Дана строка S, удалить из нее все буквы (а), а буквы (о) заменить на 0. ...

Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец
Дан некоторый текст. Переставить в нем все буквы &lt;&lt;a&gt;&gt; в начало, а буквы &lt;&lt;я&gt;&gt;...

1
Necrover
2 / 2 / 0
Регистрация: 03.12.2014
Сообщений: 27
11.12.2014, 06:36  [ТС] 2
Проблема актуальна.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2014, 06:36

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

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

Задано слово из 7 букв . Если первая и последняя его буквы совпадают то поместить буквы этого слова
Задано слово из 7 букв . Если первая и последняя его буквы совпадают то...


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

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

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