Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 38
1

разобраться с кодом

21.11.2010, 14:18. Показов 329. Ответов 0
Метки нет (Все метки)

Дан текст. найти самую длинную группу цифр и поменять ее с последней группой цифр

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
const  s  = 'sdsgs#d_123_ewat&wea_16489_w,etwe_27_twetw_5_ewr.we_653_fgh';
  var i : Integer;
  pmax, lmax : Integer;
  pt, lt : Integer;
  ResultStr : string;
 
begin
  i := 1;
  lmax := 0;
  repeat
    if s[i] in ['0'..'9']
    then
      Begin
        lt := 1;
        while (i <= Length(s))
         do
          if s[i+lt] in ['0'..'9']
          then
            Inc(lt)
          else
            Break;
        pt := i;
        if lt > lmax
        then
          begin
            lmax := lt;
            pmax := i;
          end;
        i  := i + lt;
      end;
    Inc(i);
  until i > Length(s);
 
  ResultStr := Copy(s, 1, pmax - 1) + Copy(s, pt, lt) +
               Copy(s, pmax + lmax, pt - pmax - lmax) + Copy(s, pmax, lmax) +
               Copy(s, pt + lt, Length(s) - pt - lt + 1);
  Writeln(s);
  Writeln(ResultStr);
  Readln;
end.
вот программа и решение ее. можите помочь разобраться с кодом этой программы... что она делает и как? желательно подробно. очень прошу. заранее спасибо
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2010, 14:18
Ответы с готовыми решениями:

Не могу разобраться разобраться с кодом меню
Добрый день. Я понимаю, что тут все, наверное, элементарно. Но я только начала изучение js и пока...

Разобраться с кодом
Помогите, пожалуйста, разобраться с кодом)) Только недавно начала изучать с++ и не могу понять что...

разобраться с кодом
Помогите разобраться с кодом. Я идиот в VB и нифига не знаю)) за прогу забошлял, а препод просит...

Разобраться с кодом
Здравствуйте, начинаю изучать питон и никак не могу додуматься до решения. Нужно вывести через...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2010, 14:18

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Разобраться с кодом
Для чего нужна вот эта часть кода? зачем нужен этот конструктор ? как он работает? // класс...

Разобраться с кодом
Товарищи, помогите, пожалуйста, разобраться с кодом. Есть база. В ней форма Клиент. В форме есть...

Разобраться с кодом
Ребят, помогите разобраться. У меня мозг уже потёк. Подскажите пожалуйста, где и как это...

разобраться с кодом
люди добрые может кто нить написать пояснения к коду (типа это переменная, это то то, берется от...

Разобраться с кодом
Голова в поздний час не работает, помогите кому не лень... Вот кусок кода, думаю многие поймут что...

Разобраться с кодом. )
Язык С практически и не проходили ,но сдать работу нужно будет. Помогите ,пожалуйста, объяснив...


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

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

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