помогите пожалуйста

[kostianich]

Нужна помощь в решении такой задачи, кто сможет помогите буду очень благодарен

[Aleksandr H.]

3.

function CSubs(sub,s: string): byte;
begin
  if Pos(sub, s) = 0 then
    CSubs := 0
  else
    CSubs := 1 + CSubs(sub, Copy(s, Pos(sub, s) + Length(sub), Length(s)))
end;

[kostianich]

так легко?

а как два первых вбить?)

просто сам это не сделаю

[Aleksandr H.]

1. Вообще кажется что это условие задачи.
2. не знаю что такое "передача параметра-строки по адресу".

[kostianich]

я тоже не знаю(

[ViktorR]

Aleksandr H.

2. не знаю что такое "передача параметра-строки по адресу".

Это когда в п/п строка передается не по значению, как в Вашем примере:

function CSubs(sub,s: string): byte;
...

а по адресу
а)

function CSubs(var sub,s: string): byte;
...

или
б)

function CSubs(const sub,s: string): byte;
...

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


Как-то так, ...

[Aleksandr H.]

Program HelloWorld(output);
var s,sub:string;
procedure GetString(var sub,s:String);
begin
    writeln('Input Line ');readln(s);
    writeln('Input Sub ');readln(sub);
    
end;

function CSubs(sub,s: string): byte;
begin
  if Pos(sub, s) = 0 then
    CSubs := 0
  else
    CSubs := 1 + CSubs(sub, Copy(s, Pos(sub, s) + Length(sub), Length(s)))
end;
procedure OutData(sub,s:string);
begin
    writeln('STRING : ',s);
    writeln('SUB    : ',sub);
    writeln('RESULT : ',CSubs(sub,s));
end;
begin
  GetString(sub,s);
  OutData(sub,s);
  
end.

сложное условие (не задание!) какое-то

[kostianich]

огромное спасибо за помощь

но еще вопрос а как к ней блок схему сделать?

[Dvoishnik]

Открываешь ГОСТ 19.701-90 берешь карандаш линейку и чертишь!