Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 26.03.2020, 17:23   #1
SayLycky
Новичок
Джуниор
 
Регистрация: 26.03.2020
Сообщений: 2
По умолчанию В последовательности символов, вводимых с клавиатуры, подсчитать количество пар символов '*'. Признак завершения ввода: третий символ '+'

В последовательности символов, вводимых с клавиатуры, подсчитать количество пар символов '*'. Признак завершения ввода: третий символ '+'. (Используйте repeat)
Помогите пожалуйста
SayLycky вне форума Ответить с цитированием
Старый 26.03.2020, 21:59   #2
ViktorR
Участник клуба
 
Регистрация: 23.10.2010
Сообщений: 1,516
По умолчанию

Эта процедура изменяет значение глобальной переменной Item в зависимости от нажатой клавиши
Она может помочь тебе. Как её изменить и где воткнуть repeat ... until ...
Код:
procedure GetItem;
{------------------------------------}
{Получить номер пункта основного меню}
{Item - номер пункта основного меню }
{------------------------------------}
var key : char; {код клавиши}
Item : word;
begin
   Item := 1;
   InitMenu(Item); {инициализация меню}
   while true do begin {вертимся в ожидании события}
      key := ReadKey; {читаем код}
      if key = #0 then {нажата служебная клавиша}
         key := ReadKey;
      case ord(key) of
         13 {Enter}, 80 {Down} : begin {переход к субменю}
            Stub(Item); {вывод сообщения}
            end;
         15 {Shift+Tab},
         75 {Left} : begin {влево по меню}
            dec(Item);
            ClrLine(2); {очистим строку субменю}
            end;
         9 {Tab},
        77 {Right} : begin {вправо по меню}
           inc(Item);
           ClrLine(2); {очистим строку субменю}
           end;
        45 {Alt+X} : begin
           Halt; {завершим работу немедленно}
           end;
      end;
      ClrLine(1); {очистим строку меню}
      DrawItem(Item); {и выведем свежую }
   end;
end;
PS: Я понимаю, что это не Pascal ABC.
Я не знаю, в каком модуле, этой ветки Pascal, описаны функции работы с клавиатурой.
Google или Yandex тебе в руки ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В последовательности символов, вводимых с клавиатуры , подсчитать количество пар символов "*". Признак завершения ввода: два симво votsar Помощь студентам 2 09.12.2015 15:27
Исправьте ошибку.Паскаль.В последовательности симаолов, вводимых с клавиатуры , подсчитать количество пар символов "*". votsar Помощь студентам 2 27.11.2015 06:30
Дана строка. В строке удалить символ двоеточие и подсчитать количество удаленных символов.в делфи _Алексей_ Помощь студентам 3 29.04.2012 15:37


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS