Напишите программу, которая выдаст на экран пять слов максимальной длины из слова "ЭЛЕКТРИЧЕСТВО"

@Павел1995 · Регистрация: 14.06.2013

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

Напишите программу, которая выдаст на экран пять слов максимальной длины из слова "ЭЛЕКТРИЧЕСТВО".

@barbudo59 · 14.06.2013, 13:59

Условие туманное. Как проверять, что такие слова вообще есть?

@chizz · 14.06.2013, 14:11

С использованием словаря.
Задача сводится к перебору всех возможных сочетаний и поиску в таблице/файле/хэше.

@barbudo59 · 14.06.2013, 14:21

Сообщение от chizz

С использованием словаря

Дело за малым - выбрать, какой словарь использовать, и подключить его

@chizz · 14.06.2013, 14:42

В учебных целях можно простой словарик. Если преподу надо будет - пусть сам словарь заполняет.
Дело программиста - создать программу, которая выполняет поставленную задачу. А остальное - головная боль пользователя

Добавлено через 18 минут
Слово длинное, вариант с рекурсией может не прокатить..

@barbudo59 · 14.06.2013, 15:08

Поскольку в словарях уже сделана сортировка по алфавиту, можно зайти "с этой же стороны":
вееиклорсттчэ
Открываем словарь на букву В, слова до ВЕ... пропускаем, дальше проверяем буквы по очереди. И т.д.

@chizz · 14.06.2013, 15:23

Да, можно пойти другим путем. ПРоверять можно ли составить из букв слова ЭЛЕКТРИЧЕСТВО слово из словаря.
Только тогда при миллионе+ слов в словаре программа будет не юзабельна

Добавлено через 5 минут
Вот например есть код на C++, осуществляющий перестановки http://kolyanlab.alfamoon.com/... restanovok

Только надо переписать на Pascal и добавить функцию Sort

Как вариант закодировать буквы цифрами, либо использовать ASCII коды.
Словарик тоже закодировать, чтобы сверять можно было легче.

@Striker · 14.06.2013, 15:47

ЭЛЕКТРИЧЕСТВО

- 6 227 020 800 комбинаций - Это сколько по времени компьютер будет перебирать...

Мне кажется задание не верно поставлено... Либо его наказали в институте за неуспеваемость - данной задачкой, чтобы помучился, а вернее помучил данный форум...

@barbudo59 · 14.06.2013, 15:57

Сообщение от chizz

программа будет не юзабельна

ну почему? Взять словарик потоньше и нечего замахиваться на миллион+ слов!

Сообщение от chizz

Дело программиста - создать программу, остальное - головная боль пользователя

@chizz · 14.06.2013, 16:30

Вот например вариант, в котором мы идем этим путем. Берем из словарика слово и проверяем, можно ли из букв слова "электричество" составить слово из словарика.

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
uses crt;
var s1,s2,filename:string;
s3:array[1..1000] of string;
k:integer;
 
i:integer;
f:boolean;
 
dict:text;
 
function isPresent(s1,s2:string):boolean;
begin
isPresent:=true;
 for i:=1 to length(s2) do if pos(s2[i],s1)>0 then delete(s1,pos(s2[i],s1),1) else
 begin
  isPresent:=false;
  break;
 end;
end;
 
begin
 clrscr;
 write('Enter dictionary file');
 readln(filename);
 
 s1:='электричество';
 
 assign(dict,filename);
 reset(dict);
      k:=1;
 while not eof(dict) do
 begin
 
 readln(dict,s2);
 //writeln(s2); for test purpose
 if isPresent(s1,s2) then begin s3[k]:=s2;k:=k+1; end;//writeln('Можно') else writeln('Нельзя');
 end;
 
 // ToDo
 // сортируем массив s3 по убыванию размеров элементов и выведем пять первых
 
//-------------/////
 
 
 close(dict);
 readln;
end.

Добавлено через 4 минуты

Сообщение от barbudo59

Дело программиста - создать программу

А чего это вы выдергиваете слова из контекста? В оригинале звучит: Дело программиста - создать программу, которая выполняет поставленную задачу

@Павел1995 · 19.06.2013, 19:13 **[ТС]**

Почемуто выдает ошибку:
Program1.pas(14) : Переменная цикла for должна описываться в том же блоке, что и цикл for

Добавлено через 43 секунды
Почемуто выдает ошибку:
Program1.pas(14) : Переменная цикла for должна описываться в том же блоке, что и цикл for

@barbudo59 · 19.06.2013, 19:36

Сообщение от Павел1995

в том же блоке, что и цикл for

надо прописать

Pascal
1
2
3
4
var i: integer;
begin
.....
for i:= ......

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Павел1995 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 21

	Напишите программу, которая выдаст на экран пять слов максимальной длины из слова "ЭЛЕКТРИЧЕСТВО" 14.06.2013, 12:51. Показов 3253. Ответов 11 Метки нет (Все метки) Напишите программу, которая выдаст на экран пять слов максимальной длины из слова "ЭЛЕКТРИЧЕСТВО". 0

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	14.06.2013, 13:59
	Условие туманное. Как проверять, что такие слова вообще есть? 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	14.06.2013, 14:11
	С использованием словаря. Задача сводится к перебору всех возможных сочетаний и поиску в таблице/файле/хэше. 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	14.06.2013, 14:42
	В учебных целях можно простой словарик. Если преподу надо будет - пусть сам словарь заполняет. Дело программиста - создать программу, которая выполняет поставленную задачу. А остальное - головная боль пользователя Добавлено через 18 минут Слово длинное, вариант с рекурсией может не прокатить.. 0

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	14.06.2013, 15:08
	Поскольку в словарях уже сделана сортировка по алфавиту, можно зайти "с этой же стороны": вееиклорсттчэ Открываем словарь на букву В, слова до ВЕ... пропускаем, дальше проверяем буквы по очереди. И т.д. 0

@chizz 993 / 521 / 102 Регистрация: 19.03.2013 Сообщений: 3,114 Записей в блоге: 19
	14.06.2013, 15:23
	Да, можно пойти другим путем. ПРоверять можно ли составить из букв слова ЭЛЕКТРИЧЕСТВО слово из словаря. Только тогда при миллионе+ слов в словаре программа будет не юзабельна Добавлено через 5 минут Вот например есть код на C++, осуществляющий перестановки http://kolyanlab.alfamoon.com/... restanovok Только надо переписать на Pascal и добавить функцию Sort Как вариант закодировать буквы цифрами, либо использовать ASCII коды. Словарик тоже закодировать, чтобы сверять можно было легче. 0

@Павел1995 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 21
	19.06.2013, 19:13 [ТС]
	Почемуто выдает ошибку: Program1.pas(14) : Переменная цикла for должна описываться в том же блоке, что и цикл for Добавлено через 43 секунды Почемуто выдает ошибку: Program1.pas(14) : Переменная цикла for должна описываться в том же блоке, что и цикл for 0

Напишите программу, которая выдаст на экран пять слов максимальной длины из слова "ЭЛЕКТРИЧЕСТВО"

Решение