Anya181818
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
unit my_unit5;
interface
function func1_1(s: string): string;
function func1_2(s: string): string;
function func1_3(s: string): string;
function func2(s: string): string;
function func3(s: string): string;
implementation
function func1_1(s: string): string;
begin
while s[1]=' ' do delete(s,1,1);
func1_1:=s;
end;
function func1_2(s: string): string;
begin
while s[length(s)]=' ' do delete(s,length(s),1);
func1_2:=s;
end;
function func1_3(s: string): string;
begin
s:=func1_1(s);
s:=func1_2(s);
func1_3:=s;
end;
function func2(s: string): string;
var i: byte;
begin
s:=func1_1(s);
s:=func1_2(s);
i:=1;
while i<length(s) do
if (s[i]=' ')and(s[i+1]=' ') then delete(s,i,1) else inc(i);
func2:=s;
end;
function func3(s: string): string;
var i: byte;
begin
i:=1;
while i<=length(s) do
if s[i]=' ' then delete(s,i,1) else inc(i);
func3:=s;
end;
begin
end.
|
Всего записей: 17 | Зарегистр. 19-10-2013 | Отправлено: 19:43 10-12-2013 | Исправлено: Anya181818, 19:47 10-12-2013 |
|
