Строка наоборот. Упражнение из учебника.

[Linka]

Строка наоборот. Упражнение из учебника.

Задание:
Перевернуть введенную строку. (Например из "диск" получится "ксид").

У меня получилось сделать только так:

program reversed_string;

var s1:string;
   h,i,n:integer;
   g:char;

begin
readln(s1);
n:=Length(s1);
i:=0;
h:=n;
for i:=0 to h do
begin
g:=s1[n];
write(g);
n:=n-1;
	end;

readln;

end.

Все как бы работает. Но как можно иначе сделать ? Чтобы строка "учавствовала", а не один символ ? Спасибо.

 

[Long Cat]

Это очень плохое решение.
Сделайте так:
Пройдите по строке от начала до середины, меняя первый элемент с последним, второй с предпоследним, и так далее.

 

[Linka]

Я именно так и начинал, но вот как раз после середины, показывает неверно.. Что надо делать после середины ?

program reversed_string;

var s1:string;
   i,n:integer;

begin
readln(s1);
n:=Length(s1);
i:=1;

while (i<=n) do
begin
s1[i]:=s1[n];
i:=i+1;
n:=n-1;
	end;
         writeln(s1);
readln;

end.

 

[Long Cat]

После середины ничего делать не нужно. Попробуйте на бумаге - поймете.

 

[Linka]

Не понял( Но на бумаге все красиво =)

Получилось только вот так, со второй одинаковой строкой, и еще ондой переменной:

program reversed_string;

var s1,s2 : string;
  h,i,n : integer;

begin
readln(s1);
n:=Length(s1);
s2:=s1;
i:=1;
h:=n;
while (i<=h) do
begin
s1[i]:=s2[n];
i:=i+1;
n:=n-1;
	end;
         writeln(s1);
readln;

end.

 

[Long Cat]

for i:=1 to length(s) div 2 do
begin
  t:=s[i];
  s[i]:=s[length(s)-i+1];
  s[length(s)-i+1]:=t;
end