В каждой строке текста определить номер позиции последней точки

@kirillpro1001 · Регистрация: 12.10.2016

Студворк — интернет-сервис помощи студентам

Дан текст (массив строк). Составить программу, которая в каждой строке текста определяет номер позиции последней точки.

@JuriiMW · 17.10.2016, 06:48

Pascal

begin
  foreach var S in ReadLines(ReadLnString('Имя текстового файла:')) do
    WriteLn(S.LastIndexOf('.') < 0 ? 'нетуть' : '' + (S.LastIndexOf('.') + 1));
end.

@Joy · 17.10.2016, 10:34

можно без цикла:

Pascal

begin
  ReadLines(ReadLnString('Имя текстового файла:')).Select((s,i)->
    begin 
      var a:=s.LastindexOf('.');
      Result:='в строке '+inttostr(i+1)+(a < 0 ? 'отcутствует символ "."':'индекс последнего символа ".":'+inttostr(a+1));
    end).println(newline)  
end.

@volvo · 17.10.2016, 12:03

Можно и по-другому, тоже без цикла:

Pascal

begin
  ReadLines(ReadLnString('Имя текстового файла:')).
    Select(s -> S.LastIndexOf('.') < 0 ? 'нетуть' : '' + (S.LastIndexOf('.') + 1)).PrintLn(NewLine);
end;

@kirillpro1001 1 / 1 / 0 Регистрация: 12.10.2016 Сообщений: 13
		1
	В каждой строке текста определить номер позиции последней точки 16.10.2016, 00:45. Показов 1429. Ответов 3 Метки нет (Все метки) Дан текст (массив строк). Составить программу, которая в каждой строке текста определяет номер позиции последней точки. 0

Опции темы