Name: Простые задачи Pascal ABC (Определить количество слов в файле) функция для Pascal ABC
Item: Простые задачи Pascal ABC (Определить количество слов в файле) функция для Pascal ABC
Author: hryhrh

Главная » 2012 » Май » 18 » Простые задачи Pascal ABC (Определить количество слов в файле) функция для Pascal ABC

16:55 Простые задачи Pascal ABC (Определить количество слов в файле) функция для Pascal ABC
const WordChars:set of Char =['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','-']; // символы из которыйх состоит слово Function GetWordCount(s:string):integer; var y,x:integer; s2:string; begin y:=0; s2:=''; for X:=1 to length(s) do begin if (s[x] in WordChars) then begin s2:=s2+s[x]; end else begin y:=y+1; s2:=''; end end; if s2<>'' then Y:=y+1; GetWordCount:=y; end; Function GetWordCountFromFile(Filename:string):integer; var f:Text; xlength:integer; s:string; begin assign(f,Filename); { assignfile to Delphi} reset(f); xlength:=0; repeat readln(f,s); xlength:=xlength+GetWordCount(s); until eof(F); close(f); { closefile(F) to Delphi} GetWordCountFromFile:=xlength; end; begin writeln('Кол-во слов в файле "',GetWordCountFromFile('c:\1.txt'),'"'); end.
1 2 3 4 5 Просмотров: 3752 \| Добавил: NetSoftWare \| Теги: Pascal ABC \| Рейтинг: 0.0/0

Всего комментариев: 1

Порядок вывода комментариев:

1 hryhrh (20.01.2017 09:35)

енеопоп

Delphi заготовки

Меню сайта

Поиск по сайту

Контакты

Наш опрос

Добавить

Календарь

Полезные ссылки

Теги

Статистика

Архив записей

Число on-line

Поддержка сайта