Форум программистов, компьютерный форум, киберфорум Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 1
Регистрация: 29.10.2014
Сообщений: 14
1

Окрасить одну половину экрана в белый цвет, а вторую - в черный

12.11.2014, 12:46. Показов 1932. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Использование модуля Graph. Составить программу, которая при нажатии, клавиши "пробел" одну половину экрана красит в белый цвет, а вторую- в черный цвет.
0
Лучшие ответы (1)
12.11.2014, 12:46
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.11.2014, 12:46
Ответы с готовыми решениями:

Ввод вывод двумерного массива, и заменить половину главной диагонали нулями, вторую половину единицами
Ввод вывод двумерного массива, и заменить половину главной диагонали нулями, вторую половину единицами. Я знаю только как заменить ВСЮ...

Окрасить все положительные элементы матрицы в красный цвет, все отрицательные в зеленый, а все нулевые элементы в белый.
ПОМОГИТЕ ПОЖАЛУЙСТА!на паскаль абс 1) Целочисленная матрица n-го порядка создается из случайных чисел. Окрасить все положительные...

Отсортировать первую половину массива размера 2*n по убыванию, а вторую половину - по возрастанию
в одномерном массиве размерностью 2*n отсортируйте первую половину массива по убыванию, а вторую половину - по возрастанию. Можно...

2
Эксперт Pascal/Delphi
2387 / 1299 / 1492
Регистрация: 29.08.2014
Сообщений: 4,662
13.11.2014, 07:25 2
Лучший ответ Сообщение было отмечено k3lwin как решение

Решение

PascalУвеличитьКопировать
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses graph,crt;
var
  gd,gm:integer;
  ch:char;
begin
  writeln('Нажмите  "Пробел" для продолжения, "ESC" - для выхода...');
    repeat
    ch:=readkey;
    until ch in [#27,#32];
    if ch=#32 then begin
  gd:=detect;
  InitGraph(gd,gm,'');
  setcolor(white);
  line(GetMaxX div 2,0,GetMaxX div 2,GetMaxY);
  floodfill(1,1,white);
  readln;
  closegraph;
  end;
end.
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
13.11.2014, 07:48 3
Или так.
PascalУвеличитьКопировать
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses graph,crt;
var x,y:integer;
    c:char;
begin
initgraph(x,y,'');
setfillstyle(1,9);
bar(0,0,getmaxX,getmaxY);
x:=getmaxX div 2;
outtextXY(x-50,20,'Press Spase');
if readkey=#32 then
 begin
  setfillstyle(1,15);
  bar(0,0,x,getmaxY);
  setfillstyle(1,0);
  bar(x,0,getmaxX,getmaxY);
 end;
readkey
end.
0
13.11.2014, 07:48
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.11.2014, 07:48
Помогаю со студенческими работами здесь

Упорядочить первую половину массива по убыванию, а вторую половину – по возрастанию
Массив содержит 14 действительных чисел. Упорядочить первую половину массива по убыванию, а вторую половину – по возрастанию. Я только смог...

Как сделать первую половину букв строки большими, а вторую половину - маленькими?
Здравствуйте, я не знаю как сделать первую половину букв строки большими, а вторую половину маленькими. Например я написал у верхней...

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

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

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


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Что означает знак восклицания в TypeScript
hw_wired 14.02.2025
TypeScript - удивительный язык программирования, который предоставляет множество возможностей для работы с типами данных. Особый интерес вызывает оператор утверждения ненулевого значения, который. . .
Как свернуть/скрыть секции кода в Visual Studio Code
hw_wired 14.02.2025
Ежедневно мы работам с файлами, содержащими сотни и тысячи строк кода. Навигация по такому объему становится настоящим испытанием, особенно когда нужно быстро найти нужный метод или переменную. . . .
Автоматическое создание файла requirements.tx­t в Python
hw_wired 14.02.2025
Дружелюбная среда для разработки на Python, один из самых широко используемых языков программирования, состоит не только из самого кода, но и целого ряда важных компонентов. И если вы когда-нибудь. . .
Передача переменных окружения в контейнер Docker
hw_wired 14.02.2025
При работе с Docker контейнерами возникает необходимость передать различные настройки и конфигурационные параметры - от строк подключения к базам данных до API ключей. И хотя можно жестко прописать. . .
Отличия Constructor и ngOnInit в Angular
hw_wired 14.02.2025
Разработка компонентов в Angular - непростая задача, особенно когда дело доходит до правильной инициализации и управления их жизненным циклом. Каждый разработчик рано или поздно сталкивается с. . .
Ошибка "Transport security has blocked a cleartext HTTP" в iOS
hw_wired 14.02.2025
В iOS-разработке часто возникают неожиданные препятствия, и одним из самых распространенных является сообщение об ошибке "Transport security has blocked a cleartext HTTP". Эта ошибка появляется,. . .
Ошибка "Cleartext HTTP traffic not permitted" в Android
hw_wired 13.02.2025
При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .
Изменение версии по умолчанию в NVM
hw_wired 13.02.2025
Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .
Переименование коммита в Git (локального и удаленного)
hw_wired 13.02.2025
Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .
Отличия Promise и Observable в Angular
hw_wired 13.02.2025
В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru