Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Вниз![]()
Как развернуть строку.
Tadeush (2002-02-06 13:04) [0]Есть строка AnsiString например А121 как ее развернуть в 21А1
Basilio (2002-02-06 13:08) [1]Что значит развернуть? Написать в обратном порядке?
Это одна из задачек на зачет по программированию на мехмате МГУ для первого курса (правда на языке С)
Basilio (2002-02-06 13:12) [2]
procedure TurnString(var S:AnsiString);
var i:integer;
swap:char;
begin
for i:=1 to length(AnsiString) div 2 do
begin
swap:=S[i];
S[i]:=S[Length(S)-i+1)];
S[Length(S)-i+1)]:=swap;
end;
end;
Tadeush (2002-02-06 13:12) [3]в обратном.... я на мех мате не учился . Тем более в МГУ
Tadeush (2002-02-06 13:18) [4]Спасибо
Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Память: 0.72 MB
Время: 0.023 c