Не хочет моргать элемент псевдографики

@DSBM · Регистрация: 28.10.2013

Студворк — интернет-сервис помощи студентам

Привет форумчане!
Проблема такая:
Рисую элемент псевдографики по заданым координатам, пытаюсь задать моргание (поочерёдным закрашиванием в зелёный/красный цвета). Программа выполняет совсем другое. Просто выводит красный/зелёный элементы с начала строки (скрин прилагается).
Текст программы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
repeat
   gotoXY(100,100);
   TextColor(green);
   f:= #176;
   write(f);
   delay(1000);
   gotoXY(50,100);
   TextColor(red);
   f:= #176;
   write(f);
   delay(1000);
  until keypressed;

Заранее благодарю!

@DSBM · 16.12.2013, 12:49 **[ТС]**

Вдобавок ко всему, он удаляет предыдущий рисунок моей программы.
Текст:

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
uses graph, crt;
var dr, md: integer;
    x, y: byte;
    f :char;
begin
clrscr;
x:=succ(0);
y:=succ(0);
window(x, y, x+20, y+20);
clrscr;
gotoxy(6,2);
dr:=0;
md:=0;
initgraph(dr, md, '');
setcolor(green);
SetFillStyle(1, green);
line(100,50,50,100);
line(50,100,150,100);
line(150,100,100,50);
floodfill(52,99,green);
line(100,100,50,150);
line(50,150,150,150);
line(150,150,100,100);
floodfill(52,149,green);
line(100,150,50,200);
line(50,200,150,200);
line(150,200,100,150);
floodfill(52,199,green);
setfillstyle(1,brown);
setcolor(brown);
line(90,201,90,240);
line(90,240,110,240);
line(110,240,110,201);
line(110,201,90,201);
floodfill(100,210,brown);
closegraph;
{Рисую псевдографику}
repeat
   gotoXY(50,100);
   TextColor(green);
   f:= #176;
   write(f);
   delay(1000);
   gotoXY(50,100);
   TextColor(red);
   f:= #176;
   write(f);
   delay(1000);
   until keypressed;
end.

@volvo · 16.12.2013, 12:55

Pascal
1
2
3
4
5
6
7
8
9
10
11
  f:= #176;
  repeat
    gotoXY(1,1);
    TextColor(green);
    write(f);
    delay(1000);
    gotoXY(1,1);
    TextColor(red);
    write(f);
    delay(1000);
  until keypressed;

(100, 100) - вне зоны действия GotoXY... Обычно на экране всего 25 строк по 80 символов, в лучшем случае - 50 строк...

Добавлено через 1 минуту
Вдобавок ко всему, что ты ждешь после вызова CloseGraph? Разумеется, будет разрушено все, что выводилось в графическом режиме, потому как программа переходит назад, в режим текстовый...

@DSBM · 16.12.2013, 12:57 **[ТС]**

UI, следовательно, clostgraph оставлять открытым до end?

@volvo · 16.12.2013, 13:03

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

@DSBM · 16.12.2013, 13:03 **[ТС]**

UI, хм.. Без closegraph вернулся рисунок, перестала выводиться псевдографика. А задание предписало мне выполнить ёлку с фонариками из псевдографических элементов.

@Пытливый · 16.12.2013, 13:27

Тогда зачем же вы в графический режим перешли. У вас все несколько проще. Символы псевдографики - это исключительно текстовые символы. Работа с ними идет в текстовом режиме, а для ускорения и удобства подключите модуль Crt. Функции для вывода и позиционирования, задания цвета следующие: GotoXY; Write; TextColor, TextBackground.
Кстати, есть интересная программа, которая позволяет графическую картинку преобразовать в текст нарисованный символами псевдографики. Или скажем вот так:
____________________________0___________ ____________________
___________________________000__________ ____________________
___________________________000__________ ____________________
__________________________00000_________ ____________________
_________________________00000000_______ ____________________
________________________0000000000______ ____________________
_______________________0000000000000____ ____________________
____________________0000000000000000000_ ____________________
__________________00000_000000000_______ ____________________
________________________0000000000______ ____________________
______________________00000000000000____ ____________________
____________________0000000000000000000_ ____________________
__________________0000000000000000000000 00__________________
_______________0000000000000000000000__0 000_________________
______________________000000000000000___ ____________________
_____________________000000000000000000_ ____________________
___________________0000С_НОВЫМ_ГОДОМ0000 0__________________
________________000000000000000000000000 00000_______________
_____________000000000000000000000000000 00000000____________
___________000000____000000000000000000_ ____________________
____________________00000000000000000000 ____________________
__________________0000000000000000000000 000_________________
________________000000000000000000000000 00000_______________
_____________000000000000000000000000000 000000000___________
___________00000000000000__000000__00000 00000000____________
____________________________00000_______ ____________________
____________________________00000_______ ____________________

Добавлено через 9 минут
А вот кстати сетевой ресурс о котором я говорил, преобразование картинки в текст.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@DSBM 2 / 2 / 2 Регистрация: 28.10.2013 Сообщений: 76
	16.12.2013, 12:57 [ТС]
	UI, следовательно, clostgraph оставлять открытым до end? 0

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	16.12.2013, 13:03
	Если нужно сохранять графическое изображение - то да, однозначно. К тому же, символы псевдографики не очень монтируются с действительно графическим режимом, не надо мешать одно с другим... 1

@DSBM 2 / 2 / 2 Регистрация: 28.10.2013 Сообщений: 76
	16.12.2013, 13:03 [ТС]
	UI, хм.. Без closegraph вернулся рисунок, перестала выводиться псевдографика. А задание предписало мне выполнить ёлку с фонариками из псевдографических элементов. 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	16.12.2013, 13:27
	Тогда зачем же вы в графический режим перешли. У вас все несколько проще. Символы псевдографики - это исключительно текстовые символы. Работа с ними идет в текстовом режиме, а для ускорения и удобства подключите модуль Crt. Функции для вывода и позиционирования, задания цвета следующие: GotoXY; Write; TextColor, TextBackground. Кстати, есть интересная программа, которая позволяет графическую картинку преобразовать в текст нарисованный символами псевдографики. Или скажем вот так: ____________________________0___________ ____________________ ___________________________000__________ ____________________ ___________________________000__________ ____________________ __________________________00000_________ ____________________ _________________________00000000_______ ____________________ ________________________0000000000______ ____________________ _______________________0000000000000____ ____________________ ____________________0000000000000000000_ ____________________ __________________00000_000000000_______ ____________________ ________________________0000000000______ ____________________ ______________________00000000000000____ ____________________ ____________________0000000000000000000_ ____________________ __________________0000000000000000000000 00__________________ _______________0000000000000000000000__0 000_________________ ______________________000000000000000___ ____________________ _____________________000000000000000000_ ____________________ ___________________0000С_НОВЫМ_ГОДОМ0000 0__________________ ________________000000000000000000000000 00000_______________ _____________000000000000000000000000000 00000000____________ ___________000000____000000000000000000_ ____________________ ____________________00000000000000000000 ____________________ __________________0000000000000000000000 000_________________ ________________000000000000000000000000 00000_______________ _____________000000000000000000000000000 000000000___________ ___________00000000000000__000000__00000 00000000____________ ____________________________00000_______ ____________________ ____________________________00000_______ ____________________ Добавлено через 9 минут А вот кстати сетевой ресурс о котором я говорил, преобразование картинки в текст. 1