Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
l3ounTy
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 3
1

Используя библиотеку графических примитивов построить узор

17.01.2013, 15:12. Просмотров 981. Ответов 3
Метки нет (Все метки)

Используя библиотеку графических примитивов построить узор. Обязательно предусмотреть возможность изменения параметров рисунка (размеров, числа повторяющихся элементов и т.п.).
0
Миниатюры
Используя библиотеку графических примитивов построить узор  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2013, 15:12
Ответы с готовыми решениями:

Использование графических примитивов
Используя графические примитивы,задав параметры пера и кисти нарисовать щенка! Скажите как это...

Построение основных графических примитивов
С помощью процедуры нарисовать узор

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

Постройте графическое изображение с использованием графических примитивов
Изобразите мигающую мишень и летящую в нее стрелу

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

3
Puporev
Модератор
56632 / 43308 / 29939
Регистрация: 18.05.2008
Сообщений: 103,044
17.01.2013, 16:29 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
uses graphABC;
type point=record
           x,y:integer;
           end;
var a,y,i:integer;
procedure romb(x:integer);
var p:array[1..5] of point;
begin
p[1].x:=x;p[1].y:=y+a;
p[2].x:=x-a;p[2].y:=y;
p[3].x:=x; p[3].y:=y-a;
p[4].x:=x+a; p[4].y:=y;
p[5]:=p[1];
polygon(p,5);
end;
 
begin
a:=windowwidth div 10;
y:=windowheight div 2;
for i:=1 to 3 do
 begin
  romb(2*a+(i-1)*a);
  romb(windowwidth-2*a-(i-1)*a);
 end;
romb(windowwidth div 2);
end.
0
l3ounTy
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 3
17.01.2013, 16:36  [ТС] 3
Большое спасибо, можете попробывать еще 1 работу более сложную??!
0
Puporev
Модератор
56632 / 43308 / 29939
Регистрация: 18.05.2008
Сообщений: 103,044
17.01.2013, 16:48 4
Форум всегда и для всех. Пишите, а уж решат или нет, как повезет. Только создавайте новую тему.
0
17.01.2013, 16:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.01.2013, 16:48

Построить узор из вложенных квадратов
Всем привет, начинающий программист... :) Задача следующая: Построить узор, показанный на рис....

построить узор полученый из шести групп двадцати вложенных правильных треугольников
Помогите пожалуйста с этой задачей:построить узор(рис.1) полученый из шести групп двадцати...

Построить фигуру на основе нескольких вариантов графических примитивов
Подскажите пожалуйста, как парвильно написать эти задания


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

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

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