Developing.ru

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

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

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

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;

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

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;