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

Param43. Описать функцию DeCompressStr($$S$$) строкового типа, восстанавливающую строку, сжатую процедурой CompressStr (см. задание Param42). Параметр $$S$$ содержит сжатую строку; восстановленная строка является возвращаемым значением функции. С помощью функции DeCompressStr восстановить пять данных сжатых строк.

Решение:

program Param43;
type
 St=String;
 SArray= array [1..10] of string;

var
 S:St;
 i,N:integer;
 W:SArray;

function DeCompressStr(S:St):St;
var
 i,i2,Num,error:integer;
 Stemp,SNum:String;
 C:Char;
begin
 i:=0;
 Result:='';
 While i<=length(s) do
  begin
   inc(i);
   C:=S[i];
   if (i=length(S)) or (S[i+1]<>'{') then Num:=1
    else
     begin
      inc(i,2);
      SNum:='';
      while S[i]<>'}' do
       begin
        SNum:=SNum+S[i];
        inc(i);
       end;
      val(SNum,Num,error);
     end;
    for i2:=1 to Num do result:=result+C;
  end;
end;

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

program Param43;

type

St=String;

SArray= array [1..10] of string;

var

S:St;

i,N:integer;

W:SArray;

function DeCompressStr(S:St):St;

var

i,i2,Num,error:integer;

Stemp,SNum:String;

C:Char;

begin

i:=0;

Result:='';

While i<=length(s) do

begin

inc(i);

C:=S[i];

if (i=length(S)) or (S[i+1]<>'{') then Num:=1

else

begin

inc(i,2);

SNum:='';

while S[i]<>'}' do

begin

SNum:=SNum+S[i];

inc(i);

end;

val(SNum,Num,error);

end;

for i2:=1 to Num do result:=result+C;

end;

begin

for i:=1 to 5 do

begin

Write('S:');

Readln(S);

Writeln(DeCompressStr(S));

end;

end.

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

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

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

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