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

Нарисовать узор, составленный из геометрических фигур заданных случайными координатами

05.04.2012, 10:51. Показов 1588. Ответов 1
Метки нет (Все метки)

помогитеееее!!!срочно плиз!!!!!задача на паскаль абс
нужно написать прогорамму которая выводит на экран причудливый узор составленый из геометрнических фигур заданных случайными координатами
p,s, в задаче ЖЕЛАТЕЛЬНО НЕИСПОЛЬЗОВАТЬ ЦИКЛ
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2012, 10:51
Ответы с готовыми решениями:

Найти сумму периметров заданных геометрических фигур
Олимпиадная задачка: На доске наклеено несколько листов объявлений. Все они прямоугольной формы....

Из простейших геометрических фигур нарисовать рыбку
1. Из простейших геометрических фигур нарисовать рыбку. 2. Изобразить на экране две окружности,...

Нарисовать 5 вписанных друг в друга геометрических фигур
Мне нужно нарисовать 5 вписанных друг в друга геометрических фигур

Как прочитать с файла параметры геометрических фигур и нарисовать их?
Необходимо создать простейшую программу на vs, считывает из файла параметры геометрических фигур,...

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.04.2012, 15:55 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от zheka98 Посмотреть сообщение
заданных случайными координатами
Если координаты задавать случайно, то никакого узора не будет, будет абстакция...

Добавлено через 6 минут
Вот пример циклического заполнения экрана разными фигурами. А вообще нужно нормально и конкретно писать условие, не пойди туда не знаю куда. И не нужно говорить что так и було, Вам дали задание, Вы должны придумать узор.

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
38
39
40
41
42
43
44
uses graph;
{чистые квадраты - белый и черный}
procedure Kvad1(x,y,w,c:integer);
begin
setcolor(c);
rectangle(x,y,x+w,y+w);
setfillstyle(1,c);
floodfill(x+2,y+2,c);
end;
{квадрат с перевернутым треугольником внутри}
procedure Kvad2(x,y,w,c1,c2:integer);
var x1,y1,x2,y2,d:integer;
begin
d:=w div 2;
setcolor(c1);
rectangle(x,y,x+w,y+w);
setfillstyle(1,c1);
floodfill(x+2,y+2,c1);
x1:=x+w;y1:=y;
x2:=x+d;y2:=y+w;
setcolor(c2);
line(x,y,x1,y1);
line(x1,y1,x2,y2);
line(x,y,x2,y2);
setfillstyle(1,c2);
floodfill(x+d,y+2,c2);
end;
var x,y,w:integer;
begin
x:=0;
initgraph(x,y,'');
w:=50;
for y:=0 to getmaxY div w do
for x:=0 to getmaxX div w do
 begin
  if y mod 2=1 then
   begin
    if(x mod 2=0) then Kvad1(x*w,y*w,w,15)
    else Kvad1(x*w,y*w,w,0);
   end
  else Kvad2(x*w,y*w,w,10,13);
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.04.2012, 15:55

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

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

Названия геометрических фигур
Подскажите, пожалуйста, названия следующих геометрических поверхностей. z = x2 + y2 z = x2 - y2...

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

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

HELP!!! движение геометрических фигур
Нужна помощь в написании программы движения круга на экране хотя бы чтоб двигался туда сюда по...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru