Решаем задачи Абрамян на Паскале. Param40

Param40. Описать функцию WordK($$S$$, $$K$$) строкового типа, возвращающую $$K$$-е слово строки $$S$$ (словом считается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки). Если количество слов в строке меньше $$K$$, то функция возвращает пустую строку. Используя эту функцию, выделить из данной строки $$S$$ слова с данными номерами $$K_1$$, $$K_2$$, $$K_3$$.

Решение:

program Param40;
type
 St=String;

var
 S:St;
 i,K:integer;

Function WordK(S:St;K:integer):String;
var
 i,NumWord:integer;
 Stemp:Str;
begin
 Result:='';
 NumWord:=0;
 S:=' '+S;
 For i:=1 to length(S) do
  begin
   if (S[i]=' ') and (S[i+1]<>' ') then inc(NumWord);
   if (NumWord=K) and (S[i]<>' ') then Result:=Result+S[i];
  end;
end;

begin
 Write('S:');
 Readln(S);
 for i:=1 to 5 do
  begin
   Write('K:');
   Readln(K);
   Writeln(WordK(S,K));
  end;
end.

program Param40;

type

St=String;

var

S:St;

i,K:integer;

Function WordK(S:St;K:integer):String;

var

i,NumWord:integer;

Stemp:Str;

begin

Result:='';

NumWord:=0;

S:=' '+S;

For i:=1 to length(S) do

begin

if (S[i]=' ') and (S[i+1]<>' ') then inc(NumWord);

if (NumWord=K) and (S[i]<>' ') then Result:=Result+S[i];

end;

begin

Write('S:');

Readln(S);

for i:=1 to 5 do

begin

Write('K:');

Readln(K);

Writeln(WordK(S,K));

end;

end.

Другие задачи из раздела Param можно посмотреть здесь.

Комментарии 1

program Param40;//pabc.net

function WordK(s: string; k: integer): string;
begin
  Result := '***';//по условию пустая строка
  if k < 1 then exit;
  var WordCount := 0;
  
  var i := 1;
  while i <= s.Length do
  begin
    if s[i] <> ' ' then
    begin
      WordCount += 1;
      var j := i;
      while (j < s.Length) and (s[j + 1] <> ' ') do inc(j);
      if WordCount = k then
      begin
        result := Copy(s, i, j - i + 1);
        exit
      end;
      i := j + 1;
    end;
    i += 1
  end
end;

begin
  var s := 'Каждый, охотник; желает? знать: "где сид''ит", ,фазан! ';
  for var i := 0 to 8 do WordK(s, i).Println;
  //  ***
  //  Каждый,
  //  охотник;
  //  желает?
  //  знать:
  //  "где
  //  сид'ит",
  //  ,фазан!
  //  ***
end.

program Param40;//pabc.net

function WordK(s: string; k: integer): string;

begin

Result := '***';//по условию пустая строка

if k < 1 then exit;

var WordCount := 0;

var i := 1;

while i <= s.Length do

begin

if s[i] <> ' ' then

begin

WordCount += 1;

var j := i;

while (j < s.Length) and (s[j + 1] <> ' ') do inc(j);

if WordCount = k then

begin

result := Copy(s, i, j - i + 1);

exit

end;

i := j + 1;

end;

i += 1

end

end;

begin

var s := 'Каждый, охотник; желает? знать: "где сид''ит", ,фазан! ';

for var i := 0 to 8 do WordK(s, i).Println;

// ***

// Каждый,

// охотник;

// желает?

// знать:

// "где

// сид'ит",

// ,фазан!

// ***

end.

program Param40;//pabc.net

function WordK(s: string; k: integer): string;
begin
  Result := '***';
  var b := s.ToWords(',', ' ', '!', ':', ';', '?', '.', '"');
  if (k < b.Count) and (k >= 0) then Result := b[k]
end;

begin
  var s := ' каждый, охотник; желает? знать: "где сид''ит", ,фазан!  ';
  
  for var i := -1 to 7 do WordK(s, i).Println
  //  ***
  //  каждый
  //  охотник
  //  желает
  //  знать
  //  где
  //  сид'ит
  //  фазан
  //  ***
end.

program Param40;//pabc.net

function WordK(s: string; k: integer): string;

begin

Result := '***';

var b := s.ToWords(',', ' ', '!', ':', ';', '?', '.', '"');

if (k < b.Count) and (k >= 0) then Result := b[k]

end;

begin

var s := ' каждый, охотник; желает? знать: "где сид''ит", ,фазан! ';

for var i := -1 to 7 do WordK(s, i).Println

// ***

// каждый

// охотник

// желает

// знать

// где

// сид'ит

// фазан

// ***

end.

Ответить

Решаем задачи Абрамян на Паскале. Param40

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