Паскаль,функция и множество

[pavlentus]

Здраствуйте!Помогите пожалуйста с задачами!Сам не решу!

1.Подсчитать кол-во повторений элементов заданного множества символов во введенной строке.

2.Составить функцию проверки линейной независимости векторов.

Заранее СПАСИБО!

[Anatole]

Сообщение от pavlentus

1.Подсчитать кол-во повторений элементов заданного множества символов во введенной строке.

Const
sets : set of char = ['a','s','d'];{задавйте множество на свой вкус}
var
s : string;
i , k : byte;
begin
readln(s);
k:=0;
for i := 1 to length(s) do if s[i] in sets then inc(k);
writeln('k=',k);
end.

2.Составить функцию проверки линейной независимости векторов.

А каков признак линейной независимости векторов?

[pavlentus]

Я,к сожалению, не знаю об этом признаке.А у вас есть какие-нибудь мысли по поводу этой задачи?

[Anatole]

Вектора считаются линейно независимыми когда один вектор нельзя получить из другого путём умножения его на какое-либо число. Т.е. линейно-независимые вектора не паралельны. Дальше разберётесь?

[pavlentus]

Да, спасибо большое.