Поиск группы символов в строке

@pp1404 · Регистрация: 25.09.2007

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

Здрасьте люди!
Прошу помоч с решение непонятной мне задачи.
Задача на тему строковых переменных (String), формулируется так:
С клавиатуры вводится строка из 80 символов. Найти в строке группу цифр,кратную 9, и вывести ее на экран.

Заранее спасибо!

@LastSoul · 27.09.2007, 10:39

Сообщение от WooDooMan666

ну просто находи цифры и пиши в переменную их, пока выполняется условие, что текущий символ между '0' и '9' и так рекурсионно до конца строки

в том то и дело:

Сообщение от pp1404

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

сейчас нет времени писать эту функцию (бежать надо), делай типа такого:
проходишся по строке циклом for i:=1 to length(s) do
если цифры, то сохраняешь в какую-нить переменную (как ты и делал до этого)
если наткунлся на какой-нибудь символ <> 0-9, то проверяем число в сохраненной переменной на кратность, далее присваеваем этой переменной пустое значение (:= '') и продолжаем искать следующее число.... вообщем типа такого....

зы: для поиска групп групп цифр в строке юзай либо рекурсию, либо циклы while или repeat until

зыы: ща пойду пива попью, когда приду напишу эту функцию...

если конечно сам уже не сделаешь...

@Lord_Voodoo · 27.09.2007, 10:53

Сообщение от LastSoul

насколько я помню это вроде в delphi такие функции, а тут паскаль

VAL(ST, X, CODE) - преобразует строку символов ST во внутреннее представление целой или вещественной переменной X, которое определяется типом этой переменной; параметр CODE содержит ноль, если преобразование прошло успешно, и тогда в X помещается результат преобразований, в противном случае он содержит номер позиции в строке ST, где обнаружен ошибочный символ, и в этом случае содержимое Х не меняется

так он и сказал, что в борланде пишет, вот и дал ему эти функции

@LastSoul · 28.09.2007, 08:31

вот тебе прога полностью (только че-то она у меня получилась немного подругому(без рекурсии и циклов while и repeat) ):

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program xxx;
var s, r: string;
    i, n, n2: integer;
    m: set of char;
    b: bool;
begin
 s := '1234567890nbfhyrtdbc1234567890nnvhfygdcv99999999999999999999lzsdfsfkvzxlfvhfbvdi';
 m := ['0'..'9'];
 for i:=1 to length(s) do begin
  if not (s[i] in m) then b := false
  else b := true;
  if b then r := r + s[i]
  else begin
   if length(r)>0 then begin
    val(r, n, n2);
    if n mod 9 = 0 then writeln(r);
   end;
   r := '';
  end;
 end;
end.

зы:
только эта прога выдаст ошибку, т.к. 99999999999999999999 - гораздо больше чем Integer, да и число 1234567890 тоже больше чем Int но в Delphi у меня почему-то ошибка не вылезла :confused:

@Lord_Voodoo · 28.09.2007, 09:38

Сообщение от LastSoul

вот тебе прога полностью (только че-то она у меня получилась немного подругому(без рекурсии и циклов while и repeat) ):

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program xxx;
var s, r: string;
    i, n, n2: integer;
    m: set of char;
    b: bool;
begin
 s := '1234567890nbfhyrtdbc1234567890nnvhfygdcv99999999999999999999lzsdfsfkvzxlfvhfbvdi';
 m := ['0'..'9'];
 for i:=1 to length(s) do begin
  if not (s[i] in m) then b := false
  else b := true;
  if b then r := r + s[i]
  else begin
   if length(r)>0 then begin
    val(r, n, n2);
    if n mod 9 = 0 then writeln(r);
   end;
   r := '';
  end;
 end;
end.

зы:
только эта прога выдаст ошибку, т.к. 99999999999999999999 - гораздо больше чем Integer, да и число 1234567890 тоже больше чем Int но в Delphi у меня почему-то ошибка не вылезла :confused:

да там надо просто вместо integer использовать double или float на крайний случай...

@pp1404 · 04.10.2007, 15:43 **[ТС]**

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
30
31
32
33
34
35
36
37
38
39
40
PROGRAM Stroki;
Uses Crt;
Const
 Znak : String[10] = '1234567890';
Var
 Stroka : string[80];
 Gruppa : string[80];
 N,M,I,J,K,L,Q,Error:integer;
BEGIN
 ClrScr;
 Read (Stroka) ;
 J:=0;
 N := Length (Stroka) ;
  For I := 1 to N+1 Do
  BEGIN
  K := Pos (Stroka[I],Znak);
   If K > 0 Then Gruppa := Gruppa + Stroka[I];
   If K = 0 Then
    BEGIN
     Val (Gruppa,Q,Error);
     If Q <> 0 Then
      BEGIN
       If Q Mod 9 = 0 Then
        BEGIN
         WriteLn('iskomaya gruppa ',gruppa);
         ReadKey;
         Exit;
        END
       Else
        BEGIN
         M := Length (Gruppa);
         Delete (Gruppa,1,M);
         J:=J+1;
        END;
      END;
    END;
 END;
    If J=0 Then WriteLn('Znakov net') Else WriteLn('Net chisel kratnih 9');
 ReadKey;
END.

Народ,потестите плиз прогу,не могу найти где запарка,мозг кипит уже

@pp1404 · 04.10.2007, 15:45 **[ТС]**

если найдете в чем запарка,или как сделать прогу корректнее,скажите плиз! Буду очень признателен

@nervous.net.man · 04.10.2007, 16:15

Copy(str,index1,index2)- выделение под строки
Delete(str,index1,index2) - удаление под строки
Insert(str1,str2,index1) - вставка

@LastSoul · 04.10.2007, 21:56

Сообщение от pp1404

Народ,потестите плиз прогу,не могу найти где запарка,мозг кипит уже

я вот никак немогу понять че твой последний предоставленный код должен делать?!
у меня от него тоже мозг немного закипел...

08.02.2009, 14:38

В языке паскаль комментарии ограничиваются фигурными дужками. Написать программу которая изымает комментарии и добавляет вместо них символ "пробил" (чтобы "1{один}2" превращалось не в "12" а в "1 2". Начальный текст считать один раз символ за символом. Также полученный текст печатать символ за символом.

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

@pp1404 0 / 0 / 0 Регистрация: 25.09.2007 Сообщений: 11

	Поиск группы символов в строке 25.09.2007, 18:25. Показов 12591. Ответов 28 Метки нет (Все метки) Здрасьте люди! Прошу помоч с решение непонятной мне задачи. Задача на тему строковых переменных (String), формулируется так: С клавиатуры вводится строка из 80 символов. Найти в строке группу цифр,кратную 9, и вывести ее на экран. Заранее спасибо! 0

@pp1404 0 / 0 / 0 Регистрация: 25.09.2007 Сообщений: 11
	04.10.2007, 15:45 [ТС]
	если найдете в чем запарка,или как сделать прогу корректнее,скажите плиз! Буду очень признателен 0

@nervous.net.man 5 / 5 / 4 Регистрация: 25.06.2007 Сообщений: 85
	04.10.2007, 16:15
	Copy(str,index1,index2)- выделение под строки Delete(str,index1,index2) - удаление под строки Insert(str1,str2,index1) - вставка 0

TOSA.grk
	08.02.2009, 14:38
	В языке паскаль комментарии ограничиваются фигурными дужками. Написать программу которая изымает комментарии и добавляет вместо них символ "пробил" (чтобы "1{один}2" превращалось не в "12" а в "1 2". Начальный текст считать один раз символ за символом. Также полученный текст печатать символ за символом.