Паскаль. строки.

[Blueyeska]

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

2. Func2 (s : string; i : word):word - возвращает номер позиции, с которой начинается i-ое слово строки s.

3. Func3 (s : string; i : word):word - возвращает номер позиции последней литеры i-го слова строки s.

[Ol'ga_new]

А свои наработки имеются?

[Blueyeska]

Так получилось, что вместо ГОСа по английскому, как предполагалось, мне сказали, что я буду сдавать программирование. Я в нём мало что понимаю.

Я даже не знаю, что значит "возвращает ..".

[L_Killer]

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

function kol(s:string):word;
var i:integer;
k:word;
begin
for i:=1 to length(s) do
if s[i] = ' ' then inc(k);
k:=k+1;
kol:=k;
end;

[Blueyeska]

Можете, если не трудно, объяснить, что вообще значит "возвращение количества слов в строке"? Откуда что возвращается?
И что значит "inc(k)" ?

[L_Killer]

Ну щас попробую... Возвращается значение, полученое путем вычислений внутри функции - вроде так, с формулировками я не силен.
inc(k) - это инкриментация значение. Ему соответствует выражение k:=k+1,
то есть это бональное наращивание, счетчик.
Я там посчитал количество пробелов и к этому числу прибавил единицу.

Например: "Дядя Петя шел с работы и зашел в магазин" - 8 пробелов и соответственно слов - 9.

[Stilet]

Blueyeska

"Возвращение" это термин, оговаривающий результат некой функции, подставляемый в выражение, где участвует эта функция, соответственно в ту его часть, где она вписана т.е.
d:=5*ln(6) - Здесь функция ln вычислит что-то и результат попадет в выражение и будет умножен на 5

[Blueyeska]

Спасибо большое! А с двумя другими задачами не поможете?

[Ol'ga_new]

function func2(s:string,i:word):word;
var z,j:word;
begin
z:=0;
j:=1;
while z<i do
begin
if (s[j]=' ') then z:=z+1;{inc(z)- что одно и тоже} 
j:=inc(j);
end;
func2:=j;
end;

[DoDge_VipeR]

j:=inc(j);// или inc(j); или уж j:=j+1;

3)

function func3(s:string,i:word):word;
var k:integer;
begin
k:=func2(s,i);
while s[k]<>' ' do
inc(k);
func3:=k-1;
end;