Написать программу рисования в текстовом режиме вертикальных и горизонтальных линий по нажатию соответствующих клавиш

@NikSchibeki · Регистрация: 15.10.2013

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

написать программу рисования в текстовом режиме вертикальных и горизонтальных линий по нажатию соответствующих клавиш. Помогите

@Puporev · 22.10.2013, 14:44

В АВС нет символов псевдографики, потому вертикальные линии прерывистые

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
uses crt;
var c:char;
    x,y,i,j:integer;
begin
writeln('Нажатие клавиш g/G горизонтальная линия, v/V вертикальная');
writeln('очистка экрана клавиша пробел, выход нажатие клавиши Esc');
writeln('для начала нажмите Enter');
readln;
clrscr;
hidecursor;
x:=1;
y:=1;
repeat
 if keypressed then
  begin
   c:=readkey;
   case c of
   'g','G':begin
           gotoXY(1,y);
           for i:=1 to 79 do
           write('_');
           y:=y+1;
           end;
   'v','V':begin
           for i:=1 to 24 do
            begin
             gotoXY(x,i);
             write('|');
            end;
           x:=x+1;
           end;
    #32:clrscr;
    #27:exit;
    end;
  end;
until c=#27;
end.

@NikSchibeki · 22.10.2013, 15:14 **[ТС]**

А как сделать,чтобы при нажатии стрелок на клаве,курсор возвращался в начальное положение?

@Puporev · 22.10.2013, 15:16

Сообщение от NikSchibeki

при нажатии стрелок на клаве,курсор возвращался в начальное положение?

Каких стрелок и в какое начальное?

@NikSchibeki · 22.10.2013, 15:36 **[ТС]**

Стрелки вверх,вниз,вправо,влево. Возвращает при нажатии данных клавиш в начало экрана

@Puporev · 22.10.2013, 15:36

Примерно так

Pascal
1
2
3
4
5
6
7
8
uses crt;
var c:char;
begin
gotoXY(50,13);
c:=readkey;
if c=#0 then c:=readkey;
if c in [#72,#75,#77,#80] then gotoXY(1,1)
end.

@NikSchibeki · 22.10.2013, 15:50 **[ТС]**

А как внедрить этот в ту программу,что вы писали ранее?

@Puporev · 22.10.2013, 15:52

А зачем это там? Что вы хотите делать? Или уж напишите все, или не пудрите мозги.

@NikSchibeki · 22.10.2013, 15:54 **[ТС]**

В условии было про данное написано

@Puporev · 22.10.2013, 15:55

Вот условие что вы написали. И где это?

Сообщение от NikSchibeki

написать программу рисования в текстовом режиме вертикальных и горизонтальных линий по нажатию соответствующих клавиш.

@NikSchibeki · 22.10.2013, 15:58 **[ТС]**

Все. Разобрался сам

Добавлено через 2 минуты
Странно,я вроде всё условие копировал. Извините за нервотрепку. А еще с одной задачей можно обратиться?

@Puporev · 22.10.2013, 16:00

Сообщение от NikSchibeki

А еще с одной задачей можно обратиться?

Создавай новую тему

@NikSchibeki · 22.10.2013, 20:28 **[ТС]**

вот процедуры работы с экраном

@Sleepwalker_3 · 24.04.2014, 20:16

...

Добавлено через 4 минуты
Puporev, можешь помочь с реализацией этой программы?
Программа "рисования" на экране в текстовом режиме рамок символами псевдографики с возможностью выбора одинарных или двойных линий. Полученное изображение - это может быть, например, рамка таблицы - программа должна записывать в текстовый файл. Рисование должно выполняться с помощью клавиш перемещения курсора, а выбор типа линий - одинарные или двойные - с помощью какой-либо функциональной клавиши, например, F4. Вид очередного вставляемого символа - горизогтальной или вертикальной линии, какого-либо уголка и пр. - программа должна выбирать сама в зависимости от направления перемещения курсора пользователем. Например, пока пользователь перемещает курсор по горизонтали, программа выводит на экран символ псевдографики "горизонтальная линия", но как только пользователь нажмет клавишу перемещения курсора вниз, программа вставляет символ псевдографики "┐".

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@NikSchibeki 16 / 10 / 6 Регистрация: 15.10.2013 Сообщений: 208

	Написать программу рисования в текстовом режиме вертикальных и горизонтальных линий по нажатию соответствующих клавиш 22.10.2013, 14:13. Показов 4480. Ответов 13 Метки нет (Все метки) написать программу рисования в текстовом режиме вертикальных и горизонтальных линий по нажатию соответствующих клавиш. Помогите 0

@NikSchibeki 16 / 10 / 6 Регистрация: 15.10.2013 Сообщений: 208
	22.10.2013, 15:14 [ТС]
	А как сделать,чтобы при нажатии стрелок на клаве,курсор возвращался в начальное положение? 0

@NikSchibeki 16 / 10 / 6 Регистрация: 15.10.2013 Сообщений: 208
	22.10.2013, 15:36 [ТС]
	Стрелки вверх,вниз,вправо,влево. Возвращает при нажатии данных клавиш в начало экрана 0

@NikSchibeki 16 / 10 / 6 Регистрация: 15.10.2013 Сообщений: 208
	22.10.2013, 15:50 [ТС]
	А как внедрить этот в ту программу,что вы писали ранее? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	22.10.2013, 15:52
	А зачем это там? Что вы хотите делать? Или уж напишите все, или не пудрите мозги. 0

@NikSchibeki 16 / 10 / 6 Регистрация: 15.10.2013 Сообщений: 208
	22.10.2013, 15:54 [ТС]
	В условии было про данное написано 0

@NikSchibeki 16 / 10 / 6 Регистрация: 15.10.2013 Сообщений: 208
	22.10.2013, 15:58 [ТС]
	Все. Разобрался сам Добавлено через 2 минуты Странно,я вроде всё условие копировал. Извините за нервотрепку. А еще с одной задачей можно обратиться? 0

@NikSchibeki 16 / 10 / 6 Регистрация: 15.10.2013 Сообщений: 208
	22.10.2013, 20:28 [ТС]
	вот процедуры работы с экраном 0

@Sleepwalker_3 0 / 0 / 0 Регистрация: 18.04.2014 Сообщений: 3
	24.04.2014, 20:16
	... Добавлено через 4 минуты Puporev, можешь помочь с реализацией этой программы? Программа "рисования" на экране в текстовом режиме рамок символами псевдографики с возможностью выбора одинарных или двойных линий. Полученное изображение - это может быть, например, рамка таблицы - программа должна записывать в текстовый файл. Рисование должно выполняться с помощью клавиш перемещения курсора, а выбор типа линий - одинарные или двойные - с помощью какой-либо функциональной клавиши, например, F4. Вид очередного вставляемого символа - горизогтальной или вертикальной линии, какого-либо уголка и пр. - программа должна выбирать сама в зависимости от направления перемещения курсора пользователем. Например, пока пользователь перемещает курсор по горизонтали, программа выводит на экран символ псевдографики "горизонтальная линия", но как только пользователь нажмет клавишу перемещения курсора вниз, программа вставляет символ псевдографики "┐". 0

Написать программу рисования в текстовом режиме вертикальных и горизонтальных линий по нажатию соответствующих клавиш

Решение