Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/56: Рейтинг темы: голосов - 56, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 31.05.2008
Сообщений: 16

скажите ASCII код...

03.06.2008, 16:20. Показов 11001. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пожалуйста, скажите ASCII код стрелок вправо и влево... а то программа не хочет его вычислять... всё считает, а на стрелки выдаёт ответ = 0...
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.06.2008, 16:20
Ответы с готовыми решениями:

Посмотрите код и скажите свое мнение...
Задание на Картинке в самом низу... Вот мой код: uses crt; const e = 0.0001; var res,a : real; function ln(x:real) : real; ...

ASCII-код буквы в букву
Доброго времени суток, дорогие форумчане! Имелась задача: Строка символов состоит из цифр, каждая пара цифр - ASCII-код буквы (двузначное...

Преобразовать произвольный символ в ASCII-код
помогите пожалуйста

5
Кратк. - сест. тал.
 Аватар для Vit@L
87 / 51 / 4
Регистрация: 13.03.2008
Сообщений: 543
03.06.2008, 18:48
Влево - 37
Вправо - 39

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

Ложишь на форму Label и в обработчике событий формы (OnKeyDown) пишешь:
Code
1
Label.Caption:=inttostr(key);
и все
0
 Аватар для Vovan-VE
13210 / 6599 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
03.06.2008, 20:56
На паскале это делается функцией ReadKey() из модуля Ctr.
Если функция возвращает 0, то ее нажно вызвать еще раз, - и она вернет расшииренный код клавиши.

Лично я использовал такую модифицированную функцию:
Code
1
2
3
4
5
function WaitKey:word;
begin
    result := Word(ReadKey);
    if result=0 then result := $FF00 or Word(ReadKey);
end;
В младшем байте возвращает код нажатой клавиши. Если это обычная клавиша, то в старшем байте будет 0, а если специальная типа стрелок, то в старшем байте будет $FF.
Для стрелок получится:
Code
1
2
3
4
5
6
7
8
9
var wKey:word;
 
wKey := WaitKey;
case wKey of
    $FF00 or 72: writeln('Вверх');
    $FF00 or 75: writeln('Влево');
    $FF00 or 77: writeln('Вправо');
    $FF00 or 80: writeln('Вниз');
end;
0
Почетный модератор
 Аватар для Puporev
64316 / 47612 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
03.06.2008, 21:47
Есть маленькие готовые программки для определения кода, одна для Паскаля, другая для Делфи.
Вложения
Тип файла: rar Определение кода.rar (42.2 Кб, 463 просмотров)
2
Мажорко
18.06.2009, 11:21
Pascal
1
2
3
4
5
6
7
8
9
10
program sssssss;
uses crt;
var
a:integer;
begin
clrscr;
a:=ord(readkey);
writeln(a);
readln;
end.
 Аватар для Сонный
0 / 0 / 0
Регистрация: 24.02.2010
Сообщений: 3
09.05.2010, 14:58
ооо спс нужная вещь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.05.2010, 14:58
Помогаю со студенческими работами здесь

Перевод строки в двоичный код. Кодировка ASCII
Вводится строка, выводится двоичный код. Вход: "pascal ." Выход:...

просто скажите код для 1 строки пожалуйста
Задачка: есть массив n<=8 в котором есть хотя бы 1 отрицательное число !нужно посчиать сумму елементов массива до 1 отрицательного...

ASCII-код
Правила выбора вариантов заданий: Пишется Фамилия, имя и отчество одной строкой без пробелов. Фамилия, имя и отчество пишутся с большой...

Отобразить ASCII код
Мне нужно нарисовать рамку с ASCII кодов ток мне удобно писать подрят 40 кодов или рисовать их в цикле... Можно ли сразу символ...

Вывести ASCII код
Вывести на экран все символы, имеющие код в таблице ASCII в заданом промежутке


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru