Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/16: Рейтинг темы: голосов - 16, средняя оценка - 4.50
W8
1 / 1 / 0
Регистрация: 01.11.2012
Сообщений: 6
1

Создание рисунков

01.11.2012, 01:14. Просмотров 3173. Ответов 2
Метки нет (Все метки)

Добрый вечер, помогите пожалуйста нарисовать рисунки в Turbo Pascal так как на картинках
0
Миниатюры
Создание рисунков   Создание рисунков  
Изображения
 
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.11.2012, 01:14
Ответы с готовыми решениями:

Составить программу рисования одного из рисунков
я не понимаю как это делать3. program parovoz; circle(80,80,20);

Воспроизводить все усложняющийся порядок нажатия кнопок или рисунков
Требуется воспроизводить все усложняющийся порядок нажатия кнопок или рисунков. Должно...

Работа с графикой: создание рисунков
Помогите написать код, чтоб получились такие рисунки.

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

2
Модератор
62535 / 46711 / 32195
Регистрация: 18.05.2008
Сообщений: 113,051
01.11.2012, 10:49 2
Лучший ответ Сообщение было отмечено W8 как решение

Решение

3.
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
uses graph;
var x,y,r,d:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
d:=y div 2;
r:=round(y*sin(pi/8)/2/cos(pi/8))-2;
setcolor(15);
setfillstyle(1,15);
bar(0,0,2*x,2*y);
setcolor(0);
setlinestyle(0,0,3);
rectangle(x-d,y-d,x+d,y+d);
line(x-d,y,x,y-d);
line(x,y-d,x+d,y);
line(x+d,y,x,y+d);
line(x,y+d,x-d,y);
setfillstyle(1,0);
floodfill(x,y,0);
setcolor(15);
circle(x,y-r-1,r);
circle(x,y+r+1,r);
setfillstyle(1,15);
floodfill(x,y-r,15);
floodfill(x,y+r,15);
readln
end.
Добавлено через 1 час 7 минут
2.
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
uses graph;
var x,y,r,d,i:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setfillstyle(1,15);
bar(0,0,2*x,2*y);
r:=y div 2;
setcolor(0);
setfillstyle(1,9);
bar(x-r,y-r,x+r,y+r);
setlinestyle(0,0,3);
rectangle(x-r,y-r,x+r,y+r);
setcolor(15);
setfillstyle(1,15);
circle(x,y,r);
floodfill(x,y,15);
setcolor(0);
circle(x,y,r);
setcolor(11);
line(x-r,y,x,y-r);
line(x,y-r,x+r,y);
line(x+r,y,x,y+r);
line(x,y+r,x-r,y);
setfillstyle(1,11);
floodfill(x,y,11);
setcolor(0);
line(x-r,y,x,y-r);
line(x,y-r,x+r,y);
line(x+r,y,x,y+r);
line(x,y+r,x-r,y);
d:=r div 2;
setlinestyle(0,0,1);
for i:=1 to 3 do
 begin
  line(x-r+i*d,y-r,x-r+i*d,y+r);
  line(x-r,y-r+i*d,x+r,y-r+i*d);
 end;
readln
end.
1
W8
1 / 1 / 0
Регистрация: 01.11.2012
Сообщений: 6
01.11.2012, 23:42  [ТС] 3
Благодарю, но у меня показывает что это абсолютно одинаковые рисунки такие как на 2й картинке

Добавлено через 18 минут
А нет, извиняюсь ошибся, все прекрассно работает, спасибо)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2012, 23:42

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

Надо написать 3 алгоритма для данных рисунков!

Написать программу, которая нарисует несколько рисунков
Здравствуйте, такое вот задание, может помочь кто?) Можно нарисовать все в одной программе если...

Составьте программу вычерчивания рисунков из элементарных графических примитивов
Помогите решить. Составьте программу вычерчивания рисунков из элементарных графических примитивов

Можно ли сделать в модуле graph удаление рисунка(группы рисунков))
Доброго вечера дорогие форумчане начал писать свою игру на Паскале и столкнулся с такой проблемой...

Создание рисунков на java
помогите пожалуйста нарисовать рисунок на языке java.заранее спасибо)

создание таблицы из нескольких рисунков
мне нужно создать таблицу: с лева колонка (в ней изображение но оно не должно растягиваться и...


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

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

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