Определить количество вхождений подстроки в строку.

09.12.2009, 22:53. **Показов** 5332. **Ответов** 4

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

Я не бум-бум в информатике,а писать контрольную задано всем!Помогите!Заранее благодарю
1.Составить программу,которая подсчитывает кол-во вхождений подстроки в строку символов.Строка и подстрока вводится с клавиатуры.Результат вывести на экран.
2.Составить программу,которая подсчитывает количество символов до первой встречи символа "*" в тексте.Текст вв. с клавиатуры.Результат вывести на экран.
3.Составить программу,которая выводит на экран номер последней запятой,встречающейся в строке символов.Строка вводится с клавиатуры.
Всем чмоки))

@Inadequate · 09.12.2009, 23:10

2:

Pascal

var
  s:string;
  i,c:integer;
begin
  readln(s);
  c:=0;
  for i:=1 to length(s) do
    if s[i]<>'*' then
      inc(c)
    else
    begin
      writeln(c);
      exit
    end;
  writeln('В данной строке нат символа "*"')
end.

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

Pascal

var
  s:string;
  i,c:integer;
begin
  readln(s);
  c:=0;
  for i:=1 to length(s) do
    if s[i]=',' then
      c:=i;
  if c=0 then
    writeln('Â äàííîé ñòðîêå íåò çàïÿòûõ')
  else
    writeln('Å¸ ïîçèöèÿ: ',c)
end.

@IT_Exp · 09.12.2009, 23:16

Нюша_не_подарок,

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

Pascal

var
  s:string;
  i,c:integer;
begin
  readln(s);
  c:=0;
  for i:=1 to length(s) do
    if s[i]=',' then
      c := i;
    end;
  writeln(c)
end.

Всем чмоки))
ой, вот только не надо меня слюнявить. спа-а-асите!

09.12.2009, 23:17

Спасибо тебе Большое))))****,но просто я такая "умная" в информатике,что не знаю,как мне писать в развёрнутой форме....((((

@Puporev · 09.12.2009, 23:54

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

Pascal

p:=0;
for i:=length(s) downto 1 do
if si]=',' then
 begin
  p:=i;
  break;
 end;

Нюша_не_подарок
		1
	Определить количество вхождений подстроки в строку. 09.12.2009, 22:53. Показов 5332. Ответов 4 Метки нет (Все метки) Я не бум-бум в информатике,а писать контрольную задано всем!Помогите!Заранее благодарю 1.Составить программу,которая подсчитывает кол-во вхождений подстроки в строку символов.Строка и подстрока вводится с клавиатуры.Результат вывести на экран. 2.Составить программу,которая подсчитывает количество символов до первой встречи символа "*" в тексте.Текст вв. с клавиатуры.Результат вывести на экран. 3.Составить программу,которая выводит на экран номер последней запятой,встречающейся в строке символов.Строка вводится с клавиатуры. Всем чмоки))

Нюша_не_подарок
	09.12.2009, 23:17	4
	Спасибо тебе Большое))))****,но просто я такая "умная" в информатике,что не знаю,как мне писать в развёрнутой форме....((((

Опции темы

Определить количество вхождений подстроки в строку.

Решение