| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с текстовыми файлами [D7, WinXP]

Shnabs ©   (2004-12-26 21:54:00) 

Привет, перцы! А задачку решить поможете?
Дан файл, содержащий текст на русском языке. Определить, сколько раз в нем встречается самое короткое слово.

var
ft1: TextFile;
s1,BigS:string;
begin
   if OpenDialog1.Execute then begin
   AssignFile(ft1, OpenDialog1.Filename);
   Reset(ft1);

      while not Eof(ft1) do
      begin
      Readln(ft1, s1);

    ........
а вот тут что нужно?
    ..........
 
    CloseFile(ft1);
end;
end;

---

Shnabs   (2004-12-26 22:34:00) [1]

Спасибо. Только он у меня всегда 1 выдает. Наверное пробел за слово считает.

---

begin...end   (2004-12-26 22:26:00) [2]

> [2] Shnabs   (26.12.04 22:10)

Может, так:

var
 F: TextFile;
 S: String;
 minL, L, N: Integer;
begin
 AssignFile(F, 'c:\test.txt');
 Reset(F);
 minL := High(Integer);
 N := 1;
 while not EOF(F) do
 begin
   ReadLn(F, S);
   L := Length(S);
   if L < minL then
   begin
     minL := L;
     N := 1
   end
   else if L = minL then
     Inc(N)
 end;
 CloseFile(F);
 ShowMessage(IntToStr(N))
end.

?

---

Shnabs   (2004-12-26 22:21:00) [3]

Ладно, согласен. Наглею. Просто в лом писать. А надо.

---

Vasya.ru   (2004-12-26 22:20:00) [4]

Anatoly Podgoretsky ©   (26.12.04 22:14) [3]
технические сложности очевидно в подсчете букв в слове

---

Anatoly Podgoretsky   (2004-12-26 22:14:00) [5]

Ну и в чем конкретная проблема, написать програму или есть какие ни будь технические сложности, тогда огласи их.

---

Shnabs   (2004-12-26 22:10:00) [6]

Необходимо просто вывести число, самых коротких слов, встречающихся в файле. Например: файл содержит слова: (раз два три четыре пять) то вывести число 3.

---

Vasya.ru   (2004-12-26 21:59:00) [7]

тебе одно слово посчитать надо, или, допустим, все слова минимальной длины?

---

Наверх