Тип данных "строка"

22.12.2010, 19:45. **Показов** 444. **Ответов** 4

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

очень прошу, помогите решить задачу

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

@Dekio · 22.12.2010, 19:52

Pascal

1
2
3

for i:=1 to length(s)-length(ps) do
if copy(s,i,length(ps))=ps then
inc(k);

или

Pascal

while pos(ps,s)<>0 do
begin
delete(s,pos(ps,s),length(s));
inc(k);
end;

@_антон_ · 22.12.2010, 20:51

Pascal

program ggg;
uses CRT;
var
s: string;
i,p: integer;
begin
  readln(s);
  p:= 0;
  for i:= 1 to length(s)-2 do
    if copy(s, i, 3) = 'заданное слово' then p := p + 1;
  writeln(p);
end.

@Dekio · 22.12.2010, 21:00

_антон_, смотри выше.
+ твой код довольно плохо написан.
лучше считывать слово с клавиатуры.
если слово не 3 буквы? тогда надо лазить и искать где менять количество букв.

@_антон_ · 23.12.2010, 08:10

Тоже верно, но можно и поменять.
Я просто по шаблону делал

оля"
		1
	Тип данных "строка" 22.12.2010, 19:45. Показов 444. Ответов 4 Метки нет (Все метки) очень прошу, помогите решить задачу Написать программу, которая подсчитывает сколько раз входит в заданную строку заданное слово.

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	22.12.2010, 21:00	4
	_антон_, смотри выше. + твой код довольно плохо написан. лучше считывать слово с клавиатуры. если слово не 3 буквы? тогда надо лазить и искать где менять количество букв. 0

@_антон_ 19 / 19 / 9 Регистрация: 15.12.2010 Сообщений: 120
	23.12.2010, 08:10	5
	Тоже верно, но можно и поменять. Я просто по шаблону делал 1

Опции темы