Цитата:
Сообщение от Cherreшенка
1.Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов
|
В программе n=3. Можете изменить, поправив вид строковой константы Sp.
Код:
Const
Sp=' ';
VAR
S:String;
i:Byte;
BEGIN
WriteLn('Enter the string containing Tabs:');
ReadLn(S);
i:=0;
Repeat
Inc(i);
If Ord(S[i])=9 then
begin
Delete(S,i,1);
Insert(Sp,S,i);
Inc(i,2);
end;
Until i>=Length(S);
WriteLn(S);
ReadLn;
END.