powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите пожалуйста с задачей на списки
7 сообщений из 7, страница 1 из 1
Помогите пожалуйста с задачей на списки
    #33740850
Бобик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Написать программу, которая формирует список слов и подсчитывает количество слов списка,которые начинаются и заканчиваются одной и той же буквой.
...
Рейтинг: 0 / 0
Помогите пожалуйста с задачей на списки
    #33741165
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И что именно вызывает затруднения?

Например -

Код: plaintext
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.
SQL> with
   2     src as (select 'Вот такой вот тест странной задачи. Тот препод, что его дал - удивителен.' data from dual),
   3     src2 as (select replace (replace (replace (data, '.'), ','), '-') data from src),
   4     src3 as (select ' ' || trim (data) || ' ' data from src2),
   5     positions as (
   6       select src3.data,
   7              instr(src3.data, ' ',  1 , n#) p_from,
   8              instr(src3.data, ' ',  1 , n# +  1 ) p_to
   9       from src3,
  10            (select rownum n#
  11             from src
  12             connect by level <=
  13                        length(src.data) - length(replace(src.data, ' ', '')) +  1 )),
  14     words as (select trim (substr (data, p_from, p_to - p_from)) word from positions),
  15     filtered as (
  16       select word,
  17              case
  18                when lower(substr(word,  1 ,  1 )) =
  19                     lower(substr(word, length(word),  1 )) then
  20                 'Y'
  21                else
  22                 ''
  23              end is_filtered
  24       from words
  25       where word is not null)
  26   select case
  27            when grouping(is_filtered) =  0  then
  28             word
  29            else
  30             '** Всего **'
  31          end word,
  32          case
  33            when grouping(is_filtered) =  0  then
  34             is_filtered
  35            else
  36             to_char(sum(case
  37            when is_filtered = 'Y' then
  38              1 
  39            else
  40              0 
  41          end)) end filtered
  42   from filtered
  43   group by grouping sets((word, is_filtered),()) ;

WORD            FILTERED
--------------- ---------------
Вот             
Тот             Y
вот             
дал             
его             
что             
тест            Y
такой           
задачи          
препод          
странной        
удивителен      
** Всего **      2 

 13  rows selected
...
Рейтинг: 0 / 0
Помогите пожалуйста с задачей на списки
    #33741180
maXmo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А у меня короче :)
Код: plaintext
1.
2.
3.
var s="sdf sdf sdf sdf sds", list, i,kol;
list=s.match(/\w*/g);
 for (kol=i= 0 ;i<list.length;i++)  if (list[i].match(/^(\w).*\ 1 $/))kol++;
WScript.Echo(kol);
...
Рейтинг: 0 / 0
Помогите пожалуйста с задачей на списки
    #33741185
maXmo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хм... если надо по-русски, то так:
Код: plaintext
1.
2.
3.
4.
var s="Вот такой вот тест странной задачи. Тот препод, что его дал - удивителен.";
var list,i,kol;
list=s.match(/[А-Яа-я]*/g);
 for (kol=i= 0 ;i<list.length;i++)  if (list[i].match(/^(.).*\ 1 $/i))kol++;
WScript.Echo(kol);
...
Рейтинг: 0 / 0
Помогите пожалуйста с задачей на списки
    #33741193
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
maXmoА у меня короче :)
Хм. Сочувствую, но говорят, в интернете предлагается полно средств для избавления от этой проблемы :))
...
Рейтинг: 0 / 0
Помогите пожалуйста с задачей на списки
    #33741219
maXmo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
аааааааааааааааааааааа!!!!!!!!!!!!
------------------
- А как в Интеpнете pаботать? - Сначала нужно узнать, что вам нужно rtfm
...
Рейтинг: 0 / 0
Помогите пожалуйста с задачей на списки
    #33741376
Sarin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Главное не размер. Главное - умение:)
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите пожалуйста с задачей на списки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]