Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Вниз

Работа с текстовыми файлами   Найти похожие ветки 

← →
Shnabs   (2004-12-26 21:54) [0]

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

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;

---

← →
Vasya.ru ©   (2004-12-26 21:59) [1]

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

---

← →
Shnabs   (2004-12-26 22:10) [2]

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

---

← →
Anatoly Podgoretsky ©   (2004-12-26 22:14) [3]

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

---

← →
Vasya.ru ©   (2004-12-26 22:20) [4]

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

---

← →
Shnabs   (2004-12-26 22:21) [5]

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

---

← →
begin...end ©   (2004-12-26 22:26) [6]

> [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:34) [7]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c