VPF::Символьная прога на Паскаль - Форум программистов

xzE_LeX

Дата 8.11.2007, 22:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Ребята, помогите с задачкой. Она вроде проста, но я ее переписываю уже 10 раз, а толку ноль :(
Вот сама задача:

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

Буду очень признателен за помощь...

Это сообщение отредактировал(а) xzE_LeX - 8.11.2007, 22:37

Alix

Дата 8.11.2007, 23:43 (ссылка)

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

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

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

Написать за тебя программу, конечно, можно, но тогда тему надо перенести в "центр помощи". Если создал тему здесь, то опиши, что конкретно у тебя не получается, выложи код. Мы не решать за тебя будем, а помогать решать.

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

darkart

Дата 9.11.2007, 00:04 (ссылка)

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

Загрузка ...

Опытный

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

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

В следующий раз, лучше в "Центр помощи"

Код


program SecondWordOfText;
uses
  crt;
const
  chEndSymbol='.';{символ окончания ввода}
  chDividerSymbol=' ';{символ разделитель}
  iTestWordNumber=2;{номер проверяемого слова}
var
  bRes,bFindWord:boolean;{bRes - результат проверки на упорядоченность, bFindWord - нашли ли слово на этапе}
  count:integer;{счетчик прочитанных слов}
  ch,chLast:char;{ch-последний прочитанный символ, chLast - предпоследний прочитанный символ}
begin
  bRes:=true;{инииализация результата}
  count:=0;{инициализация счетчика прочитанных слов}
  clrscr;{очистка экрана}
  writeln('Please enter a text("."-end):');
  read(ch);{чтение символа}
  while(ch<>chEndSymbol) do{пока не прочитан символ окончания}
  begin
    bFindWord:=false;{слово не найдено}
    while((ch=chDividerSymbol)) do{пока идут разделители}
      read(ch);{чтение очередного символа}
    while((ch<>chDividerSymbol) and (ch<>chEndSymbol))do
    {пока последний прочитанный не разделитель и не символ окончания}
    begin
      bFindWord:=true;{слово найдено}
      if(count=iTestWordNumber-1) then
      {если прочитали нужное кол-во-1 слов, т.е. сейчас читаем нужное}
      begin
        chLast:=ch;{запоминаем последний прочитанный, как предпоследний}
        read(ch);{читаем очередной символ}
        {вычисляем результат(упорядоченность символов)}
        bRes:=bRes and ((chLast<ch) or (ch=chDividerSymbol) or (ch=chEndSymbol));
      end
      else
        read(ch);{читаем очередной символ}
    end;
    if(bFindWord) then{если слово найдено}
      inc(count);{увеличение счетчика прочитанных слов}
  end;
  readln;
  bRes:=bRes and (count>=iTestWordNumber);{к результату добавляем проверку на количество прочитанных слов}
  {печать результата}
  writeln('Result:');
  if(bRes) then
    writeln('true')
  else
    writeln('false');
  readln;{ожидание ввода}
end.

xzE_LeX

Дата 9.11.2007, 09:38 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо огромное за помощь, darkart. Ты меня выручил!!!

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