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

Модуль Graph - не закрашиваются края в черный цвет

24.05.2015, 14:25. Просмотров 401. Ответов 1
Метки нет (Все метки)

Нужно края в черный закрасить, вроде все задал, а они все равно белые
вот прога:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Program pr;
uses
crt,graph;
var
z1,z2,z3:integer;
a,b,c:integer;
y1,y2,y3,x,y:integer;
gd,gm:integer;
max,may:integer;
s,n,n1,s1,s2,s3:string;
h1,h2,h3:integer;
begin
randomize;
a:=random(31)+10;
b:=random(31)+10;
C:=100-a-b;
a:=round(a);
b:=round(b);
c:=round(c);
gd:=0;gd:=detect;
initgraph(gd,gm,'D:\BP\BGI');
setbkcolor(15);
setcolor(4);
setfillstyle(1,4);
y1:=400-4*a;
y2:=400-4*b;
Y3:=400-4*c;
z1:=y1-3;
z2:=y2-3;
z3:=y3-3;
h1:=y1-40;
h2:=y2-40;
h3:=y3-40;
bar3d(50+130,400,100+130,y1,25,true);
bar3d(150+130,400,200+130,y2,25,true);
bar3d(250+130,400,300+130,y3,25,true);
floodfill(101+150,375,4);
floodfill(201+130,375,4);
floodfill(301+130,375,4);
floodfill(75+130,z1,4);
floodfill(175+130,z2,4);
floodfill(275+130,z3,4);
setcolor(7);
settextstyle(1,0,1);
str(a,s1);
str(b,s2);
str(c,s3);
outtextxy(85+130,h1,s1);
outtextxy(185+130,h2,s2);
outtextxy(285+130,h3,s3);
setcolor(5);
s:='';
outtextxy(185,25,s);
n:=''    ;
n1:='';
outtextxy(420,300,n);
outtextxy(420,325,n1);
Outtextxy(250,40,'primer grafika');
Outtextxy(250,440,'Zorkin Nikita');
SETcolor(0);
Setfillstyle(1,0);
Rectangle(0,0,105,getmaxy);
Rectangle(520,0,getmaxx,getmaxy);
 
Floodfill(50,50,0)  ;
Floodfill(540,10,0);
readln ;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2015, 14:25
Ответы с готовыми решениями:

Модуль Graph: изменить цвет фигур и линий
Как сделать, что бы цвет линий, фигур был черным? Когда я пишу SetColor(0); , то линии делаются...

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

Типизированные файлы/Модуль Graph/Модуль DOS
Всем доброго время суток! Народ, помогите, пожалуйста!!! У меня не получается разобраться с...

Как изменить цвет графа, узлы и края?
как изменить цвет графа, узлы и края? нужно чтобы были определенные края(edges) или узлы(nodes)...

1
Модератор
62498 / 46688 / 32180
Регистрация: 18.05.2008
Сообщений: 112,951
24.05.2015, 15:18 2
Если установлен цвет фона, то записи вида
Pascal
1
2
Setfillstyle(1,0);
Setfillstyle(1,black);
дадут цвет фона.
Напишите
Pascal
1
Setfillstyle(1,8);
Добавлено через 5 минут
Или вообще не используйте
Pascal
1
setbkcolor(15);
а устанавливайте фон так
Pascal
1
2
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2015, 15:18

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

Модуль Graph
Составить программу для построения заданного изображения, применив какой-нибудь способ раскраски, ...

модуль Graph
Помогите построить график функции F(x). Вид фигуры и надписей на экране должен полностью...

модуль Graph
помогите, пожалуйста, решить! построить график функции у=1/(x^2-x+1), где х принадлежит...

Модуль Graph
Построить семейство разноцветных случайным образом вырезанных секторов окружностей.


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

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

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