Главная

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

вс, 03/20/2011 - 03:36 — tech
Темы учебника
Строковый тип данных в Паскале
Задача: 

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

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

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.

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

Комментарии

пт, 02/01/2013 - 17:42 — Гость

По моему куда легче:for

По моему куда легче:

for i:=length(s) downto 1 do
write(s[i]);

  • ответить
Пнд, 04/28/2014 - 23:46 — Гость

Вы не переворачиваете саму

Вы не переворачиваете саму строку, вы просто выводите её элементы в обратном порядке

  • ответить
Пнд, 06/23/2014 - 14:58 — Гость

А разве не одно и тоже

А разве не одно и тоже получается?

  • ответить
ср, 10/17/2012 - 13:46 — Гость

не понятно...

Почему n := length(s) div 2; делим на 2, не могу понять...

  • ответить
чт, 11/08/2012 - 12:52 — Гость

Нам надо найти серидину, вот

Нам надо найти серидину, вот мы и находим!

  • ответить
пт, 10/26/2012 - 14:21 — Гость

Т.к. без деления мы

Т.к. без деления мы перевернём всё, а после середины пойдёт замена искомой строки на вводимую. А с делением идёт ровно до половины, и при нечётном кол-ве элементов центральный останется центральным.

  • ответить