процедуры-функции на паскале

[Blueyeska]

Здравствуйте, форумчане! У меня скоро экзамен по паскалю, а я в нём практически ничего не понимаю. Помогите написать процедуры-функции хотя бы к нескольким из следующих задач. ОЧЕНЬ НАДЕЮСЬ НА ВАШУ ПОМОЩЬ!!!:

1. В строках s1 и s2 записаны два слова, состоящие из букв английского алфавита. Написать процедуру-функцию, определяющую, может ли первое слово быть построено из букв второго слова. Здесь число вхождений каждой буквы в первое слово ограничено числом ее вхождений во второе слово.

2. В строках s1 и s2 записаны два слова, состоящие из букв английского алфавита. Написать процедуру-функцию, определяющую, является ли первое слово перестановкой (с повторениями того же состава) букв второго слова.

3. Считая строки s, s1 и s2 нормализованными, написать следующую процедуру-функцию:
Func1 (s : string):word - возвращает количество слов в строке s.

4. Считая строки s, s1 и s2 нормализованными, написать следующую процедуру-функцию:
Func2 (s : string; i : word):word - возвращает номер позиции, с которой начинается i-ое слово строки s.

5. Процедуры и функции работы со строками. Считая строки s, s1 и s2 нормализованными, написать следующую процедуру-функцию:
Func3 (s : string; i : word):word - возвращает номер позиции последней литеры i-го слова строки s.

[Stilet]

возвращает количество слов в строке s.

http://www.programmersforum.ru/showt...369#post398369
Здесь пример разделения строки на слова. Поправь его вместо a[count]:=a[count]+s[i]; просто увеличивай счетчик слов, и в условие добавь знаки припенания

Написать процедуру-функцию, определяющую, может ли первое слово быть построено из букв второго слова.

Теоретически:

function a(s,d:String):Boolean;
var i:integer;
begin
 a:=true;
 for i:=1 to length(s) do begin
  if pos(s[i],d)=0 then begin a:=false;exit;end;
 end;
end;

s - певрое слово

[Blueyeska]

Спасибо! Попробую сейчас разобраться.