2 / 2 / 0
Регистрация: 06.12.2010
Сообщений: 135
1

Перечислить в алфавитном порядке все слова, встречающиеся в этом тексте.

24.06.2011, 23:26. Показов 1701. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан файл, содержащий текст на русском языке. Перечислить в алфавитном порядке все слова, встречающиеся в этом тексте.
0
24.06.2011, 23:26
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.06.2011, 23:26
Ответы с готовыми решениями:

Вывести в другой файл в алфавитном порядке все слова, встречающиеся в тексте
Дан файл, содержащий текст. Вывести в другой файл в алфавитном порядке все слова, встречающиеся в этом тексте. Язык Си. Сначала я из...

Вывести все гласные буквы встречающиеся в тексте в алфавитном порядке
дан текст за которым следует точка. вывести все гласные буквы встречающиеся в тексте в алфавитном порядке, помогите пожалуйста

Множества. Вывести на экран в алфавитном порядке все буквы, встречающиеся в тексте
1.Задан текст, состоящий из латинских букв, в конце идет точка. Вывести на экран все буквы в алфавитном порядке, встречающиеся в тексте...

4
code code
 Аватар для Шутка
128 / 123 / 77
Регистрация: 11.10.2009
Сообщений: 375
25.06.2011, 11:03 2
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
var
Slovo,S:String;
mnoj:SEt of char;
k:char;
nach,kon,kol1,kol2,i,p:intEgEr;
bEgin
mnoj:=['À','Á','Â'];
rEadln(S);
p:=192;
rEpEat
for i:=1 to lEngth(S) do bEgin
  k:=S[i]; nach:=i;
 whilE (S[i]<>' ') and (i<>lEngth(S)) do bEgin
   inc(kol1);
    if S[i] in mnoj thEn inc(kol2);
     inc(i);
 End;
kon:=i;
 Slovo:=copy(S,nach,kon-nach+1);
if kol1=kol2 thEn if ord(k)=p thEn writEln(Slovo);
kol1:=0; kol2:=0; inc(p);
End;
until p>223
End.
Вот вам набросок.
Протестирйте этУ программУ(добавьте в мн-во весь алфавит), добавьте файл и готово.
Если что-то не понятно - спрашивайте.

pS И простите за бУквЫ "Е" и "S". ЗабинденЫ блин. =)
1
2 / 2 / 0
Регистрация: 06.12.2010
Сообщений: 135
01.07.2011, 23:58  [ТС] 3
Куда как добавить файл
0
59 / 59 / 52
Регистрация: 19.11.2010
Сообщений: 218
05.07.2011, 14:13 4
Вот,нашёл где-то в инете специально для тебя :
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
Program SS;
Uses crt;
 Var T : Text;
     R : String;
     Stroka, Slovo : String;
     Sl : File Of String;
     N : Integer;
  {Процедура преобразования заглавных букв в слове в маленькие}
 Procedure Preobr(Var S : String);
  Var I : Byte;
  Begin
      For I := 1 To Length(S) Do
      Begin
       If Ord(S[I]) In [128..143]
       Then S[I] := Chr(Ord(S[I]) + 32);
       If Ord(S[I]) In [144..159]
       Then S[I] := Chr(Ord(S[I]) + 80)
      End
  End;
   {Процедура поиска слова в данной строке и занесение его в словарь}
 Procedure Find(Var S : String);
   Const Mn = ['А'..'Я', 'а'..'п', 'р'..'я'];
   Var   N, K : Integer;
         S1, Slovo, X : String;
         B : Boolean;
         KK, Poz : Integer;
  Begin
    N := 1;
    {Ищем начало слова}
    While Not(S[N] In Mn) And (N <= Length(S)) Do
       N := N + 1;
    K := N;
    {Ищем конец слова}
    While (S[K] In Mn) And (K <= Length(S))  Do
       K := K + 1;
    S1 := Copy(S, N, K - N);
    Preobr(S1);
    {Ищем начало следующего слова}
    While Not(S[K] In Mn) And (K <= Length(S)) Do
       K := K + 1;
    Delete(S, 1, K - 1); {Удаление найденного слова вместе с пробелами
                          и знаками препинания }
    {Вставляем очередное слово в словарь}
        ReSet(Sl);
        B := True;
        While Not Eof(Sl) And B Do
         Begin
           Read(Sl, Slovo);
           B := S1 > Slovo
         End;
             If Eof(Sl)
             Then Begin If B
                        Then Write(Sl, S1)
                  End
             Else If S1 <> Slovo
                       Then
                        Begin
                    Poz := FilePos(Sl)  - 1;
                    KK  := FileSize(Sl) - 1;
                    While KK >= Poz Do
                     Begin
                        Seek(Sl, KK);
                        Read(Sl, X);
                        Write(Sl, X);
                        KK := KK - 1
                     End;
                    Seek(Sl, Poz);
                    Write(Sl, S1)
                   End
  End;
   {Основная программа}
 Begin
    Write('Введите имя файла: ');
    ReadLn(R);
    Assign(T, R);
    Reset(T);
    Assign(Sl, 'c:\tp7\Slovar.dat');
    ReWrite(Sl);
    Close(Sl);
    While Not Eof(T) Do
     Begin
       ReadLn(T, Stroka);
       WriteLn(Stroka);
       While Length(Stroka) > 0 Do
       Find(Stroka);
     End;
    Reset(Sl);
    While Not Eof(Sl) Do
     Begin
      Read(Sl, Stroka);
      WriteLn(Stroka);
     End;
    Close(Sl)
 End.
