Вывести на экран номер последней запятой, встречающейся в строке сиволов

@Diamond_mad · Регистрация: 04.03.2009

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

Помогите пожалуйста решить..))) Заранее огромнейшее спасибо))

Составить программу, которая подсчитывает количество вхождений подстроки в строку символов. Строка и подстрока символов вводится с клавиатуры. Результат вывести на экран.
Например: 1) подстрока -sin, строка - x+sin(x) результат 1
2) подстрока -кот, строка Электрический ток передается по проводам, результат 0

2. Составить программу, которая подсчитывает количество символов после первой встречи символа $ в тексте. Текст вводится с клавиатуры. Результат вывести на экран.
Наприер:
1) текст 1111$$222$ результат 5
2) 1111**222* результат 0

3. Составить программу, которая выводит на экран номер последней запятой, встречающейся в строке сиволов. Строка символов вводится с клавиатурыю
Например:
1) Строка 111,222,33 результат n=8
2) Строка 111222333 результат: нет запятой.

@Inadequate · 16.12.2009, 08:13

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

Составить программу, которая подсчитывает количество символов после первой встречи символа $ в тексте

Pascal

var
  s:string;
begin
  readln(s);
  if pos('$',s)<>0 then
    writeln(length(s)-pos('$',s))
  else
    writeln('Òàêîãî ñèìâîëà íåò')
end.

Добавлено через 3 минуты

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

Составить программу, которая выводит на экран номер последней запятой, встречающейся в строке сиволов

Pascal

var
  s:string;
  i:integer;
begin
  readln(s);
  if pos(',',s)<>0 then
  begin
    i:=length(s)+1;
    repeat
      dec(i)
    until
      s[i]=',';
    writeln(i)
  end
  else
    writeln('Â äàííîì ñòðîêå íåò çàïÿòîé!')
end.

@Diamond_mad · 16.12.2009, 18:43 **[ТС]**

А с первой задачей можете помочь?)))

@Inadequate · 16.12.2009, 19:04

Pascal

var
  s,subs:string;
  i,c:integer;
begin
  readln(s,subs);
  c:=0;
  while pos(subs,s)<>0 do
  begin
    inc(c);
    delete(s,1,pos(subs,s));
  end;
  writeln(c)
end.

@Diamond_mad 0 / 0 / 0 Регистрация: 04.03.2009 Сообщений: 23
		1
	Вывести на экран номер последней запятой, встречающейся в строке сиволов 16.12.2009, 07:57. Показов 1695. Ответов 3 Метки нет (Все метки) Помогите пожалуйста решить..))) Заранее огромнейшее спасибо)) Составить программу, которая подсчитывает количество вхождений подстроки в строку символов. Строка и подстрока символов вводится с клавиатуры. Результат вывести на экран. Например: 1) подстрока -sin, строка - x+sin(x) результат 1 2) подстрока -кот, строка Электрический ток передается по проводам, результат 0 2. Составить программу, которая подсчитывает количество символов после первой встречи символа $ в тексте. Текст вводится с клавиатуры. Результат вывести на экран. Наприер: 1) текст 1111$$222$ результат 5 2) 1111*222 результат 0 3. Составить программу, которая выводит на экран номер последней запятой, встречающейся в строке сиволов. Строка символов вводится с клавиатурыю Например: 1) Строка 111,222,33 результат n=8 2) Строка 111222333 результат: нет запятой. 0

@Diamond_mad 0 / 0 / 0 Регистрация: 04.03.2009 Сообщений: 23
	16.12.2009, 18:43 [ТС]	3
	А с первой задачей можете помочь?))) 0

Опции темы