Порядковый номер последней точки текста

[ofenod]

Как определить, каким по порядку символом с начала текста является последняя точка текста?

[phomm]

var 
s : string;
i,n:integer;
...
for i := 1 to length(s)
  do if s[i] = '.'
    then n := i;
writeln(n);

это циклом , а ещё можно pos использовать , но мой моск уже спит, в справку лезть за точными параметрами тоже ломит...
если интересно зайдите в справку, а так и мой вариант норм должен работать (хотя он без проверки )

[ofenod]

Сообщение от phomm

var 
s : string;
i,n:integer;
...
for i := 1 to length(s)
  do if s[i] = '.'
    then n := i;
writeln(n);

это циклом , а ещё можно pos использовать , но мой моск уже спит, в справку лезть за точными параметрами тоже ломит...
если интересно зайдите в справку, а так и мой вариант норм должен работать (хотя он без проверки )

Спасибо, всё чётко описано.

[Serge_Bliznykov]

ну, более эффективно перебирать символы с конца и прерываться, как только нашлась точка:

  n := 0; {если ноль - точка не найдена}
  for i:= length(s) downto 1 do
    if s[i]='.' then begin
      n := i;
      break; {всё. прервать цикл}
    end;

добавлено

Маленькое пояснение для TC
Код перебирает с конца строки,индекс сначала становится равным длине строки, потому уменьшается, до тех пор, пока не встретится точка.
Поясню на примере.
если:
Мир.Труд.Май!
то перебор будет от 13 (символ !) потом 12, 11,10 и на i=9 оставится.
Ответ - 9-й символ.