Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Галания
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 32
#1

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

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

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

как посчитать количество слов в строке? - Pascal
program lab_8; uses crt; {подключаем модуль crt} const s: string=',.?!()";:-'; {объявляем строковую константу со знаками...

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

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

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

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

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

2
Puporev
Модератор
52845 / 40656 / 13909
Регистрация: 18.05.2008
Сообщений: 94,378
21.02.2010, 21:43 #2
Цитата Сообщение от Галания Посмотреть сообщение
Напечатать первый и последний символы и различные английские буквы входящие в слово минимальной длины.
Как правило слова минимальной длины в тексте состоят из 1 или 2 символов, дурацкая задача.
0
Inadequate
Retired
7707 / 2540 / 184
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Посчитать колличество слов - Pascal
Слова в строке отделены пробелами. Подсчитать количество слов, в которых буква 'а' встречается ровно 3 раза. помогите прошу вас...

Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы - Pascal
Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы 'b'

Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр - Pascal
Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем записывать получившееся число подряд без пробелов, и получим некое...


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

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

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