Работа с текстовыми файлами

← →
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]

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

> [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 выдает. Наверное пробел за слово считает.

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