VPF::Сколько раз встречается символ в строке?

wiwa

Дата 8.12.2007, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.12.2007

Репутация: нет
Всего: нет

Уважаемые эксперты помогите решить задачу которая оч много значит для меня. (Дано слово из четырех символов. Сколько раз встречается в нем заданный символ?Вывести соответсвующее сообщение). Заранеее благодарен

Данкинг

Дата 8.12.2007, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Код


function count(slovo,symbol:string):integer;
var i,skolko:integer;
begin
skolko:=0;
for i:=1 to length(trim(slovo)) do
 begin
 if copy(slovo,i,1)=symbol then inc(skolko);
 end;
result:=skolko;
end;

Это сообщение отредактировал(а) Данкинг - 8.12.2007, 21:43

--------------------

There's nothing left but silent epitaphs.

LesnoyChelovek

Дата 8.12.2007, 21:47 (ссылка)

(нет голосов)

Загрузка ...

странник Интернета

Профиль
Группа: Участник
Сообщений: 346
Регистрация: 27.2.2006
Где: Русь

Репутация: нет
Всего: 10

Код


var: slovo,s:string;
     n,i:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Vvedite slovo:');
  readln(slovo);
  writeln('Vvedite iskomiy simvol:');
  readln(s);
  for i:=1 to Length(slovo) do
  begin
  if slovo[i]=s then n:=n+1;
  end;
  writeln('=================== Itog ===============');
  writeln('Simvol ',s,' vstrechsetsya v slove ',slovo,' ',n,' raz.');
  readln;
end.

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

wiwa

Дата 8.12.2007, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.12.2007

Репутация: нет
Всего: нет

спасибо огромное

THandle

Дата 8.12.2007, 21:55 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: нет
Всего: 372

Добавлено @ 22:03

Код


function Count(Word : string; c : char) : byte;
var
  i : byte;
begin
  result := 0;
  for i := 1 to length(Word) do
    if Word[i] = c then inc(result);
end;

Вот мой вариант.

Это сообщение отредактировал(а) THandle - 8.12.2007, 22:10

volvo877

Дата 8.12.2007, 22:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(THandle @ 8.12.2007, 20:55

)

Зачем вы в цикле каждый раз Length вычисляете?

Срочно читать хелпы... В цикле For начальное и конечное значение ВСЕГДА вычисляется один раз - на первой итерации... А потом используется то, что было вычислено...

Это сообщение отредактировал(а) volvo877 - 8.12.2007, 22:06

THandle

Дата 8.12.2007, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: нет
Всего: 372

volvo877, всё. прочитал. согласен полностью.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »