Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
Nin4ik
1

Построить и закрасить треугольники

20.05.2011, 21:37. Показов 1610. Ответов 3
Метки нет (Все метки)

Помогите решить задачу)

Даны натуральные числа В1,...Вn-Число последовательностей(задается с клавиатуры).Каждые шесть чисел В0 Bi+1,Bi+2,Bi+3,Bi+4,Bi+5,Bi+6,где i-кратно 6,задают координаты вершин треугольника со сторонами,где B0 Bi+1-координаты первой вершины,Bi+2,Bi+3-координаты второй вершины,Bi+4,Bi+5-координаты третьей вершины треугольника.Построить и закрасить треугольники.

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2011, 21:37
Ответы с готовыми решениями:

Построить и закрасить круги
Даны числа n, a0, a1, a2,...a3n-1. Каждая тройка чисел ai, ai+1, ai+2, где i кратно трем, задает...

Построить круги и закрасить
дано последовательность из 40 натуральных чисел х1, у1, r1 .... x10, и y10, r 10. Каждая тройка...

Построить и закрасить треугольник
Может у кого что примерное есть...... 1)Построить и закрасить треугольник с вершинами (50,50),...

Построить треугольник по данным и закрасить его
с клавиатуры вводятся длины сторон треугольника a,b,c. Построить треугольник по этим данным и...

3
Модератор
63707 / 47266 / 32576
Регистрация: 18.05.2008
Сообщений: 114,559
21.05.2011, 10:49 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
uses crt,graph;
const nmax=20;
var b:array[0..6*nmax-1] of integer;{массив точек}
    n,i,k,g,d,c,x1,y1,x2,y2,x,y:integer;
begin
clrscr;
randomize;
repeat
write('Kol. treugolnikov do ',nmax,' n=');
readln(n);
until n in [1..nmax];
initgraph(g,d,'');
{заполнение массива на Ваше усмотрения, 
я сделал рандомно для быстрой проверки алгоритма}
for i:=0 to 6*n-1 do
b[i]:=random(getmaxY-1)+1;
for k:=1 to n do{по количествк треугольников}
 begin
  if k mod 16=0 then c:=8{исключаем черный цвет}
  else c:=k;
  i:=6*(k-1);{индекс первой точки из 6}
  setcolor(c);
  setfillstyle(1,c);{рисуем треугольник}
  line(b[i],b[i+1],b[i+2],b[i+3]);
  line(b[i+2],b[i+3],b[i+4],b[i+5]);
  line(b[i],b[i+1],b[i+4],b[i+5]);
  {ищем точку внутри треугольника для заливки} 
  x1:=b[i]+(b[i+2]-b[i])div 2;{середина стороны}
  y1:=b[i+1]+(b[i+3]-b[i+1]) div 2;
  x:=x1+(b[i+4]-x1) div 2;{середина медианы на эту сторону}
  y:=y1+(b[i+5]-y1) div 2;
  floodfill(x,y,c);{закраска}
 end;
readln
end.
1
Nin4ik
21.05.2011, 11:33 3
спасибо вам огромное)а можно еще блок-схему?
Модератор
63707 / 47266 / 32576
Регистрация: 18.05.2008
Сообщений: 114,559
21.05.2011, 11:42 4
Схема нарисована редактором, если что, перерисуйте...
0
Вложения
Тип файла: doc Doc2.doc (22.0 Кб, 11 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2011, 11:42

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

Построить 4 концентрических квадрата. Внутреннюю область закрасить
Я в безвыходном положении, господа.. и поэтому прошу вас решить эту "простую" задачку.. И...

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

Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана
Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана....

Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана
35. Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром...


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

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

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