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

Дан текст, определить, сколько в нем предложений. Вывести на экран самое длинное

23.07.2014, 10:28. Показов 2697. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан текст, определить, сколько в нем предложений. Вывести на экран самое длинное.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.07.2014, 10:28
Ответы с готовыми решениями:

Дан текст на русском языке. Определить сколько раз в нем встречается самое длинное слово
Дан текст на русском языке. Определить сколько раз встречается самое длинное слово? Язык...

Подсчитать количество предложений во всех файлах и вывести на экран самое короткое и самое длинное предложения
Напишите программу, которая открывает текстовый файл-список, содержащий имена файлов по одному на...

Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово
Уже долго сижу над данной задачей. Плохо понимаю тему работы с файлами и текстом. Объясните...

Сколько предложений в тексте и вывести самое длинное предложение
Нужно на visual c++ Или хотя бы просто посоветуйте как сделать примерно, какие команды...

2
58 / 40 / 41
Регистрация: 26.09.2013
Сообщений: 346
Записей в блоге: 1
23.07.2014, 12:42 2
Лучший ответ Сообщение было отмечено prevezura как решение

Решение

prevezura,
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses CRT;
const
 simv=['!', '?', '.'];
var st:string;
k, i1, i2, x, max, max1, max2,ko,i : integer;
function f (var i1, i2 : integer) : integer;
var s : integer;
begin
s := 0;
i1 := k;
while (k <= length (st)) and
(st [k] <> '.') do
begin
inc (s);
inc (k);
end;
i2 := k;
inc (k);
f := s
end;
begin
clrscr;
writeln ('ВВЕДИТЕ ТЕКСТ');
READ (st);
k:=1;
max:=0;
while k <= length (st) do
begin
x := f (i1, i2);
if x > max
then begin
max := x;
max1 := i1;
max2 := i2
end
end;
writeln ('САМОЕ ДЛИННОЕ ПРЕДЛОЖЕНИЕ - ',COPY (st, max1, max2 - max1 + 1));
for i:=1 to length(st) do
    if st[i] in simv then inc(ko);
writeln('Всего предложений:',ko)
end.
2
72 / 72 / 64
Регистрация: 30.04.2014
Сообщений: 214
24.07.2014, 14:35 3
А признаком окончания предложения может быть только точка? Может надо использовать множество символов: точка, знак вопроса, восклицательный знак?
0
24.07.2014, 14:35
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
24.07.2014, 14:35
Помогаю со студенческими работами здесь

помогите доделать до конца в делфи. Задание:дан текст определить сколько в нем предложений,теперь мне осталось сделать только исключения
var Form1: TForm1; a:string; k,i:integer; implementation {$R *.dfm} procedure...

Дан файл, содержащий текст на русском языке. Определить, сколько раз встречается в нем самое короткое слово.
Дан файл, содержащий текст на русском языке. Определить, сколько раз встречается в нем самое...

Дан файл, содержащий текст на Английском языке. Определить, сколько раз встречается в нем самое короткое слово
Дан файл, содержащий текст на Английском языке. Определить, сколько раз встречается в нем самое...

Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных
Пожалуйста помогите решить задание,не могут понять как это делать в VB, просмотрела все похожие...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст
РоΜа 23.01.2025
Возникла необходимость преобразовать поля в текст (те, что на вкладке разработчик добавляются) . Помучившись родил следующее: Sub ПоляВТекст() Преобразует все поля в текст (даты, текст,. . .
Как проверить существование директории в скрипте Bash
bt_guru 23.01.2025
При разработке скриптов Bash одной из ключевых задач является корректная работа с файловой системой, где особое место занимает проверка существования директорий. Эта операция становится критически. . .
Как работают срезы (slice) в Python
bytestream 23.01.2025
Python предоставляет разработчикам мощный и гибкий инструмент для работы с последовательностями данных - срезы (slices). Эта функциональность позволяет извлекать, модифицировать и управлять. . .
Как удалить подмодуль (submodule) в Git
bytestream 23.01.2025
При работе с крупными проектами в системе контроля версий Git разработчики часто сталкиваются с необходимостью управления зависимостями и внешними компонентами. Подмодули (submodules) представляют. . .
В чем разница между @staticmethod и @classmethod в Python. Декораторы методов
bytestream 23.01.2025
В Python декораторы методов представляют собой мощный инструмент, позволяющий модифицировать поведение функций и методов без изменения их исходного кода. Эта возможность является одной из. . .
Как преобразовать InputStream в String в Java
bytestream 23.01.2025
В мире Java-разработки работа с потоками данных является одной из ключевых операций при создании современных приложений. InputStream, как фундаментальный класс для обработки входных потоков данных,. . .
Как обновить форк (ответвление) репозитория в Git
bytestream 23.01.2025
Одним из наиболее мощных инструментов Git для организации совместной работы является механизм форкинга репозиториев, который позволяет создавать независимые копии проектов для дальнейшей разработки. . . .
Как работает async/await в C#. Асинхронное программировани­е в .NET
bytestream 23.01.2025
Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .
КуМир: полное руководство
bytestream 23.01.2025
Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .
Что такое OLAP. Где и как использовать многомерный анализ данных
bytestream 23.01.2025
Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .
MongoDB: что это, для чего нужна и как использовать
bytestream 23.01.2025
Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .
Как использовать закрытый ключ шифрования в Git. Шифрование в Git
bytestream 23.01.2025
Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru