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

Param31. Описать функцию FillStr($$S$$, $$N$$) строкового типа, возвращающую строку длины $$N$$, заполненную повторяющимися копиями строки-шаблона $$S$$ (последняя копия строки-шаблона может входить в результирующую строку частично). Используя эту функцию, сформировать по данному числу $$N$$ и пяти данным строкам-шаблонам пять результирующих строк длины $$N$$.

Решение:

program Param31;
type
 St=String;
var
 S:St;
 N,i:integer;

Function FillStr(S:St; N:integer):String;
var
 i:integer;
 Stemp:string;
begin
 Stemp:='';
 While (length(Stemp)<N) do
  begin
   Stemp:=Stemp+S;
  end;
 Delete(Stemp,N+1,Length(stemp)-N);
 FillStr:=Stemp;
end;

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

program Param31;

type

St=String;

var

S:St;

N,i:integer;

Function FillStr(S:St; N:integer):String;

var

i:integer;

Stemp:string;

begin

Stemp:='';

While (length(Stemp)<N) do

begin

Stemp:=Stemp+S;

end;

Delete(Stemp,N+1,Length(stemp)-N);

FillStr:=Stemp;

end;

begin

Write('N: ');

Readln(N);

for i:=1 to 5 do

begin

Write('S:');

Readln(S);

Writeln(FillStr(S,N));

end;

end.

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

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

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

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