0 / 0 / 0
Регистрация: 16.02.2014
Сообщений: 6
1

Изменить код, чтобы контуры были черные, а сама звезда была зелено-красная

16.02.2014, 17:11. Показов 1528. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
Program Zvezda;
Uses GraphABC;
 
begin
setpencolor(clRed);
Line(290, 111, 240, 190);
Line(240, 190, 171, 190);
Line(170, 190, 241, 250);
Line(241, 250, 209, 320);
Line(209, 320, 290, 289);
Line(290, 289, 369, 318);
Line(369, 318, 340, 248);
Line(340, 248, 410, 190);
Line(410, 190, 340, 190);
Line(340, 190, 289, 111);
//Внутренние линии
Line(289, 113, 289, 289);
Line(242, 249, 341, 190);
Line(340, 249, 242, 190);
Line(171, 191, 290, 220);
Line(291, 220, 411, 191);
Line(209, 319, 290, 222);
Line(290, 222, 369, 321);
 
Readln;
Closewindow;
End.

Допишите пожалуйста так, что бы контуры были черные, а сама звезда была зелено-красная и за счет расцветки смотрелась объемной.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.02.2014, 17:11
Ответы с готовыми решениями:

Стек. Что добавить в код, или как изменить его, чтобы в нём были структуры ?
Программа выводит второй стек, состоящий из положительных элементов первого стека. Преподаватель...

Стек. Что добавить в код, или как изменить его, чтобы в нём были структуры ?
Программа выводит второй стек, состоящий из положительных элементов первого стека. Преподаватель...

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

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

10
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.02.2014, 17:30 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
Program Zvezda;
Uses GraphABC,pointrect;
var x,y,a,i,c:integer;
    p:array[1..11]of point;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
a:=18;
for i:=1 to 11 do
 begin
  if i mod 2=0 then
   begin
    p[i].x:=x+round(100*cos(a*pi/180));
    p[i].y:=y-round(100*sin(a*pi/180));
   end
  else
   begin
    p[i].x:=x+round(200*cos(a*pi/180));
    p[i].y:=y-round(200*sin(a*pi/180));
   end;
  a:=a+36;
 end;
setpenwidth(3);
polygon(p,11);
for i:=1 to 10 do
line(x,y,p[i].x,p[i].y);
for i:=1 to 10 do
 begin
  if odd(i) then c:=clRed
  else c:=clGreen;
  floodfill((x+p[i].x+p[i+1].x)div 3,(y+p[i].y+p[i+1].y) div 3,c)
 end;
end.
0
0 / 0 / 0
Регистрация: 16.02.2014
Сообщений: 6
16.02.2014, 17:45  [ТС] 3
а можно просто цвета добавить? без ввода переменных, ибо сразу понятно кто делал.
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.02.2014, 17:54 4
Это уж сам. Выбирай точку внутри каждого треугольника и крась зеленым или красным. Но мне кажется что у тебя треугольники не замкнутые. Я пытался найти координаты центральной точки и не нашел. Короче тупо написано.

Добавлено через 1 минуту
Да у тебя такую кривую звезду и не примут, тут нужны расчеты всех вершин, примерно как у меня.
0
0 / 0 / 0
Регистрация: 16.02.2014
Сообщений: 6
16.02.2014, 17:59  [ТС] 5
Забей в паскаль, звезда ровная, смысл в том что закрасить не могу сама. + когда забиваю твой текст, пишет " неверное число указанных процедур".
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.02.2014, 18:03 6
Мой текст "забивать" не нужно, его нужно просто скопировать и вставить в АВС и получишь такое
Миниатюры
Изменить код, чтобы контуры были черные, а сама звезда была зелено-красная  
1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.02.2014, 18:05 7
Цитата Сообщение от Destiny_ Посмотреть сообщение
Забей в паскаль, звезда ровная
Если это чудо ровное,то значит я кривой
Миниатюры
Изменить код, чтобы контуры были черные, а сама звезда была зелено-красная  
0
0 / 0 / 0
Регистрация: 16.02.2014
Сообщений: 6
16.02.2014, 18:12  [ТС] 8
хмм, у меня пишет ошибку. Ну да ладно, спасибо.

Добавлено через 1 минуту
Поверь, для моего класса и моей информатички это будет ровная и красивая звезда отличника. Главное еще покрасить и вообще 10 будет.
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.02.2014, 18:14 9
Мoжет не в тот раздел влезла и у тебя АВС.net?
0
0 / 0 / 0
Регистрация: 16.02.2014
Сообщений: 6
16.02.2014, 18:19  [ТС] 10
Да какая уже разница ? буду свою звезду, чем нибудь красить. Авось прокатит.

Добавлено через 16 секунд
Спасибо вообщем ^^
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.02.2014, 18:25 11
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Destiny_ Посмотреть сообщение
Авось прокатит.
Не думаю, все треугольники должны быть замкнутыми, иначе ничего не выйдет

Добавлено через 4 минуты
Вот код в .net
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
Program Zvezda;
Uses GraphABC;
var x,y,a,i:integer;
    c:Color; 
    p:array of point;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
setlength(p,11);
a:=-18;
for i:=0 to 10 do
 begin
  if i mod 2=0 then
   begin
    p[i].x:=x+round(100*cos(a*pi/180));
    p[i].y:=y-round(100*sin(a*pi/180));
   end
  else
   begin
    p[i].x:=x+round(200*cos(a*pi/180));
    p[i].y:=y-round(200*sin(a*pi/180));
   end;
  a:=a+36;
 end;
setpenwidth(3);
polygon(p);
for i:=0 to 9 do
line(x,y,p[i].x,p[i].y);
for i:=0 to 9 do
 begin
  if odd(i) then c:=clRed
  else c:=clGreen;
  floodfill((x+p[i].x+p[i+1].x)div 3,(y+p[i].y+p[i+1].y) div 3,c)
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2014, 18:25
Помогаю со студенческими работами здесь

Поле со списком, чтобы можно была изменить значение
zdrastvuite ia srazu skaju shto ia balshoi nub vetom dele.... =))) esli mojna skajite...

Изменить программу, чтобы она была реализована в процедурах и функциях
Задать массив А1 с помощью генератора случайных чисел только числами, кратными 4. Переписать в...

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

Сделать через классы и чтобы были методы: удалить, изменить, добавить
Эту прогу нужно сделать через классы и чтобы были методы: удалить, изменить, добавить...и...

эхо выводит картинку 200х250 , то есть часть картинки которая сама имеет размеры 1000х659, как сделать чтобы в этих 200х250 была не часть
эхо выводит картинку 200х250 , то есть часть картинки которая сама имеет размеры 1000х659, как...

Изменить программу, чтобы структура была описана не внешнем, а внутренним образом
#include<stdio.h> #include<graphics.h> #include<alloc.h> #include<string.h> #include<conio.h>...


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

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

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