Дана строка из нескольких слов, заканчивающаяся точкой

@Neznakom4eg · Регистрация: 01.07.2014

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

Помогите пожалуйста. Это все нужно сделать в одной программе.

Дана строка из нескольких слов, заканчивающаяся точкой.
1)Найти количество буквосочетаний(min)
2)Подсчитать количество слов в этой строке
3)Удалить лишние пробелы
4)Найти самое длинное и самое короткое слово
5)Отсортировать строку по убыванию длины слов

Добавлено через 4 часа 53 минуты
Пожалуйста!!!

@ZX Spectrum-128 · 18.12.2014, 11:32

5-е не сделал.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
uses
  strutils;
var
  s:string;
  kmin,i,kpos:integer;
 
procedure DelAndFind(var st:string; var number:integer);
var
  j, i:integer;
begin
  number:=0;
  if st='' then
    exit;
  if (st[1]=' ') then
    delete(st, 1, 1)
  else
    inc(number);
  for i:=Length(st) downto 1 do
    begin
      if (st[i] in [' ']) then
        begin
          inc(number);
        repeat
          if (st[i+1]=' ') then
            begin
              delete(st, (i+1), 1);
            end;
        until ((st[i+1])<>'.');
      end;
  end;
end;
 
procedure LongAndShort(a:string);
{(C) кот Бегемот}
var
  x,b:array[1..100] of string;
  i,k,min,max:integer;
  z:string;
begin
  k:=0;
  z:=a;
  a:=' '+a;
  for i:=1 to length(a) do
    if a[i] in [' ',',',';',':'] then
      inc(k)
    else
      b[k]:=b[k]+a[i];
 
  max:=length(b[1]);
  for i:=1 to k do
    if length(b[i])>max then
      max:=length(b[i]);
  writeln('Cамые длинные слова: ');
  for i:=1 to k do
    if length(b[i])=max then
      writeln(b[i],': ',length(b[i]));
  for i:=1 to 100 do
    b[i]:='';
  k:=0;
  a:=z;
  a:=' '+a;
  for i:=1 to length(a) do
    if a[i] in [' ',',',';',':'] then
      inc(k)
    else
      b[k]:=b[k]+a[i];
 
  min:=length(b[1]);
  for i:=1 to k do
    if (length(b[i])<min) and (length(b[i])<>0)then
      min:=length(b[i]);
  writeln('Cамые короткие слова: ');
  for i:=1 to k do
    if length(b[i])=min then
      writeln(b[i],': ',length(b[i]));
end;
 
function CSubs(sub,s: string): byte;
begin
  if Pos(sub, s) = 0 then
    CSubs := 0
  else
    CSubs := 1 + CSubs(sub, Copy(s, Pos(sub, s) + Length(sub), Length(s)));
end;
 
begin
  s:='Помогите, пожалуйста, это все нужно сделать в одной программе:'+#10#13+
  'Найти количество буквосочетаний (min);'+#10#13+
  'Подсчитать количество слов    в этой строке;'+#10#13+
  'Удалить лишние пробелы;'+#10#13+
  'Найти самое длинное и    самое короткое (min) слово;'+#10#13+
  'Отсортировать строку    по убыванию (min) длины слов (min).';
  writeln('Исходная строка: ');
  writeln(s);
  writeln;
  writeln('Количество буквосочетаний (min): ',Csubs('min',s));
  writeln;
  DelAndFind(s,kmin);
  writeln('Лишние пробелы удалены: ');
  writeln(s);
  writeln;
  writeln('Количество слов в этой строке: ',kmin);
  longandshort(s);
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@Neznakom4eg 0 / 0 / 0 Регистрация: 01.07.2014 Сообщений: 20

	Дана строка из нескольких слов, заканчивающаяся точкой 17.12.2014, 17:17. Показов 2004. Ответов 1 Метки нет (Все метки) Помогите пожалуйста. Это все нужно сделать в одной программе. Дана строка из нескольких слов, заканчивающаяся точкой. 1)Найти количество буквосочетаний(min) 2)Подсчитать количество слов в этой строке 3)Удалить лишние пробелы 4)Найти самое длинное и самое короткое слово 5)Отсортировать строку по убыванию длины слов Добавлено через 4 часа 53 минуты Пожалуйста!!! 0

Дана строка из нескольких слов, заканчивающаяся точкой

Решение