Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
kiri494
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 7
1

Нарисовать зигзаг

18.04.2011, 23:07. Просмотров 965. Ответов 1
Метки нет (Все метки)

Помогите с заданием.
0
Миниатюры
Нарисовать зигзаг  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2011, 23:07
Ответы с готовыми решениями:

Нарисовать флаг, нарисовать график y=ctg x Нарисовать анимацию
Дело таково у меня сейчас практика, где я очень не успиваю сделать все свои...

Зигзаг параллельно побочной диагонали
Нужно создать матрицу и заполнить ее таким образом: 1 2 6 7 15 16 28 ... ...

Нарисовать зигзаг из линий
Нарисовать зигзаг из линий: в программе задаются координаты начальной точки, а...

Алгоритм зигзаг сканирования матрицы
Здравствуйте, подскажите пожалуйста - как релизуется алгоритм "зигзаг"...

Как gl_line_loop заполнить цветом или им же нарисовать нарисовать сферу
или же нарисовать примерно точно также как на изображении, и потом при диалоге...

1
Puporev
Модератор
55108 / 42354 / 29252
Регистрация: 18.05.2008
Сообщений: 100,076
19.04.2011, 10:23 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
uses crt,graph;
procedure Fig(x,y,w,h,n,c:integer);
var x1,y1,x2,y2,x3,y3,i:integer;
begin
setcolor(c);
for i:=1 to n do
 begin
  x1:=x;y1:=y+(i-1)*h;
  x2:=x+w;y2:=y1;
  x3:=x2;y3:=y2+h;
  line(x1,y1,x2,y2);
  line(x1,y1,x3,y3);
 end;
line(x1,y3,x2,y3);
end;
var n,w,h,c,g,d:integer;
begin
clrscr;
write('Kol. fig. n=');
readln(n);
write('Shirina w=');
readln(w);
write('Vysota 1 fig. h=');
readln(h);
write('Nomer cveta [1..15] c=');
readln(c);
g:=0;
initgraph(g,d,'');
Fig(50,50,w,h,n,c);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2011, 10:23

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

Нарисовать трапецию, после чего нарисовать ее зеркальную копию (относительно диагонали 1го квадранта) и уменьшить
Собственно сделал так, только пока что без уменьшения, отзеркаленную копию...

Нарисовать лес на экране (нарисовать дерево, и размножить его на экране)
73. Нарисовать лес на экране (нарисовать дерево, и размножить его на экране)


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

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

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