Найти первую и последнюю по порядку запятую в заданном тексте

@Juliya1994 · Регистрация: 14.10.2010

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

дан текст. найти первую и последнюю по порядку запятую

@Puporev · 28.02.2011, 18:27

Первая

Pascal

1	p:=pos(',',s);

Последняя

Pascal

p:=0;
if s[length(s)]=',' then p:=length(s)
else
 begin
  i:=length(s);
  while (i>=1)and(p=0) do
  if s[i]=',' then p:=i
  else i:=i-1;
 end;

10.05.2011, 16:20

Можно и так.

Pascal

Program Zapyataya;
Var
s: string; {строковая переменная}
i, i1, i2: Integer; {i - счетчик для цикла, i1 - позиция первой запятой, i2 - позиция последней запятой}
Begin
WriteLn('Введите строку: ');
ReadLn(s);
For i:=1 To Length(s) Do {Цикл прямого хода}
     If s[i]=',' Then i2:=i;  {в результате работы которого находим последнюю ,}
For i:=Length(s) DownTo 1 Do {Цикл обратного хода}
     If s[i]=',' Then i1:=i;  {в результате работы которого находим последнюю ,}
WriteLn('Позиция первой запятой:  ',i1);
WriteLn('Позиция последней запятой:  ',i2);
End.

@Juliya1994 0 / 0 / 0 Регистрация: 14.10.2010 Сообщений: 40
		1
	Найти первую и последнюю по порядку запятую в заданном тексте 28.02.2011, 18:20. Показов 2078. Ответов 2 Метки нет (Все метки) дан текст. найти первую и последнюю по порядку запятую 0

	10.05.2011, 16:20

Найти первую и последнюю по порядку запятую в заданном тексте

Решение