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

Написать программу, которая позволяет нарисовать закрашенный треугольник

25.04.2013, 21:46. Показов 2423. Ответов 1
Метки нет (Все метки)

Задание 4.
Написать программу, которая позволяет нарисовать закрашенный треугольник.


Помогите, пожалуйста!

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

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

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

Нарисовать треугольник закрашенный символом лунного серпа
Здравствуйте, помогите, пожалуйста! Нарисовать треугольник закрашенный символом лунного серпа.

Нарисовать в разных местах экрана сектор эллипса, закрашенный треугольник, ромб, прямоугольник
а) Нарисовать в разных местах экрана сектор эллипса, закрашенный треугольник, ромб, прямоугольник.

1
10 / 6 / 11
Регистрация: 18.12.2012
Сообщений: 31
26.04.2013, 04:11 2
Лучший ответ Сообщение было отмечено Матвеев Филипп как решение

Решение

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

Добавлено через 13 минут
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
 uses graphABC;
var t:array of Point;
    x,y:integer;
begin
setlength(t,4);
setwindowsize(500,500);
writeln('Введите координаты вершин треугольника от 50 до 450:');
repeat
writeln('x1,y1:');
read(x,y);
t[0].X:=x;t[0].Y:=y;
until(t[0].X>=50)and(t[0].X<=450)and (t[0].Y>=50)and(t[0].Y<=450);
repeat
writeln('x2,y2:');
read(x,y);
t[1].X:=x;t[1].Y:=y;
until(t[1].X>=50)and(t[1].X<=450)and (t[1].Y>=50)and(t[1].Y<=450);
repeat
writeln('x3,y3:');
read(x,y);
t[2].X:=x;t[2].Y:=y;
until(t[2].X>=50)and(t[2].X<=450)and (t[2].Y>=50)and(t[2].Y<=450);
t[3]:=t[0];
clearwindow;
setpencolor(clred);
setbrushcolor(clred);
Polygon(t);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2013, 04:11

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

Написать программу, которая позволяет получит следующую информацию
Написать программу, которая позволяет получит следующую информацию: - всю программу телепередач...

Написать программу, которая позволяет просматривать текстовые файлы
Написать программу, которая позволяет просматривать текстовые файлы...

Написать программу, которая позволяет вводить целочисленную матрицу
1) Написать программу, которая позволяет вводить одномерный целочис-ленный массив из 10 элементов и...

Написать программу, которая позволяет получить следующую справочную информацию
Написать программу, которая позволяет получить следующую справочную информацию: -список...


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

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

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