Задача в делфи!

[Aлеша]

Дана S – строка символов длиной n. Выяснить, верно ли что среди символов строки имеются все буквы, входящие в слово ШАР.

Здравствуйте!!!помогите, пожалуйста, написать программу в делфи.
с функцией pos и со всеми edit и т.д. если можно с формой прислать, чтобы понятнее было
на помощь, уважаемые программисты!!!!

[Streletz]

Самостоятельные попытки были?

[Вадим Мошев]

с функцией pos и со всеми edit и т.д. если можно с формой прислать

Прислать ?

[min@y™]

с функцией pos

А эта функция тут нахрен не нужна.

[Аватар]

s1:='ШАР'; 
IncludeAll:=False;
for i:=1 to Length(s1) do begin
  IncludeAll:=Pos(s1[i],s)>0;     {А эта функция тут нахрен не нужна}
  if not IncludeAll then Break;
end;
if IncludeAll then входят все буквы

Чуть подправить если регистонезависимость нужна

[min@y™]

Если я сказал "нахрен не нужна", значит так и есть!
Доказательство:

function IncludeAll(const s: string): boolean;
const
  lset: TSysCharSet = ['Ш', 'А', 'Р']; // задано константой только для примера
  idx: integer;
begin
  result:= Length(s) <> 0;
  for idx:= 1 to Length(s) do
    if not CharInSet(s[idx], lset)
      then exit(false);
end;

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!

[Человек_Борща]

А эта функция тут нахрен не нужна.

Может это тупо условие задачи) Научится работать со строковыми функциями.

[Аватар]

значит так и есть

ШАРФИК даст False, хотя все буквы из ШАР есть в нем. По условию задачи (убедиться, что все буквы слова ШАР есть в слове) можно родить нечто без pos, наверно, но оно будет монстром

[min@y™]

ШАРФИК даст False

Публично прошу прощения.
Я позволил себе ошибиться без уважительной причины.
В качестве компенсации (и для отладки функции, конечно) щас напишу готовую програму.

[min@y™]

Слепил левой пяткой.



Исходник и бинарник на файлопомойке.