1
2 / 2 / 0
Регистрация: 06.12.2010
Сообщений: 135
05.07.2011, 20:10  [ТС] 5
Спасибо что нашел но я с этой разобрался
0
05.07.2011, 20:10
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
05.07.2011, 20:10
Помогаю со студенческими работами здесь

Вывести на экран все буквы в алфавитном порядке, встречающиеся в тексте не менее двух раз
2.Задан текст, состоящий из латинских букв, в конце идет точка. Вывести на экран все буквы в алфавитном порядке, встречающиеся в тексте не...

В тексте слова разделены запятыми,напечатать все слова в алфавитном порядке.
Написал программу, она не запускаеться, я понимаю что чтото не так, но что незнаю. В чём я ошибся? Вот само задание: Дана строка ...

Все слова в тексте отсортировать в алфавитном порядке
Все слова в тексте отсортировать в алфавитном порядке. Считать, что слова отделены друг от друга одним пробелом. Огромное спасибо.

Все слова в тексте отсортировать в алфавитном порядке
ребята помогите пожалуйста!!!! 1.Все слова в тексте отсортировать в алфавитном порядке 2.Написать программу, проверяющую, является...

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


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ключевые слова Python
hw_wired 15.02.2025
Ключевые слова в Python - это специальные зарезервированные слова, которые имеют особое значение и функции в языке. В настоящее время Python включает 35 ключевых слов и 4 мягких ключевых слова. Эти. . .
Отличия изменяемых и неизменяемых типов в Python
hw_wired 15.02.2025
В Python существует принципиальное различие между изменяемыми (mutable) и неизменяемыми (immutable) типами данных, которое оказывает существенное влияние на работу программ. Это различие часто. . .
Python: сравнение списков и кортежей
hw_wired 15.02.2025
В Python последовательности являются одними из самых важных и часто используемых типов данных. Они позволяют хранить упорядоченные наборы элементов, к которым можно обращаться по индексу. Среди всех. . .
Как скачивать файлы с URL с помощью Python
hw_wired 15.02.2025
Для скачивания файлов Python предлагает как встроенные средства, так и сторонние библиотеки. Встроенный модуль urllib из стандартной библиотеки обеспечивает базовую функциональность для работы с URL. . .
Использование SQLAlchemy в Python
hw_wired 15.02.2025
SQLAlchemy - мощная библиотека для работы с базами данных в Python, которая предоставляет полноценный набор средств для объектно-реляционного отображения (ORM) и обширные возможности для работы с. . .
Взаимодействие с REST API в Python
hw_wired 15.02.2025
В современном мире разработки программного обеспечения REST API стал неотъемлемой частью архитектуры веб-приложений. API (Application Programming Interface) - это набор правил и протоколов,. . .
Разделение строк в Python
hw_wired 15.02.2025
Python предлагает богатый набор возможностей для работы со строками, и среди них разделение строк занимает особое место. Этот процесс позволяет разбивать текст на отдельные компоненты, что критично. . .
Объединение строк в Python
hw_wired 15.02.2025
При работе с текстовыми данными в Python нередко возникает необходимость объединять несколько строк в одну. Это может потребоваться при форматировании вывода, обработке текстовых файлов или создании. . .
Лучшие игровые движки на Python
hw_wired 15.02.2025
В последнее время разработка игр стала одним из самых популярных направлений программирования, и Python не остался в стороне от этого тренда. Несмотря на то, что Python обычно не ассоциируется с. . .
Декоратор jit в Python
hw_wired 15.02.2025
Если вы достаточно долго изучаете программы и пакеты на Python для машинного обучения, то наверняка замечали, что паттерн "JIT-декоратор" довольно популярен. Этот подход позволяет превратить обычные. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru