Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
1

Изобразить эллиптический сектор и закрасить его синим цветом с заполнением редкими точками, цвет фона экрана белый

01.04.2014, 22:35. Показов 1289. Ответов 16
Метки нет (Все метки)

Вывести на экран монитора эллиптический сектор и закрасить его
синим (Blue)
цвету с заполнением жидкими точками (WideDotFill), цвет фона экрана
установить белым (White).

Помогите пожалуйста
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2014, 22:35
Ответы с готовыми решениями:

Вывести на экран монитора эллипс и закрасить его красным цветом с заполнением плотными точками
Вывести на экран монитора эллипс и закрасить его красным (Red) цветом с заполнением плотными...

Вывести на экран монитора круговой сектор и закрасить его зеленым цветом
Вывести на экран монитора круговой сектор и закрасить его зеленым (Green) цветом с ...

Вывести на экран монитора шестиугольник и закрасить его желтым (Yellow) цвету с заполнением плотными точками
1. Очистить экран монитора и при необходимости установить желаемый цвет фона. 2. Вывести один или...

Вывести на экран монитора квадрат и закрасить его светло-красным цветом с обратной наклонной заполнением
Вывести на экран монитора квадрат и закрасить его светло-красным (LightRed) цветом с обратной...

16
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
02.04.2014, 07:36 2
Задача для Турбо Паскаля, где есть процедура Sector и стиль заполнения WideDotFill.
В АВС нарисовать заданную фигуру можно другими методами, а вот стиля заливки такого нет.
1
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
02.04.2014, 08:02  [ТС] 3
Puporev, а помогите в турбо написать
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
02.04.2014, 08:12 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses graph;
var x,y,a,b:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
a:=200;
b:=160;
setcolor(blue);
setfillstyle(widedotfill,blue);
sector(x,y,0,120,a,b);
readln
end.
1
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
02.04.2014, 17:37  [ТС] 5
Puporev, спасибо большое

Добавлено через 9 часов 21 минуту
Puporev, а цвет фона не белый (
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
02.04.2014, 17:41 6
Pascal
1
2
3
begin
initgraph(x,y,'');
setbkcolor(15);
1
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
15.04.2014, 21:54  [ТС] 7
Puporev, не сектора,а фона)
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
16.04.2014, 07:00 8
setbkcolor(15); - это и есть цвет фона, хоть бы справку прочитал.
1
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
21.04.2014, 20:41  [ТС] 9
Puporev, просто запустив программу,цвет фона таким и остался
а сам сектор изменил цвет
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
21.04.2014, 20:47 10
У меня фон белый. Ты вставил эту строку
Pascal
1
2
3
begin
initgraph(x,y,'');
setbkcolor(15);//вот эту?
1
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
21.04.2014, 22:41  [ТС] 11
Puporev, да эту
хм...в чем же проблема

Добавлено через 6 минут
Puporev, да эту...хм

Добавлено через 1 час 21 минуту
Puporev, вы не знаете в чем беда?
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
22.04.2014, 06:44 12
Могу объяснить это только глюками вашего Турбо Паскаля.
Попробуйте запустить мой файл прямо в в этой папке.
1
Вложения
Тип файла: rar Сектор.rar (15.8 Кб, 10 просмотров)
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
23.04.2014, 11:17  [ТС] 13
Puporev, все равно не работает
попробовал на 5 компьютерах
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
23.04.2014, 11:39 14
Что не работает? Раньше писали что фон не меняет, а сейчас что?
1
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
27.04.2014, 14:20  [ТС] 15
Puporev, ну оно точно также
фон черный
а сектор белым закрашен
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
27.04.2014, 14:32 16
Ну я не знаю в чем там дело, у меня нормально, весь фон белый.

Добавлено через 9 минут
Вот у меня во Фрее Паскаль тоже фон черный, написал так чтобы был белый, попробуйте.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses graph;
var x,y,a,b:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setfillstyle(1,15);
bar(0,0,2*x,2*y);
a:=200;
b:=160;
setcolor(blue);
setbkcolor(15);
setfillstyle(widedotfill,blue);
sector(x,y,0,120,a,b);
readln
end.
Может как-то связано с Wiindows режимом...
1
1 / 1 / 0
Регистрация: 14.09.2013
Сообщений: 105
27.04.2014, 14:40  [ТС] 17
Puporev, работате)
спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2014, 14:40

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

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

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


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

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

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