Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Галания
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 32
1

Посчитать количество слов

21.02.2010, 21:01. Просмотров 1019. Ответов 2
Метки нет (Все метки)

Помогитерешить две задачи:
1.Напечатать первый и последний символы и различные английские буквы входящие в слово минимальной длины.
2.Посчитать количество слов символы которого упорядочены по возрастанию и которые не начинаются с цифры.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.02.2010, 21:01
Ответы с готовыми решениями:

как посчитать количество слов в строке?
program lab_8; uses crt; {подключаем модуль crt} const s:...

В текстовом файле посчитать количество слов
В текстовом файле book.txt посчитать количество слов, которые заканчиваются на...

Посчитать количество слов, которые не содержат букву А.
задача такая- по одному символу до точки вводятся символы предложения.слова...

посчитать количество слов, которые имеют не меньше двух букв с.
задана строка что складываэца з слов розделеных одним или нескольками...

Имеется предварительно созданный текстовый файл, посчитать количество слов в нем
Имеется предварительно созданный текстовый файл,посчитать количество слов в нем

2
Puporev
Модератор
55423 / 42548 / 29403
Регистрация: 18.05.2008
Сообщений: 100,660
21.02.2010, 21:43 2
Цитата Сообщение от Галания Посмотреть сообщение
Напечатать первый и последний символы и различные английские буквы входящие в слово минимальной длины.
Как правило слова минимальной длины в тексте состоят из 1 или 2 символов, дурацкая задача.
0
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
22.02.2010, 01:32 3
Лучший ответ Сообщение было отмечено Галания как решение

Решение

Цитата Сообщение от Галания Посмотреть сообщение
Напечатать первый и последний символы и различные английские буквы входящие в слово минимальной длины
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
uses
  Crt;
const
  dividers = [' ',',','.',';',':','-','=','+'];{äîïèñГ*ГІГј Г*ГіГ¦Г*ûå}
var
  s,temp,min: string;
  i: integer;
  m: set of char;
begin
  ClrScr;
  ReadLn(s);
  temp := '';
  min := s;
  for i := 1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp := temp + s[i];
    if ((s[i] in dividers) or (i = Length(s))) and (temp <> '') then
    begin
      if Length(temp) < Length(min) then
        min := temp;
      temp := '';
    end
  end;
  WriteLn('Г‘Г*ìîå êîðîòêîå ñëîâî: ', min);
  WriteLn('Ïåðâûé ñèìâîë: ', min[1]);
  WriteLn('ÏîñëåäГ*ГЁГ© ñèìâîë: ', min[Length(min)]);
  WriteLn('ГђГ*çëè÷Г*ûé Г*Г*ãëèéñêèå ñèìâîëû ñëîâГ*:');
  for i := 1 to Length(min) do
    if not (min[i] in m) and (min[i] in ['a'..'z', 'A'..'Z']) then
    begin
      Include(m, min[i]);
      Write(min[i], ' ')
    end;
  ReadLn
end.
Цитата Сообщение от Галания Посмотреть сообщение
Посчитать количество слов символы которого упорядочены по возрастанию и которые не начинаются с цифры
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
  dividers = [' ',',','.',';',':','-','=','+'];{äîïèñГ*ГІГј Г*ГіГ¦Г*ûå}
 
function Check(s: string): boolean;
var
  i: byte;
begin
  if s[1] in ['0'..'9'] then
  begin
    Check := false;
    exit
  end;
  i := 2;
  while (s[i] > s[i-1]) and (i < Length(s)) do
    Inc(i);
  Check := s[i] > s[i-1]
end;
 
var
  s,temp: string;
  i: integer;
begin
  ClrScr;
  ReadLn(s);
  temp := '';
  for i := 1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp := temp + s[i];
    if ((s[i] in dividers) or (i = Length(s))) and (temp <> '') then
    begin
      if Check(temp) then
        Write(temp, ' ');
      temp := '';
    end
  end;
  ReadLn
end.
Регистр не учитывал
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 01:32

Посчитать количество слов, содержащих не менее двух гласных букв подряд
Доброго времени суток ребят, срочно надо решить 2 задачи. я месяц не могу...

Дана строка, состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв в ведении тексте
Дана строка, состоящая из слов, разделенных пробелами. Посчитать количество...

Посчитать колличество слов
Слова в строке отделены пробелами. Подсчитать количество слов, в которых буква...


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

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

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