Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!Нужна ваша консультация по данной программе

Вопрос задал: Виноградов Алексей/Prog_man (статус: Посетитель) Вопрос отправлен: 5 января 2010, 01:09 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Паровоз

Здравствуйте, Виноградов Алексей/Prog_man!

Составляете множество из нужных знков препинания, например cs:=['.',',']. Далее можно так:

var
  s:string;//введеная строка
  n:Integer;//число нужных знаков препинания
  cs:set of char;
  i:Integer;
begin
  cs:=['.',','];
  n:=0;
  for i:=1 to Length(s) do if s[i] in cs then inc(n);
end;

Ответ отправил: Паровоз (статус: 10-ый класс) Время отправки: 5 января 2010, 11:13

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.