dimitriy7
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
unit my_unit;
interface
function func1(s: string): string;
function func2(s: string): string;
function func3(s: string): string;
implementation
function func1(s: string): string;
var i: byte;
begin
for i:=1 to length(s) do
if (byte(s[i])>=$61)and(byte(s[i])<=$7A) then s[i]:=char(byte(s[i])-$20);
func1:=s;
end;
function func2(s: string): string;
var i: byte;
begin
for i:=1 to length(s) do
if (byte(s[i])>=$41)and(byte(s[i])<=$5A) then s[i]:=char(byte(s[i])+$20);
func2:=s;
end;
function func3(s: string): string;
var i: byte;
begin
i:=1;
while i<=length(s) do
if (byte(s[i])>=$30)and(byte(s[i])<=$39) then delete(s,i,1) else inc(i);
func3:=s;
end;
begin
end.
|
|
Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 23:30 19-10-2013 | Исправлено: dimitriy7, 23:41 19-10-2013 |
|
