ПАСКАЛЬ. Написать программку, которая считает количество буковкы в строке. Допустим буковку

ПАСКАЛЬ. Написать программу, которая считает количество буковкы в строке. Допустим буковку "а" в любом регистре, строчка вводится с клавиатуры.
входной файл: предложение
выходной файл: количество буковкы
Я просто немножко осознать не могу, как счетчик вести с знаками. Помогите пожалуйста.

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 ReadlnString.MatchValues('[аА]').Count.Println

end.

Пример

А роза свалилась на лапу Азора

8

Milena Fatah
Точки позволяют сделать цепочку и в ней итог 1-го действия служит вводом для следующего.
Василиса Паспехова
ReadlnString запрашивает ввод строчки с клавиатуры и воспринимает все знаки до нажатия Enter. Приобретенная строчка передается на вход MatchValues('[аА]')
Виктория Фрейлина
Эта функция инспектирует все знаки приобретенной строки на совпадение с буковкой а либо А. Ее результат - последовательность найденных букв, т.е. набор вида А а а а А...
Regina
Этот набор попадает на вход функции Count, которая подсчитывает, сколь частей ей пришло, т.е. в данном случае количество найденных символов.
Альбина Блиндур
И в конце концов, отысканное количество попадает на вход Println и выводится.
Наталья Бароненкова
Собственно, это все....
Андрюша Замалдинов
Еще раз спасибо, не мыслила, что метод программы может быть в одну строку, и без переменных в Var, кажется мне надо обновлять познания) Огромное спасибо за изъяснение!))
Марина Портнякова
Может, все зависит от того, на каком уровне Вам дают программирование.
Кввльвассер Эльвира
Окончательно, эту же задачку можно решить в подмножестве языка Турбо Паскаль по образчику конца 80-х годов прошедшего века. Но по элегантности и красоте таковой код будет значительно уступать приведенному. Если хотите его узреть, создайте за минимум баллов еще раз этот вопрос и укажите, что нужен код Turbo Pascal.
Вова Кистляров
Хорошо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт