Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Нахождение самого длинного слова  
:(
    Опции темы
Frogs2009
Дата 19.6.2008, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Дан файл, содержащий текст на русском языке. Определить, сколько раз встречается в нем самое длинное слово.           
PM MAIL   Вверх
Snowy
Дата 19.6.2008, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484
Перенесено из Pascal
PM MAIL   Вверх
Frogs2009
Дата 19.6.2008, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
эту задачу мне сказали решить в Pascal, не могли бы помочь чем нибудь?
PM MAIL   Вверх
THandle
Дата 20.6.2008, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372
Код

program Project1;

var
  F : text;
  s, sub, mlens : string;
  i : integer;

function MLenCount(sp : string) : integer;
var
  j, ps : integer;
begin
  j := 0;
  repeat
    ps := pos(mlens, sp);
    if ps <> 0 then
      begin
        inc(j);
        delete(sp, 1, ps);
      end;
  until ps = 0;
  MLenCount := j;
end;
begin
  write('Enter file name: ');
  readln(sub);
  AssignFile(F, sub);
  reset(F);
  while not Eof(F) do
    begin
      readln(f, sub);
      s := s + ' ' + sub;
    end;
  sub := '';
  mlens := '';
  for i := 1 to length(s) do
    if s[i] <> ' ' then
      sub := sub + s[i]
    else
      begin
        if Length(sub) > Length(mlens) then
          mlens := sub;
        sub := '';
      end;
  i := MLenCount(s);
  writeln('Count: ', i);
  readln;
end.




Пример файла:
Цитата


addsdj chfj dif hudyd7ejv ufj fi kffl
dds
dfggb  dghh d    si hudyd7ejv k l l;;k
xff hudyd7ejv    hudyd7ejv kklk k
add hudyd7ejv
ddsffff fffff ff d    a
ss
hudyd7ejv


Файл на любом языке подойдет, хотя на китайском smile 

Это сообщение отредактировал(а) THandle - 20.6.2008, 06:34
PM   Вверх
greenpc
Дата 20.6.2008, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
THandle, мне кажется что есть органичение в Вашем коде.
max размер string какой? 
поэтому не рекомендую сливать все в одну строку


Это сообщение отредактировал(а) greenpc - 20.6.2008, 09:17
PM   Вверх
Frogs2009
Дата 20.6.2008, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
спасибо большое за программку!!!! очень благодарен!
PM MAIL   Вверх
Frogs2009
Дата 20.6.2008, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(THandle @ 20.6.2008,  01:17)


Файл на любом языке подойдет, хотя на китайском smile

а откуда брать файл-то???? я не понимаю,запускаю прогу, а она пишет "Fale not found"
PM MAIL   Вверх
dimafeng
Дата 21.6.2008, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Где exe'шник задачи, т.е. в общем случае в папку, где паскаль )
PM MAIL   Вверх
Frogs2009
Дата 21.6.2008, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
все равно не получается! smile у меня ехе-к и файл лежат на диске С: а он все равно пишет что не находит его(((
PM MAIL   Вверх
dimafeng
Дата 21.6.2008, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
а ты в программе правильно пишешь название правила? )
PM MAIL   Вверх
Frogs2009
Дата 21.6.2008, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
заработало!!!! вот только воожу  имя файда, а он у меня выводит "1", код переписал правильно, десять раз проверял,почему он выводит только единицу???? 
PM MAIL   Вверх
dimafeng
Дата 21.6.2008, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Ну значит ошибка где-то...

Добавлено через 5 минут и 15 секунд
Код

............
      end;
  i := MLenCount(mlens);
  writeln('Count: ', i);
  readln;
..................

Там так должно быть...
PM MAIL   Вверх
THandle
Дата 22.6.2008, 01:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372
Цитата(greenpc @  20.6.2008,  10:15 Найти цитируемый пост)
THandle, мне кажется что есть органичение в Вашем коде.
max размер string какой? 
поэтому не рекомендую сливать все в одну строку


Согласен. Просто писал то в Делфе. И забыл. Так вроде бы ничего больше подозрительного там нет, должно работать. smile 
PM   Вверх
dimafeng
Дата 22.6.2008, 10:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
THandle, 
разве не так должно быть 
Код

............
      end;
  i := MLenCount(mlens);
  writeln('Count: ', i);
  readln;
..................

???
PM MAIL   Вверх
Frogs2009
Дата 22.6.2008, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
нет,все равно единицу выводит((( блин, что делать то smile 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0569 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.