VPF::Найти наибольшее количество цифр

Dantrag

Дата 4.6.2006, 09:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста мало что смыслю в Pascale но очень надо
Задача:
Дан текст. Найти наибольшее количество цифр, идущих в нем подряд.
Вывесите пожалуйста текст программы, если нетрудно.

skyboy

Дата 4.6.2006, 18:47 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

Код


var CountMax,CountCurrent,i,lng:byte;
      s:String;
begin
 writeln('Введи строку или умри!(Input string or Die!)')
 readln(S);
 if length(S)=0 
  then
   begin
    writeln('Пустая строка! Отказываюсь работать!');
    readln;
    exit;
   end;
lng:= length(S);
countmax:= 0;
CountCurrent:= 0;
for i:=1 to lng do
 if s[i] in ['0'..'9']
  then
   CountCurrent:= CountCurrent + 1
  else
   begin
    if CountCurrent> CountMax 
     then 
      CountMax:= CountCurrent;
    CountCurrent:= 0;
   end;
if CountCurrent> CountMax
 then 
  CountMax:= CountCurrent;
Writeln('Максимальное количество цифр, идущих подряд - ' + CounTMax); 
Readln;
end.

Dantrag

Дата 4.6.2006, 19:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо большое.
А ты не мог бы сделать так чтобы он искал не в строке, а в каком-то документе который в этой же программе создается и в него вводится текст в котором мы и ищем наибольшеее количество цифр идущих в нем подряд.

skyboy

Дата 4.6.2006, 19:39 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

не мог бы.
операция чтения строки из текстового файл - readln(<text - variable>,<string>); - чтение из файла - первого аргумента очередной строки.
eof(<text - variable>) - функция вернёт true, если достигнут конец файла.
Флаг в руки и - вперёд!

Добавлено @ 19:47
< text - variable> - переменная типа text.
надо работать так:

Код


var F:text;
     S:string;
...
begin
...
Assign(F,''c:\myfile.txt);
reset(F); // открываем для чтения
while not(eof(f)) do   // пока не дойдём до конца файла...
 begin
  readln(F,s);    // читаем строку
  .....                 // обрабатываем строку
 end;
...

Dantrag

Дата 5.6.2006, 14:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо)))

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