VPF::[Pascal]Найти буквы и вывести слова

CHITER

Дата 10.10.2008, 20:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Найти в предложении все слова, в которых встречаются первые три буквы первого слова предложения.

volvo877

Дата 10.10.2008, 20:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

Rodman

Дата 10.10.2008, 20:44 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

M
Rodman

Модератор: Название темы должно содержать язык написания!

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

CRM с функцией АвтоОбзвона

Лотереи мира

mr.Anderson

Дата 10.10.2008, 20:58 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Rodman, просто до этого тема в паскале была, поэтому и язык не указан. smile

Паскаль, поправьте.

Добавлено через 13 минут и 5 секунд
Решаю...

Это сообщение отредактировал(а) mr.Anderson - 10.10.2008, 20:58

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

mr.Anderson

Дата 10.10.2008, 21:13 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Готово!

Код


program SearchingOfLetters;

var
 s : String;  //предложение
 w : String;  //слово
 i : Integer; //счетчик
 l : Integer; //длина предложения
 x : Array [1..3] of Char; //массив букв, которые будем искать
 m : Integer; //с этого индекса начнем искать (первое слово пропускаем)

function findLetters(w: String): Boolean;
var
 j : Integer;
 k : Integer;
 u : Integer;
begin
 Result := False;

 u := Length(w);

 for j:=1 to 3 do
  for k:=1 to u do
   if (w[k] = x[j]) then //нашли букву
   begin
    findLetters := True;
    break;
   end;
end;

begin
 readln(s);

 for i:=1 to 3 do
  x[i] := s[i];

 l := Length(s);

 for i:=3 to l do
  if (s[i] = ' ') then
  begin
   m := i;
   break;
  end;

 //ищем уже от запомненного индекса, пропуская первое слово
 for i:=m to l do
 begin
  if (s[i] = ' ') then
  begin
   if (w <> '') then
    if (findLetters(w)) then
     writeln(w);

   w := '';
  end
  else w := w + s[i];
 end;

 readln;
end.

Это сообщение отредактировал(а) mr.Anderson - 10.10.2008, 21:14

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

CHITER

Дата 10.10.2008, 22:25 (ссылка)

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

Загрузка ...

Новичок

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

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

благодарю! smile

THandle

Дата 11.10.2008, 15:11 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

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

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

Хоть вопрос и решен, но вот мой вариант. ИМХО, более наглядный.

Код


program Project1;

var
  S: String;
  Position: Integer;
  W: String;
  F: String[3];
  StrLen: Integer;

function FindWord: String;
var
  tmpStr: String;
begin
  tmpStr := '';
  repeat
    Inc(Position);
    if S[Position] <> ' ' then
      tmpStr := tmpStr + S[Position];
  until (S[Position] = ' ');
  FindWord := tmpStr;
end;

begin
  ReadLn(S);
  Position := 0;
  S := S + ' ';
  StrLen := Length(S);
  W := FindWord;
  if Length(W) < 3 then
    Exit;
  F := Copy(W, 1, 3);
  repeat
    W := FindWord;
    if Pos(F, W) <> 0 then
      WriteLn(W);
  until Position >= StrLen;
  ReadLn;
end.

Это сообщение отредактировал(а) THandle - 13.10.2008, 18:37

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