VPF::Помоги пожалста... - Форум программистов

Lazarus Long

Дата 29.11.2007, 19:15 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 5.1.2007

Репутация: нет
Всего: нет

Есть текста программы, который должен сортировать слова из файла, но почему-то оно не работает :(
Прошу подкорректировать и направить на путь истинный...
Вот код:

Код


PROGRAM LPR11; 
uses crt; 
CONST 
Count = 100; 
Type 
TArr = array [1..Count] of string; 
VAR 
STR,ST:STRING; 
I,KOL:INTEGER; 
MAS:TArr; 
{ввод имени файла, чтение файла} 
PROCEDURE {проверяю пустой файл или нет, если пустой..ругаюсь} 
PROCEDURE PROV_FILE(LEN:STRING); 
BEGIN 
IF LENGTH(LEN)=0 THEN WRITELN('ФАЙЛ ПУСТОЙ, СОРТИРОВКА НЕВОЗМОЖНА'); 
END; 
{функция возвращает по одному слову, из текста файла} 
FUNCTION TEXT:STRING; 

{сортирую массив слов по возростанию...по алфавиту} 
PROCEDURE SORT; 
VAR 
PER:STRING; 
K:INTEGER; 
BEGIN 
FOR K:=1 TO KOL-1 DO 
BEGIN 
IF MAS[K] > MAS[K+1] THEN 
BEGIN 
PER:=MAS[K+1]; 
MAS[K+1]:=MAS[K]; 
MAS[K]:=PER; 
END; 
END; 
END; 
{вывожу результаты работы на экран} 
PROCEDURE PRINT; 
VAR 
J:INTEGER; 
BEGIN 
FOR J:=1 TO KOL DO 
BEGIN 
WRITELN(MAS[J]); 
END; 
END; 
{главная программа} 
BEGIN 
ClrScr; 
FILELOAD(STR); 
PROV_FILE(STR); 
KOL:=0; 
REPEAT 
KOL:=KOL+1; 
REPEAT 
ST:=TEXT; 
UNTIL ST<>' MAS[KOL]:=ST; 
UNTIL LENGTH(STR)=0;{если слов в файле больше...чем размер массива ругаюсь} 
IF KOL>COUNT THEN 
WRITELN('РАЗМЕР ФАЙЛА СЛИШКОМ БОЛЬШОЙ, СОРТИРОВКА НЕВОЗМОЖНА') 
ELSE 
BEGIN 
SORT; 
PRINT; 
END; 
readln; 
END.

Заранее спасибо, Lazarus Long...

volvo877

Дата 29.11.2007, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Модератор: Название темы не отражает ее суть, или несколько вопросов в одном топе!

Ознакомьтесь с правилами форума!:

http://forum.vingrad.ru/index.php?showtopic=96391

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »