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

Param34. Описать процедуру TrimLeftC($$S$$, $$C$$), удаляющую в строке $$S$$ начальные символы, совпадающие с символом $$C$$. Строка $$S$$ является входным и выходным параметром. Дан символ $$C$$ и пять строк. Используя процедуру TrimLeftC, преобразовать данные строки.

Решение:

program Param34;

type
 St =String;

var
 S:St;
 C:Char;
 i:integer;

Procedure TrimLeftC(var S:St;C:Char);
var
 i:integer;
begin
 for i:=1 to length(S) do
  if s[i]<>C then break;
 delete(S,1,i-1);
end;

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

program Param34;

type

St =String;

var

S:St;

C:Char;

i:integer;

Procedure TrimLeftC(var S:St;C:Char);

var

i:integer;

begin

for i:=1 to length(S) do

if s[i]<>C then break;

delete(S,1,i-1);

end;

begin

Write('C: ');

Readln(C);

for i:=1 to 5 do

begin

Write('S:');

Readln(S);

TrimLeftC(S,C);

Writeln(S);

end;

end.

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

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

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

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