Задача на Pascal'e - I need your help

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
Tricky
Сообщения: 1
Зарегистрирован: 01 дек 2004, 11:40
Откуда: Москва

01 дек 2004, 11:53

В Паскале всего пару недель - и в этом пока ещё новичок. Мне очень нужна ваша помощь по решению такой вот задачи...

Задана строка символов. Составить программу, выясняющую, имеется ли в ней буквы из слова "begin". Порядок букв не важен.
AndreykA
Сообщения: 48
Зарегистрирован: 15 ноя 2004, 12:55
Откуда: Москва
Контактная информация:

01 дек 2004, 13:51

Попробуй вот так:

var i: Integer;
Imeetsa : boolean; //показывает имеются или нет нужные символы

begin
i := Length(MyString);
while i > 0 do
begin
if MyString in ['b', 'e', 'g', 'i', 'n'] then Imeetsa := true;
i := i - 1;
end;
end;
Zholty
Сообщения: 1
Зарегистрирован: 24 мар 2005, 14:56

25 мар 2005, 12:14

а если все буквы искать, то можно так попробовать

var
i,p: Integer;
letters_yes :array[1..5] of boolean; //есть ли буква, 5 = длина BEGIN
resultat : //есть ли все буквы из BEGIN в строке MyString

begin
i := Length(MyString);
resultat:=true;
while i > 0 do
begin
p:=pos(Mystring,'begin'); // ищем букву строки в тексте
if p>0 then Imeetsa[p]:=true;
i := i - 1;
end;
for i:=1 to 5 do
resultat:=resultat and Imeetsa;
end;
Ответить