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

Вывести треугольники

02.03.2010, 12:07. Показов 1019. Ответов 1
Метки нет (Все метки)

Никак не пойму как делать эту задачу. Если кто-то ее сделает, то если Вам не трудно, можете некоторые обьяснения написать, чтоб я понял как это делается:

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

Буду очень благодарен за любую помощь.
0

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

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

С помощью рекурсии вывести вложенные друг в друга треугольники
С помощью рекурсии выводит вложенные треугольники друг в друга. помогите пожалуйста написать эту...

треугольники
Скласти програму, яка перевіряє, скільки існує трикутників із за пропонованими довжинами сторін а,...

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

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

1
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,134
02.03.2010, 12:52 2
Лучший ответ Сообщение было отмечено yura` как решение

Решение

Условие не совсем однозначное, вот для правильных треугольников. Почитайте в этой книге раздел о модуле Graph(хотя и другое не возбраняется) и можете делать программу хоть как.
https://www.cyberforum.ru/atta... 1241779566
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
uses crt,graph;
type Tpoint=record//тип точка
            x,y:integer;
            end;
procedure Treug(x0,y0:integer);//рисование треугольника
var x1,y1,d,a,i:integer;
    p:array[1..4] of Tpoint;//массив точек 3+1 для замыкания
begin
d:=random(200)+10;//радиус описанной окружности
x1:=random(x0-2*d)+d;//координаты центра с учетом чтобы треугольник попал на экран
y1:=random(y0-2*d)+d;
a:=random(360);//начальный угол
for i:=1 to 3 do//координаты вершин правильного треугольника
  begin
   p[i].x:=x1+round(d*cos(a*pi/180));
   p[i].y:=y1-round(d*sin(a*pi/180));
   a:=a+120;
  end;
p[4].x:=p[1].x;//замыкание
p[4].y:=p[1].y;
MoveTo(p[1].x,p[1].y);//в первую точку
SetColor(random(14)+1);//случайный цвет
Setlinestyle(random(4),0,random(3)+1);//случайный стиль
for i:=1 to 4 do
LineTo(p[i].x,p[i].y);//соединяем линиями вершины
end;
var  x,y,n,i:integer;
begin
clrscr;
write('Kolichestvo treugolnikov n=');
readln(n);
InitGraph(x,y,'');
x:=getmaxX;y:=getmaxY;//размеры экрана
for i:=1 to n do
Treug(x,y);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2010, 12:52

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

Проверить равны ли треугольники
Два треугольника заданы своими координатами. Проверить равны ли эти треугольники.

Треугольники в 3х мерном пространстве
Помогите пожалуйса написать программу, Задание: Для вещественных чисел Х1, У1, Z1, Х2, У2, Z2,...

Построить и закрасить треугольники
Помогите решить задачу) Даны натуральные числа В1,...Вn-Число последовательностей(задается с...

Являются ли данные треугольники подобными
Числа a и b выражают длины катетов одного прямоугольного триугольника,a c и d - другой.Эти...


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

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

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