Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

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

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

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

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

Управление символом кодовой таблицы клавишами - Turbo Pascal
Проблема: требуется, чтобы персонаж игры ,,Лабиринт", который обозначен номером 2 в кодовой таблице, перемещался вверх, вниз, вправо, влево...

В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’, - Turbo Pascal
В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’, Решил,но ниче не делает!!!Ужас просто! ...

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

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

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

Заменить все гласные буквы произвольным символом - Pascal
Дана произвольная строка Заменить все гласные буквы произвольными символом

1
Puporev
Модератор
52824 / 40635 / 13884
Регистрация: 18.05.2008
Сообщений: 94,253
26.09.2010, 21:57 #2
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
Привет! Вот еще темы с ответами:

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

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

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

Задан текст. Заменить все символы* символом - Pascal
Помогите решить задачу. Задан текст. Заменить все символы* символом.


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

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

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