Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Зона тестирования » Тест-форум » Паскаль (множествненый тип данных)

Ответить
Настройки темы
Паскаль (множествненый тип данных)

Новый участник


Сообщения: 0
Благодарности: 0

Профиль | Отправить PM | Цитировать

Собственно задача - считать текст из текстового файла и составить "словарик" из слов, содержащихся в нем. Словарик сделать через массив множеств в 1 поле которого - слово, в другом - колличество раз, сколько оно употребилось в тексте. Вот та программа, которую разработал я, но она не работает( помогите пожалуйста разобратся (PascalABC).
program Individualka2;
type slovo=record;
word:string[30];
count:byte;
end;
var slovar:array [1..100] of slovo;
f,f1:text;
s:string;
i,j,k:integer;
b:boolean;

begin
j:=1;
assign(f,'input.dat');
reset(f);
while not eof(f) do
begin
read(f,s[1]);
s[1]:=lowcase(s[1]);
i:=1;
while not((s[i]=' ') or (s[i]='-') or (s[i]='.') or (s[i]=',') or (s[i]=':') or (s[i]=';')) do
begin
i:=i+1;
read(f,s[i]);
end;
b:=true;
if not((s[1]=' ') or (s[1]='-')or(s[1]='.')or(s[1]=',')or(s[1]=':')or(s[1]=';')) then
begin
delete(s,i,1);
for k:=1 to j do
if s<>slovar[k].word then b:=b and true
else begin b:=b and false; slovar[k].count:=slovar[k].count+1 end;
if b then begin slovar[j].word:=s;slovar[j].count:=1;j:=j+1 end;

end;
end;

assign(f1,'output.dar');
rewrite(f1);
for i:=1 to j-1 do
writeln(f1,slovar[i].word,' ',slovar[i].count);
close(f);
close(f1);
end.

Отправлено: 20:56, 28-12-2011

 

Аватара для Hector

Misanthrope


Сообщения: 474
Благодарности: 38

Профиль | Отправить PM | Цитировать

sanazak, воспользуйся тегом CODE, добавь отступы и комментарии

-------
Information must be free!
Нет границ, есть только препятствия

Отправлено: 18:19, 30-12-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.



Компьютерный форум OSzone.net » Зона тестирования » Тест-форум » Паскаль (множествненый тип данных)

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Паскаль kakmandu Программирование в *nix 2 28-08-2011 22:01
Разное - Паскаль!Проектирование БД.Используя файловый тип данных, создать файл записей ___Vampir___ Программирование и базы данных 1 09-05-2011 23:25
Теория - паскаль Дашка Программирование и базы данных 1 07-01-2011 17:44
export-reg2inf (как узнать тип данных в реестре) semiono AutoIt 1 31-12-2009 00:34
C/C++ - Как правильно задать тип данных в массиве ShadowMas Программирование и базы данных 4 18-04-2009 22:26


« Предыдущая тема | Следующая тема »


 
Переход