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

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

12.11.2014, 12:46. Показов 1933. Ответов 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
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Ошибка Docker "Got permission denied while trying to connect to the Docker daemon socket at"
hw_wired 14.02.2025
Разработка с использованием Docker может иногда преподносить неожиданные сюрпризы, и одним из самых распространенных камней преткновения становится ошибка с отказом в доступе к демону Docker. . . .
Ошибка "No 'Access-Control-Allow-Origin' header is present on the requested resource"
hw_wired 14.02.2025
При разработке современных веб-приложений нередко сталкиваешься с ошибкой "No 'Access-Control-Allow-Origin' header is present on the requested resource". Эта проблема возникает из-за политики. . .
Как закрыть порт в Linux
hw_wired 14.02.2025
Управление сетевыми портами в Linux - непростая, но важная задача для обеспечения безопасности системы. Каждый открытый порт - это потенциальная уязвимость, через которую злоумышленики могут. . .
Ошибка Angular "Can't bind to 'taskForm' since it isn't a known property of 'form'"
hw_wired 14.02.2025
При разработке веб-приложений на Angular можно столкнуться с ошибкой "Can't bind to '' since it isn't a known property of 'form'". Эта ошибка появляется в консоли браузера когда мы пытаемся. . .
Сообщение Git "Pulling without specifying how to reconcile divergent branches is discouraged"
hw_wired 14.02.2025
При работе с системой контроля версий Git многие разработчики сталкиваются с предупреждающим сообщением "Pulling without specifying how to reconcile divergent branches is discouraged". Это. . .
Как настроить количество пробелов в отступах табов в Visual Studio Code
hw_wired 14.02.2025
Visual Studio Code предоставляет несколько гибких способов настройки табуляции, каждый из которых имеет свои преимущества. Самый простой и наглядный метод - через графический интерфейс настроек, где. . .
Что означает знак восклицания в 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 ключей. И хотя можно жестко прописать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru