Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
1 / 1 / 0
Регистрация: 13.04.2019
Сообщений: 46

Составить программу, которая посчитает количество слов в предложении, начинающиеся на букву t

15.04.2019, 16:40. Показов 2443. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составить программу, которая посчитает количество слов в предложении, начинающиеся на букву t. (Слова в предложении разделены пробелами).
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.04.2019, 16:40
Ответы с готовыми решениями:

Составить программу, которая посчитает количество слов student в данном предложении
Составить программу, которая посчитает количество слов student в данном предложении.

В предложении удалить слова, начинающиеся на букву «б», посчитать количество слов после удаления
В предложении удалить слова, начинающиеся на букву «б», посчитать количество слов после удаления. Мне нужен код

Составить программу, которая посчитает количество элементов
дано одномерный массив С из n целых чисел. составить программу которая посчитает количество элементов меньших 3 и сумму отрицательных...

5
 Аватар для WildDen
109 / 68 / 46
Регистрация: 13.01.2019
Сообщений: 288
15.04.2019, 16:53
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses Crt;
var
s:string;
k,i:integer;
begin
writeln('stroka:');
read(s);
for i:=2 to length(s) do begin
if (s[i-1]=' ') and (s[i]='t') then
k:=k+1;
end;
writeln('kol-vo slov nasinausihsa na t=',k);
end.
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
15.04.2019, 21:24
Это неверное решение. Программа не учитывает, что первое слово тоже может начинаться на букву t, а в предложении может быть и слово Tambov
0
Модератор
10416 / 5704 / 3401
Регистрация: 17.08.2012
Сообщений: 17,363
16.04.2019, 00:16
Лишние операторные скобки в строках 8 и 11. Незачем писать "uses crt", если модуль crt не используется. Неправильное использование read.

В современных задачах часто путают понятия "буква" и "символ".

Если имеется ввиду "буква t", то можно исправить так:
Pascal
8
9
10
11
12
13
14
15
16
17
18
19
var
  s: string;
  k, i:integer;
 
begin
  writeln('stroka:');
  readln(s);
  for i := 1 to length(s) do
    if (s[i] in ['t', 'T']) and ((i = 1) or (s[i - 1] = ' '))
      then inc(k);
  writeln('kol-vo slov nasinausihsa na "t" = ', k)
end.
Если имеется ввиду "символ t", то условие будет таким:
Pascal
16
    if (s[i] = 't') and ((i = 1) or (s[i - 1] = ' '))
0
 Аватар для WildDen
109 / 68 / 46
Регистрация: 13.01.2019
Сообщений: 288
16.04.2019, 06:36
В условии была только одна буква, я и учел только ее
0
Модератор
10416 / 5704 / 3401
Регистрация: 17.08.2012
Сообщений: 17,363
17.04.2019, 21:40
WildDen, понятия "буква" и "символ" отличаются. В условии сказано про букву, а не про символ.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.04.2019, 21:40
Помогаю со студенческими работами здесь

Как написать программу, которая посчитает количество слов в строке?
Помогите пожалуйста.(:

Составить программу, которая подсчитывает количество слов в каждом предложении, выводит на экран каждое предложение
Составить программу, которая подсчитывает количество слов в каждом предложении, выводит на экран каждое предложение (текст вводиться с...

Написать программу, которая считает число слов в предложении, начинающихся на заданную букву
Написать программу, которая считает число слов в предложении, начинающихся на заданную букву.

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

Написать программу, которая подсчитывает количество слов в предложении
1. Предложение состоит из слов-строк. Написать программу, которая подсчитывает количество слов в предложении. Функция должна...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm)
8Observer8 30.01.2026
Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru