Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.71
morphling
-9 / 19 / 2
Регистрация: 26.06.2010
Сообщений: 181
#1

Управление символом - Turbo Pascal

26.09.2010, 20:54. Просмотров 1737. Ответов 1
Метки нет (Все метки)

Напишите пожалуйста прогу чтоб символ _ двигался вправо влево вверх вниз по нажатию соответсвующих стрелочек... Не могу до думаться..ыыыы
http://www.cyberforum.ru/turbo-pascal/thread1513882.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2010, 20:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Управление символом (Turbo Pascal):

В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’,
В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную –...

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

В массиве, который содержит наибольшое число цифр, заменить все буквы символом *. а во втором символом +
даны два символьных массива . в массиве который содержит наибольшое число цифр...

Замена символом в Паскале
Нигде не смог найти понятного объяснения как заменить символы в с++. просто...

В символьном массиве заменить все буквы символом %
Дан символьный массив состоящий из 18-ти или менее элементов и требуется...

1
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
26.09.2010, 21:57 #2
Лучший ответ Сообщение было отмечено morphling как решение

Решение

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
uses crt;
var k,s:char;
    x,y:byte;
begin
clrscr;
x:=39;
y:=13;
s:='O';
gotoXY(x,y);
write(s);
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#80 then
      begin
        gotoXY(x,y);
        write(' ');
        if y<25 then y:=y+1;
        gotoXY(x,y);
        write(s);
      end;
    if k=#72 then
      begin
        gotoXY(x,y);
        write(' ');
        if y>1 then y:=y-1;
        gotoXY(x,y);
        write(s);
      end;
    if k=#77 then
      begin
        gotoXY(x,y);
        write(' ');
        if x<79 then x:=x+1;
        gotoXY(x,y);
        write(s);
      end;
    if k=#75 then
      begin
        gotoXY(x,y);
        write(' ');
        if x>1 then x:=x-1;
        gotoXY(x,y);
        write(s);
      end;
  end;
until k=#27;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.09.2010, 21:57
Привет! Вот еще темы с решениями:

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

Заменить в строке искомые символы новым символом
После введения из клавиатуры произвольной строки заменить в нем искомые символы...

Написать процедуру, которая обрамляет строку символом #
Помогите написать процедуру которая :обрамляет строку символом ,#, Буду очень...

Перестановка в конец текста строк с заданным символом
Перестановка в конец текста строк с заданным символом. В программе...


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

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

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