Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
jakewow
0 / 0 / 1
Регистрация: 22.12.2010
Сообщений: 27
1

Программа с файлом

17.10.2011, 23:31. Просмотров 311. Ответов 1
Метки нет (Все метки)

Задача: в текстовом файле подсчитать кол-во предложений короче\ длиннее чем n символов.
Алгоритм: файл мы получили к примеру, вводим n, далее подсчитываем кол-во символов в предложении, а потом уже сравниваем с полученной переменной 'n', затем уже находим кол-во предложений короче\длиннее n cимволов. Запоролся в реализации этого алгоритма.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
begin
  a:=strtoint(Edit1.Text); \\ получили n
  str:=memo1.text;
  
for i:=1 to length(str) do 
       begin
 while (str[i]<>'.') do
        begin
         x:=Length(Memo1.lines.text); \\ находим кол-во символов в предложении. вот как раз по счет этой строки я не уверен.
         end;
end;
 end;
далее идет сравнение и нахождение кол-во тд.
Буду благодарен за помощь.

Добавлено через 2 часа 27 минут
проблема в том, чтобы найти кол-во символов в предложении, надоело голову ломать уже
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2011, 23:31
Ответы с готовыми решениями:

Программа с файлом
В файле Raw.dat, содержится 30 целых чисел, записанных через пробел. Написать программу которая...

Программа с файлом
Проверьте программу с файлом, пожалуйста uses crt; type Student = record fio: String; ...

Программа одним файлом
Доброго времени суток, проблема заключается вот в чём, есть программа мне нужно сделать таким...

Программа с заголовочным файлом (с++)
Всем Привет! Недавно стал изучать использование заголовочных файлов в с++ и столкнулся с...

Программа по работе с текстовым файлом
Очень нужна помощь. Строки текстового файла содержат фамилии студентов в произвольном порядке....

1
Puporev
Модератор
56594 / 43283 / 29926
Регистрация: 18.05.2008
Сообщений: 102,959
18.10.2011, 11:31 2
Можно написать так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
const rz=['.','?','!'];//разделители предложений
var s:string;
    n,i,mn,bn:integer;
begin
n:=SpinEdit1.Value;//количество символов
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);//загружаем файл в Мемо
s:=Memo1.Text;
mn:=0;//меньше n
bn:=0;//больше n
i:=1;
while i<=length(s) do
if s[i] in rz then
 begin
   if i<n then inc(mn)
   else if i>n then inc(bn);
   delete(s,1,i);
   i:=1;
 end
else i:=i+1; 
Memo2.Lines.Add('Количество предложений  короче  '+IntToStr(n)+' символов = '+IntToStr(mn));
Memo2.Lines.Add('Количество предложений длиннее  '+IntToStr(n)+' символов = '+IntToStr(bn));
 
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2011, 11:31

Программа для работы с файлом
Задача такая: Дан текстовый файл, в котором есть 30 наименований книг( с автором,годом издания)....

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

Программа для работы с файлом
Помогите, пожалуйста!!!!! 11. Дано файл чисел. Создать два новых файла, первый из которых содержит...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru