Строки и телефонные номера.

@ruslan-gonch · Регистрация: 06.10.2009

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

Задачка на строки и дин.массивы
Номера мобильных телефонов могут выглядеть по-разному:
8-111-1111111
+7 111 1111111
+71111111111
8(111)111-1111
и т д

Написать программу, приводящую номер к виду +7 111 111 11 11

Плохо понимаю, как такое многообразие к одному виду привести...

@ruslan-gonch · 16.10.2009, 16:15 **[ТС]**

Dnnn, спасибо! Твои идеи мне помогли!
Итоговое решение(строки 42-47 и 7 можно убрать):

Delphi
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
41
42
43
44
45
46
47
48
49
50
Var
 s, s1, s2, s3: String;
 i, opr1: Integer;
Begin
 ReadLn(s);
 opr1 := 0;
 s1 := '';
 SetLength(s1, Length(s));
 For i := 1 To Length(s) Do
  If (Ord(s[i]) = 43) Or ((Ord(s[i]) > 47) And (Ord(s[i]) < 58)) Then
   Begin
    Inc(opr1);
    s1[opr1] := s[i];
   End;
 SetLength(s1, opr1);
 SetLength(s2, 12);
 SetLength(s3, 16);
 If (Length(s1) = 11) Then
  Begin
   s2[1] := '+';
   s2[2] := '7';
   For i := 2 To Length(s1) Do
    s2[i+1] := s1[i];
  End;
 If (Length(s1) = 12) Then
  For i := 1 To Length(s1) Do
   s2[i] := s1[i];
For i := 1 To 2 Do
 s3[i] := s2[i];
s3[3] := ' ';
For i := 4 To 6 Do
 s3[i] := s2[i-1];
s3[7] := ' ';
For i := 8 To 10 Do
 s3[i] := s2[i-2];
s3[11] := ' ';
For i := 12 To 13 Do
 s3[i] := s2[i-3];
s3[14] := ' ';
For i := 15 To 16 Do
 s3[i] := s2[i-4];
 WriteLn(s);
 WriteLn(Length(s1));
 WriteLn(s1);
 WriteLn(Length(s2));
 WriteLn(s2);
 WriteLn(Length(s3));
 WriteLn(s3);
 ReadLn;
End.

Уф...

Добавлено через 4 минуты
Пупорев, если в учебнике пока не рассказано об этих функциях, то я НЕ МОГУ ещё их знать.
Строки я начал изучать недавно, это только вводный курс. Вдобавок бывает полезно решить задачу без таких особенностей. Раз так подавать материал решили авторы методички, то так мне и нужно его проходить.

@ruslan-gonch · 16.10.2009, 16:18 **[ТС]**

Всё, что есть в методичке

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера 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 Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@ruslan-gonch 0 / 2 / 0 Регистрация: 06.10.2009 Сообщений: 23

	Строки и телефонные номера. 13.10.2009, 10:54. Показов 3464. Ответов 21 Метки нет (Все метки) Задачка на строки и дин.массивы Номера мобильных телефонов могут выглядеть по-разному: 8-111-1111111 +7 111 1111111 +71111111111 8(111)111-1111 и т д Написать программу, приводящую номер к виду +7 111 111 11 11 Плохо понимаю, как такое многообразие к одному виду привести... 0