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

Масив и ReadKey!)Задача состоит в следующем:есть множество символов...

14.12.2011, 19:11. Показов 1459. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задача состоит в следующем:есть множество символов,к примеру
А=(z,q,t,j,l),нужно написать программу,которая будет делать следующее:
пользователь вводит с клавиатуры некоторые символы,скажем a,k,r,q,p,t,
и если какой-либо из введенных символов принадлежит множеству А,то етот символ вводиться не бедет.ПРИМЕР:
А=(z,q,t,j,l)
пользователь вводит:a,k,r,q,p,t НО!
все что мы увидим на экране будет:a,k,r,p(т.к q и t вводится просто напросто не будут,как будто "не работает клава")
знаю одно:нужно использовать ReadKey ,но что это ьллком такое и как оно работает я не знаю
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.12.2011, 19:11
Ответы с готовыми решениями:

Создать множество, которое состоит из символов, не входящих во множество символов вашего имени
Пожалуйста помогите составить программу,на тему множества. Из множества латинских букв создать множество, которое состоит из символов,...

Проверьте есть ли среди символов пустое множество
Помогите пожалуйста!!! Введите символьное множество. Разбейте его на три подмножества: цифры; буквы; специальные символы. Проверьте есть...

Создать множество М1 парных символов и множество М2 непарных символов входящего ряда
Реализирвоать задачу так : Множество использовать двумя способами, в виде процедуры и с помощью функции.В программе должно быть описание...

1
85 / 85 / 38
Регистрация: 09.12.2011
Сообщений: 174
15.12.2011, 12:34
Лучший ответ Сообщение было отмечено ngup_k как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var
c:char;
begin
  c:=chr(0);
  while c<>chr(1) do
    begin
      c:=readkey;
      if not (c in ['z','q','t','j','l']) then
        write(c);
    end;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.12.2011, 12:34
Помогаю со студенческими работами здесь

Метод Readkey и распознавание русских символов
Делаю простую задачу: читаю в консоли клавишу с помощью метода ReadKey() и добавляю полученный символ в строковую переменную. Вот код: ...

Как сделать тип данных или уже есть такой тип данных который состоит из всех печатыемых символов?
Как сделать тип данных или уже есть такой тип данных который состоит из всех печатыемых символов? Если есть то как он называется ?

Как проверить что строка не состоит из одинаковых символов и не содержит указанных символов
Здравствуйте. Подскажите пожалуйста: регулярное выражение которое ищет слова состоящие из одинаковых символов, например aaaa, 1111 и...

Дано одновимірний масив, розміром 10 елементів. Заповнити масив значеннями з клавіатури та виведіть масив на екран в прямому та зворотньому порядку.
1.Дано одновимірний масив, розміром 10 елементів. Заповнити масив значеннями з клавіатури та виведіть масив на екран в прямому та...

Сформировать множество S1, элементами которого есть целые числа, вывести это множество на экран
Также нужно посчитать количество отрицательных чисел, которые имеються в множестве. Помогите написать програму, пожалуйста :read:


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
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 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&amp;d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru