Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 18.05.2014
Сообщений: 41
1

В исходной строке а определить сколько в ней находится предложений и сколько слов в каждом предложении

18.06.2014, 15:00. Просмотров 1111. Ответов 1
Метки нет (Все метки)

В исходной строке а определить сколько в ней находится предложений и сколько слов в каждом предложении. Результат вывести на экран
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2014, 15:00
Ответы с готовыми решениями:

Дана фраза. Определить, сколько в ней предложений
дана фраза. определить сколько в ней предложений.

В строке, вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов
В строке вводимой пользователем, определить сколько слов в строке, составить новое предложение из...

Двумерный массив, найти сколько единиц и сколько двоек находится в главной строке
Двумерный массив A(K,M) состоит только из чисел 1,2 и 3. Найти сколько единиц и сколько двоек...

Определить в символьной строке, сколько в ней символов-разделителей
Ввести символьную строку длиной 100 символов и определить, сколько в ней символов разделителей ("...

1
Модератор
Эксперт Pascal/Delphi
6263 / 4221 / 4610
Регистрация: 05.06.2014
Сообщений: 20,794
18.06.2014, 20:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Program zadacha_3;
Var
  in_text, vv_text: string;
  dl, i, j, end_str, n, n_max, max_slovo: integer;
  kol_slovo:integer;
 
Begin
  vv_text:='Мир, труд, май. Привет мир.'; {<- замените на нужную строку}
  Writeln ( 'Исходный текст -   ',vv_text);
  in_text := vv_text+' ';
  dl:=Length(in_text); { длина строки };
  n:=0;
  i:=1;
  while i<=dl do
    begin
      n:= n+1;  { Считаем кол-во предложений};
 
      end_str:=Pos('.',in_text); { Определяем кол-во символов до точки};
      i:=i+end_str;
      j:=1;
      While j < end_str do
        begin
        { Предложение разбиваем на слова и их считаем};
        if Pos(' ',in_text) <> 0 then
          begin
            end_str:= end_str- Pos(' ',in_text);
            Delete(in_text, 1, Pos(' ',in_text)+1);
            kol_slovo:= kol_slovo+1;
          end;
       end;
      Writeln ('Количество cлов в ',n,'-м предложении = ', kol_slovo);
      dl:= dl-(kol_slovo+1);
      kol_slovo:=0;
 
    end;
  Writeln ('Количество предложений = ',n);
  readln; 
End.
0
Миниатюры
В исходной строке а определить сколько в ней находится предложений и сколько слов в каждом предложении  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2014, 20:27

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

Дана строка. Определить, сколько в ней слов начинающихся и заканчивающихся на букву k?
Дана строка. Определить, сколько в ней слов начинающихся и заканчивающихся на букву k? var...

Сколько слов в строке имеет четное количество символов, а сколько - нечетное.
в турбопаскале . условие:Введите строку из нескольких слов. Определите, сколько слов в строке...

Известно, что слова в предложении отделены пробелами. Сколько слов в предложении
Помогите пожалуйста сделать программу без использования глобальных переменных. program lab_7;...

Определить сколько в заданной строке слов
а)между словами один пробел б)между словами несколько пробелов Нужно очень и срочно!!! За ранее...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.