Подсчитать количество фамилий, начинающихся с буквы А

@shtorm 007 · Регистрация: 18.11.2018

Студворк — интернет-сервис помощи студентам

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

Сделать с одномерными массивами.

@Sun Serega · 18.11.2018, 16:03

Pascal
1
2
3
4
begin
  var a := ReadArrString(30);
  a.Count(s->s[1]='А').Print;
end.

@shtorm 007 · 18.11.2018, 16:10 **[ТС]**

Спасибо конечно, но я только начал изучать программирование , можно более раскрыто написать ?

@Sun Serega · 18.11.2018, 16:13

Что тут можно более раскрыто? Наведите мышкой на то что не понятно, там у всего есть описание. Так же можете поставить на него курсор и нажать F1 - откроется справка.

@shtorm 007 · 18.11.2018, 16:34 **[ТС]**

Pascal
1
2
3
4
begin
var a := ReadArrString(30);
a.Count(s->s[1]='А').Print;
end.

Спасибо за программу и отдельно за справку, программа работает .
Если не трудно можете помочь с еще одним заданием Получить из матрицы А (n, n) матрицу В (n-1, n-1) удалением n-й строки и k-го столбца.

@JuriiMW · 18.11.2018, 16:39

shtorm 007, это ещё Sun Serega лишнего написал!
Можно ещё короче:

Pascal
1
2
3
begin
  ReadArrString(30).Count(s->s[1]='А').Print;
end.

@shtorm 007 · 18.11.2018, 16:42 **[ТС]**

Та мне ненужно коротко, мне бы как можно примитивней .Чтоб я мог разобраться .

@Sun Serega · 18.11.2018, 17:33

Сообщение от JuriiMW

лишнего написал

Нет, всё продумано)) В задаче сказано использовать одномерные массивы, а если сократить по вашему - в программе нету переменных-массивов. В общем это чтоб не придрались)))

@shtorm 007 · 20.11.2018, 09:49 **[ТС]**

Sun Serega, Можете пожалуста обьяснить третью строку , что в ней происходит? Что это за символ "->"?

@Sun Serega · 20.11.2018, 14:36

Это лямбда, то есть безымянная функция.

Pascal
1
2
3
4
begin
  var a := ReadArrString(30);
  a.Count(s->s[1]='А').Print;
end.

Это то же самое что:

Pascal
1
2
3
4
5
6
7
8
9
function f1(s: string): boolean;
begin
  Result := s[1]='A';
end;
 
begin
  var a := ReadArrString(30);
  a.Count(f1).Print;
end.

Расценивайте этот знак как
"s превращается в результат выражения s[1]='A' "

Count применяет эту функцию к каждому элементу в массиве, и выдаёт в качестве результата количество элементов для которых эта функция вернула true.

Почитайте на pascalabc.net презентацию про лямбды. (там прямо на главной странице, называется лямбда выражения)

@shtorm 007 · 20.11.2018, 15:33 **[ТС]**

Sun Serega, благодарю

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	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 Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии 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. . .

Подсчитать количество фамилий, начинающихся с буквы А

Решение

Решение

@shtorm 007 0 / 0 / 0 Регистрация: 18.11.2018 Сообщений: 22

	Подсчитать количество фамилий, начинающихся с буквы А 18.11.2018, 15:34. Показов 2009. Ответов 10 Метки нет (Все метки) Есть список из 30 фамилий, каждое из которых содержит не более 16 букв. подсчитать количество фамилий, начинающихся с буквы А. Сделать с одномерными массивами. 0

@shtorm 007 0 / 0 / 0 Регистрация: 18.11.2018 Сообщений: 22
	18.11.2018, 16:10 [ТС]
	Спасибо конечно, но я только начал изучать программирование , можно более раскрыто написать ? 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	18.11.2018, 16:13
	Что тут можно более раскрыто? Наведите мышкой на то что не понятно, там у всего есть описание. Так же можете поставить на него курсор и нажать F1 - откроется справка. 1

@shtorm 007 0 / 0 / 0 Регистрация: 18.11.2018 Сообщений: 22
	18.11.2018, 16:42 [ТС]
	Та мне ненужно коротко, мне бы как можно примитивней .Чтоб я мог разобраться . 0

@shtorm 007 0 / 0 / 0 Регистрация: 18.11.2018 Сообщений: 22
	20.11.2018, 09:49 [ТС]
	Sun Serega, Можете пожалуста обьяснить третью строку , что в ней происходит? Что это за символ "->"? 0

@shtorm 007 0 / 0 / 0 Регистрация: 18.11.2018 Сообщений: 22
	20.11.2018, 15:33 [ТС]
	Sun Serega, благодарю 0