Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а"

@Кппкк · Регистрация: 23.04.2021

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

Во внешнем файле имеется фраза содержащая несколько слов (не более 10). Подсчитать колличество пробелов, вывести на форму слова, начинающиеся на букву "а"
Помогите пожайлуста, я не понимаю, как это сделать.
Нужно в лазарусе. За ранее спасибо!

@Puporev · 12.06.2021, 08:16

Pascal
1
2
3
4
5
6
7
8
9
10
var k:integer
..............................
t:= ReadFileToString('123.txt');
    k:=0;
   for s in t.Split([sLineBreak, '.', ',', ' ']) do inc(k);
   if k>10 then
    begin
     ShowMessage('В файле более 10 слов');
     exit;
    end;

@Кппкк · 12.06.2021, 08:29 **[ТС]**

Посмотрите, что не так, я скорее всего сделал, что-то не так. Слов меньше 10, но выдаёт ошибку

@Puporev · 12.06.2021, 08:51

Нет это я неправильно написал.

Добавлено через 16 минут
Замените строку 5 в моем коде на

Pascal
1
for s in t.Split([sLineBreak, ' ']) do inc(k);

Добавлено через 1 минуту
Но это будет работать если между словрми будет по 1 пробелу.

@Кппкк · 12.06.2021, 08:53 **[ТС]**

Заменил, но тоже самое, скрин прикрепил

@Кппкк · 12.06.2021, 08:55 **[ТС]**

Заработало, но он теперь не выводит слова на "а"

@Puporev · 12.06.2021, 09:01

Содержание файла
Привет, Аквариум, аквариум, шкаф, компьютер, нога, иконка, 11111, 2222, папка, тетрадка.
11 слов
Код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
 
  var t, s : string;
      k:integer;
  begin
    Label1.Caption := '';
    t:= ReadFileToString('123.txt');
    k:=0;
   for s in t.Split([sLineBreak, ' ']) do inc(k);
   if k>10 then
    begin
     ShowMessage('k='+inttostr(k)+'         В файле более 10 слов');
     exit;
    end;
    for s in t.Split([sLineBreak, '.', ',', ' ']) do
    begin
      Memo1.Lines.Add(s);
      if (s.StartsWith('А',True))or(s.StartsWith('а', True))
 then Label1.Caption := Label1.Caption + s + sLineBreak;
    end;
 
    Label1.Caption := Label1.Caption + 'Количество пробелов = ' + IntToStr(t.CountChar(' '))
  end;

Результат

@Puporev · 12.06.2021, 09:04

Содержание файла
Привет, Аквариум, аквариум, шкаф, компьютер, нога, иконка, 11111, папка, тетрадка.
10 слов
Результат

@Кппкк · 12.06.2021, 09:05 **[ТС]**

Спасибо огромное, вроде работает, сейчас буду тестировать)

@Кппкк · 12.06.2021, 18:24 **[ТС]**

Мне нужно немного исправить программу.
У меня программа должна находить слова, которые начинаются на букву "А", "а" именно на кириллице, но на кириллице слова с этой буквой не находятся, а находятся на английском. Мне нужно исправить так, что бы прога находила только русские слова. Спасите!!! Проект прикрепил.

Verevkin · 12.06.2021, 20:06

Было скучно мне. Считай, что тебе повезло...

Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а"

@Кппкк · 12.06.2021, 20:35 **[ТС]**

А как сделать так, чтобы пользователь не мог ввести больше 10 слов?

Verevkin · 12.06.2021, 20:38

Сообщение от Кппкк

А как сделать так, чтобы пользователь не мог ввести больше 10 слов?

А какая должна быть реакция программы, если слов больше 10?

@Кппкк · 12.06.2021, 20:43 **[ТС]**

Если пользователь ввёл больше 10 слов, то должно появиться окно с ошибкой, например, "Введено неверное кол-во слов"

Verevkin · 12.06.2021, 21:16

Сообщение от Кппкк

Если пользователь ввёл больше 10 слов, то должно появиться окно с ошибкой, например, "Введено неверное кол-во слов"

Ну ок.

Как же угрёбищно выглядит Lazarus на винде! Как бельмо в глазу, чесслово, голова аж разболелась.

@northener · 12.06.2021, 21:16

Сообщение от Кппкк

Если пользователь ввёл больше 10 слов

А как и куда пользователь может хоть что-то ввести?

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18

	Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а" 02.06.2021, 17:43. Показов 5429. Ответов 34 Метки нет (Все метки) Во внешнем файле имеется фраза содержащая несколько слов (не более 10). Подсчитать колличество пробелов, вывести на форму слова, начинающиеся на букву "а" Помогите пожайлуста, я не понимаю, как это сделать. Нужно в лазарусе. За ранее спасибо! 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	12.06.2021, 08:29 [ТС]
	Посмотрите, что не так, я скорее всего сделал, что-то не так. Слов меньше 10, но выдаёт ошибку Миниатюры 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	12.06.2021, 08:53 [ТС]
	Заменил, но тоже самое, скрин прикрепил Миниатюры 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	12.06.2021, 08:55 [ТС]
	Заработало, но он теперь не выводит слова на "а" Миниатюры 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	12.06.2021, 09:04
	Содержание файла Привет, Аквариум, аквариум, шкаф, компьютер, нога, иконка, 11111, папка, тетрадка. 10 слов Результат Миниатюры 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	12.06.2021, 09:05 [ТС]
	Спасибо огромное, вроде работает, сейчас буду тестировать) 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	12.06.2021, 20:35 [ТС]
	А как сделать так, чтобы пользователь не мог ввести больше 10 слов? 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	12.06.2021, 20:43 [ТС]
	Если пользователь ввёл больше 10 слов, то должно появиться окно с ошибкой, например, "Введено неверное кол-во слов" 0

Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а"

Решение