VPF::проверка на наличие конкретных символов

Гость_Max

Дата 9.12.2004, 10:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Задана строка символов. Составить программу, выясняющую, имеется ли в ней буквы из слова "begin". Порядок букв не важен.

Akina

Дата 9.12.2004, 10:18 (ссылка)

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

Загрузка ...

Советчик

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

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

Для каждого символа из одной строки (один символ вырезать сможешь?) вызвать функцию поиска этого символа в другой строке (сможешь?). Если хотя бы раз получен НЕ НОЛЬ - общий символ есть, иначе его нет.

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Pakshin A. S.

Дата 9.12.2004, 10:48 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


var
 s:string;
 b:boolean;
begin
 readln(s);
 b:=(Pos('b',s) <> 0) and (Pos('e',s) <> 0) and (Pos('g',s) <> 0) and (Pos('i',s) <> 0) and (Pos('n', s) <> 0);
 if b
  then
   writeln('Есть')
  else
   writeln('Нет');
end;

Это сообщение отредактировал(а) Pakshin A. S. - 9.12.2004, 22:11

Zero

Дата 9.12.2004, 19:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата(Pakshin @ 9.12.2004, 10:48)

b:booelan;

В целом правильно, но есть мелкая опечатка...

Код


b:boolean;

Это сообщение отредактировал(а) Zero - 9.12.2004, 19:05

Spaun

Дата 9.12.2004, 22:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Немного ощибки в коде исправить и будет все ОК.

Elfin

Дата 13.12.2004, 01:04 (ссылка)

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

Загрузка ...

Новичок

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

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

еще один вариант...

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var str: string; s: set of char; i: integer; b: boolean;

begin
b:=false;
readln(str);
s:=['b','e','g','i','n'];
for i:=1 to length(str) do
if str[i] in s then b:=true;
if b then writeln('yes')
else writeln('no');
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

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