Форум программистов, компьютерный форум, киберфорум
C# Windows Forms
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 02.10.2017
Сообщений: 48

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

27.11.2018, 12:55. Показов 2256. Ответов 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
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
const m=100;    // Максимальное кол-во слов.
 
var F:Text;
    a:array[1..m] of string;
    i:integer;
    FileName:string;
 
Procedure Load(FileName:String);
begin
Assign(F,FileName);
Reset(F);
end;
 
Procedure Sort1;
var s:string;
begin
i:=1;
repeat
ReadLn(F,s);
 repeat
 a[i]:=Copy(s,1,pos(' ',s)-1);
 delete(s,1,pos(' ',s));
 inc(i);
 until pos(' ',s)=0;
 a[i]:=s;
until EoF(F);
end;
 
Procedure Sort2;
var n:integer;
    s,s2:string;
    z:boolean;
begin
repeat
z:=false;
for n:=1 to i-2 do
 begin
 s:=a[n];
 s2:=a[n+1];
 if ord(s[1]) > ord(s2[1]) then
  begin
  a[n]:=s2;
  a[n+1]:=s;
  z:=true;
  end else
  if (ord(s[2]) > ord(s2[2])) and (s[1]=s2[1])  then
   begin
   a[n]:=s2;
   a[n+1]:=s;
   z:=true;
   end else
   if (ord(s[3]) > ord(s2[3])) and (s[1]=s2[1]) and (s[2]=s2[2]) then
    begin
    a[n]:=s2;
    a[n+1]:=s;
    z:=true;
    end;
 end;
until z = false;
end;
 
Procedure Vivod;
var n:integer;
begin
for n:=1 to i-1 do
writeln(a[n]);
end;
 
begin
WriteLn('File:');
Readln(FileName);
Load(FileName);
Sort1;
Sort2;
Vivod;
readln;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.11.2018, 12:55
Ответы с готовыми решениями:

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

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

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

3
Администратор
Эксперт .NET
 Аватар для OwenGlendower
18307 / 14231 / 5368
Регистрация: 17.03.2014
Сообщений: 28,904
Записей в блоге: 1
27.11.2018, 22:54
99Fak99, как этот вопрос связан с C#?
0
0 / 0 / 0
Регистрация: 02.10.2017
Сообщений: 48
29.11.2018, 20:02  [ТС]
Вот
связан
1 часть сделал
2 не могу сделать
C#
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
public partial class Form1 : Form    
{        
Form1 f1;        
Form2 f2;        
public Form1()        
{     InitializeComponent();    }              
private void button1_Click(object sender, EventArgs e)        
{            StreamReader sd = new StreamReader(@"C:\ImportTextFile.txt");            
DataSet ds = new DataSet();            
ds.Tables.Add("StaffID");            
string header = sd.ReadLine();            
string[] klon =Regex.Split(header, "\t");           
for (int c = 0; c< klon.Length;c++)            
{           ds.Tables[0].Columns.Add(klon[c]);            }            
string row = sd.ReadLine();                                     
while(row!=null)            
{                string[] rc =Regex.Split(row, "\t");                
ds.Tables[0].Rows.Add(rc);               
 row = sd.ReadLine();            }            
dataGridView1.DataSource = ds.Tables[0];        }        
private void button2_Click(object sender, EventArgs e)        
{       Form2 f2 = new Form2(this);            
this.Hide();            
f2.Show();                   
}
Вложения
Тип файла: pdf 5 Работа с текстовыми файлами.pdf (864.1 Кб, 3 просмотров)
0
 Аватар для PoPsa85
814 / 561 / 240
Регистрация: 01.07.2018
Сообщений: 1,818
29.11.2018, 20:48
99Fak99,
C#
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
    class Employees
    {
        public Employees(string name, string lastname, string gender)
        {
            this.name = name;
            this.lastname = lastname;
            this.gender = gender;
        }
 
        public string name { get; set; }
        public string lastname { get; set; }
        public string gender { get; set; }
    }
        private void button1_Click(object sender, EventArgs e)
        {
            string[] empFile = File.ReadAllLines("путь к файлу");
            List<Employees> employees = new List<Employees>();
            foreach (var item in empFile)
            {
                var line = item.Split('\t');
                employees.Add(new Employees(line[0],line[1],line[2]));
            }
 
            dataGridView1.DataSource = employees.OrderBy(x=>x.name).ToList();
        }
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.11.2018, 20:48
Помогаю со студенческими работами здесь

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

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru