Доброго дня!
цель: сделать инверсию символов методом рекурсии путем вызова процедуры.


исполнение:
var
a:string;


procedure revers (a:string);
  var
    b:char;
    c:integer;
  begin
    c:=length(a);
    if c=0 then
      write('вы не ввели число!');
    b:=a[c];
    write(b);
    c:=c-1;
      if c<>0 then
        revers(a)
        end;
    
    begin
      writeln('введите символы для инверсии: ');
      readln(a);
      revers(a);
      
   end.
    

\________

платформа pascalabc net

почемуто не работает(

хвастаешься?

Ну, вообще, движешься в правильном направлнеии. Еще бы форум правильный подобрать - цены б не было.

Всё можно, только выбрось его.

А лучше сожги.

(1) Как именно не работает?

if c<>0 then
        revers(Copy(a,1,c))

(6) зацикливание

Потому что, переменная с постоянно затирается при каждом рекурсивном вызове.

(8) значит c<>0 всегда срабатывает. Это не паскаль, это логика.

(8) Ну дык строка же длину не меняет, тебе надо подстроку передавать, либо начальное смещение в качестве параметра.

не хватает while

хвала   DirecTwiX
вот так работает:



var
a:string;


procedure revers (a:string);
  var
    b:char;
    c:integer;
  begin
    c:=length(a);
    if c=0 then
      write('вы не ввели число!');
    b:=a[c];
    write(b);
    c:=c-1;
      if c<>0 then
        revers(Copy(a,1,c))
        end;
    
    begin
      writeln('введите символы для инверсии: ');
      readln(a);
      revers(a);
      
   end.

уменьшение переменной c на единицу должно быть в цикле. в виртовском паскале это было так :-)

(13) Непонятно только зачем так делать. С точки зрения производительности эта реализация - адЪ.

(15) зато с рекурсией - типа круто

Раньше от таких рекурсий стек переполнялся (под досом). Я одну прогу так же написал так она после себя не давала обращаться к дискам, приходилось перезагружаться.

Глубину нужно фиксировать.

Да, вместо обхода переменной в обратном направлении рекурсия, а еще на эту же переменную :)

Не помню, в паскале индексы с 1 начинаются?

если есть варианты как сделать без функции copy - пожалуйста.

(20) да

(21) Вместо c:=length(a) передавай c-1 в качестве параметра.

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

(24) пошляк...

(23) это как?

(26) Тебе копия строки нужна только для того, чтобы определить индекс текущего символа. Ну так и передавай индекс.

(27) код такой?:

var
a:string;


procedure revers (a:string);
  var
    b:char;
    c:integer;
  begin
    c:=length(a);
    if c=0 then
      write('вы не ввели число!');
    b:=a[c];
    write(b);
    c:=c-1;
      if c<>0 then
        revers(a[c-1])
        end;
    
    begin
      writeln('введите символы для инверсии: ');
      readln(a);
      revers(a);
      
   end.


не работает..

> сделать инверсию символов методом рекурсии
А ведь это, похоже, учебная задача. А потом  такой студент устроится в 1С и накодит такими методами реальную задачу... Грустно, господа :(

(28) Параметров у процедуры должно быть 2: исходная строка и индекс.

(30) что-то непонятно...

(31) Зачем каждый раз вычислять c:=length(a), если мы знаем, что при каждом вызове результат будет меньше на 1? Не проще ли отнять от текущего значения c единицу и передать ее с вызовом? Будет revers(a, c-1)