Переворот строки

Задача

Перевернуть строку, т.е. последние символы должны стать первыми, а первые последними.

Решение

 

Описание переменных: 

s – строка;
n – середина строки;
c – меняемый символ.

Алгоритм решения задачи: 

  1. Найти середину строки.
  2. Перебрать символы строки от начала до ее середины:
    1. очередной символ сохранить в переменной c;
    2. а на его место записать противоположный с конца;
    3. на место противоположного записать сохраненный в c.

Программа на языке Паскаль: 

 

var
    s: string;
    i,n: byte;
    c: char;
begin
    write('Input string: ');
    readln(s);
    n := length(s) div 2;
    for i := 1 to n do begin
        c := s[i];
        s[i] := s[length(s)-i+1];
        s[length(s)-i+1] := c;
    end;
    writeln(s);
readln
end.

 

Тема

Строки

Уровень

Простые задачи

Теги

Комментарии

var a,b: string;
	i: integer;
begin
	write('A: -> ');
	readln(a);
	for i:=length(a) downto 1 do 
		b:=b+a[i];
	writeln(b);	
end.

Добавить комментарий