Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Дарья Прохорова
1 / 1 / 0
Регистрация: 03.12.2009
Сообщений: 81
1

работа с символьными переменными

03.12.2009, 23:06. Просмотров 674. Ответов 3
Метки нет (Все метки)

Составить программу, которая подсчитывает количество слов во введенной фразе, если между словами стоит произвольный разделитель и произвольное число пробелов.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2009, 23:06
Ответы с готовыми решениями:

Работа с символьными и строковыми переменными
Дано натуральное число N (N<1000). Записать это число русскими словами.

Работа с символьными и строковыми переменными
Даны символы S1, S2… Известно, что символ S1 отличен от пробела и что среди S2,...

Работа с символьными файлами
Дан символьный файл f. Считая, что количество символов в слове не более 20: а)...

Работа с символьными данными
не могу решить!! Расположить символы в строке так, чтобы сначала шли символы,...

Работа с литерными переменными
Помогите пожалуйста с задачей (Pascal). Работа с функциями: CHR, ORD, PRED,...

3
TAVulator
Эксперт Pascal/Delphi
3996 / 1140 / 179
Регистрация: 27.07.2009
Сообщений: 3,553
03.12.2009, 23:12 2
Цитата Сообщение от Дарья Прохорова Посмотреть сообщение
произвольный разделитель
что сие значит?
0
Дарья Прохорова
1 / 1 / 0
Регистрация: 03.12.2009
Сообщений: 81
03.12.2009, 23:23  [ТС] 3
произвольный разделитель - точка, запятая, точка с запятой и т.п.
0
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
03.12.2009, 23:40 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñГ*ГІГј Г*ГіГ¦Г*ûå}
var
  s,temp:string;
  i,count:integer;
begin
  clrscr;
  writeln('Ââåäèòå ñòðîêó:');
  readln(s);
  temp:='';
  count:=0;
  {ïðîáåãГ*ГҐГ¬ ГўГ±Гѕ ñòðîêó ïîñèìâîëüГ*Г®}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if temp<>'' then
      begin
        inc(count);
        temp:=''
      end;
    end;
  end;
  writeln('Êîëè÷åñòâî: ',count)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.12.2009, 23:40

Работа с индексированными переменными
Пожалуйста помогите с решением у самого ни как не получаеться! 1)Дана...

Работа со строковыми переменными.
Дана строка. Подсчитать сколько в ней символов &quot;*&quot;; &quot;.&quot;; &quot;:&quot;; &quot;,&quot;.

работа со строковыми переменными
в строке удалить символ двоеточие &quot;:&quot;. Подсчитать кол-во удаленных символов


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru