Не хватает мозгов написать правильный код

Darwin · Регистрация: 16.08.2013

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

Есть такая задача:
1. Есть текстовой файл, в каждой строке которого числа от 0 до 36:

CSS
1
2
3
4
,21,32,29,4,16,22,19,22,13,27,34,23,4,27,31,2,30,17,18,36,10,34,29,18,0,2,21,36,27,8,20,3,2,30,16,24,7,19,27,14,25,9,20,12,7,23,28,5,7,22,34,4,18,11,25,9,30,23,24,8,
,34,17,4,2,0,4,6,36,9,35,28,8,5,34,25,29,10,34,12,30,2,27,19,1,31,24,9,7,10,35,20,5,25,36,6,28,16,36,23,1,19,30,34,25,18,22,1,22,24,18,27,16,34,11,0,29,17,26,4,28,
,10,30,30,25,0,20,22,29,13,28,4,10,18,20,2,17,13,1,15,12,7,34,20,13,31,29,27,22,22,22,23,1,15,1,35,7,3,13,3,32,26,20,22,6,1,4,29,24,29,27,31,21,10,29,34,32,9,26,36,21,
.............

2. Нужно искать в каждой строке все возможные тройки чисел, напр. начиная от 0,1,2 до 34,35,36.
3. Если найдено - счетчик 0, если не найдено - счетчик на пропуск количества строк.

Делал все простым способом:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 1] := '0,1,2';
  StringGrid1.Cells[0, 2] := '0,1,3';
  StringGrid1.Cells[0, 3] := '0,1,4';
.............
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  F: Textfile;
  p, s: Integer;
  st: string;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    while not Eof(F) do
    begin
      Readln(F, st);
 
        // 0,1,2
  if (Pos(',0,', st) > 0) or (Pos(',1,', st) > 0) or (Pos(',2,', st) > 0)
  then
  begin
    StringGrid2.Cells[0, 1] := '0';
  end
  else
  begin
    s := StrToIntDef(StringGrid2.Cells[0, 1], 0);
    p := (s + 1);
    StringGrid2.Cells[0, 1] := inttostr(p);
  end;
 
        // 0,1,3
  if (Pos(',0,', st) > 0) or (Pos(',1,', st) > 0) or (Pos(',3,', st) > 0)
  then
  begin
    StringGrid2.Cells[0, 2] := '0';
  end
  else
  begin
    s := StrToIntDef(StringGrid2.Cells[0, 2], 0);
    p := (s + 1);
    StringGrid2.Cells[0, 2] := inttostr(p);
  end;
.............
        // 0,04,28
  if (Pos(',0,', st) > 0) or (Pos(',4,', st) > 0) or (Pos(',28,', st) > 0)
  then
  begin
    StringGrid2.Cells[0, 126] := '0';
  end
  else
  begin
    s := StrToIntDef(StringGrid2.Cells[0, 126], 0);
    p := (s + 1);
    StringGrid2.Cells[0, 126] := inttostr(p);
  end;
//и так далее..
    end;
    CloseFile(F);
  end;
end;

Все работает, но в таком случае код, конечно, будет бесконечно долгим..
Как бы все сделать как надо?
Буду благодарен за помощь, желательно с примером.

@Rashiran · 17.09.2013, 19:09

Darwin, правильно ли я понял, что к тройке чисел применяется следующее условие:
первое число - меньше второго и второе - меньше третьего?
Тогда, FormCreate будет вот так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormCreate(Sender: TObject);
var i, j, k, index:integer;
begin
  index := 1;
  for i := 0 to 34 do
    for j := i + 1 to 35 do //второе число на 1 больше первого
       for k := j + 1 to 36 do //третье число на 1 больше второго
       begin
         StringGrid1.Cells[0, index] := IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k);
         inc(index);
       end;
end;

А Button1Click будет так:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  F: Textfile;
  p, s: Integer;
  i, j, k, index:integer;
  st: string;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    while not Eof(F) do
    begin
      Readln(F, st);
      index := 0;
      for i := 0 to 34 do
        for j := i + 1 to 35 do //второе число на 1 больше первого
          for k := j + 1 to 36 do //третье число на 1 больше второго
          begin
            inc(index);
            if (Pos(','+IntToStr(i)+',', st) > 0) or (Pos(','+IntToStr(j)+',', st) > 0) or (Pos(','+IntToStr(k)+',', st) > 0) then
            begin
              StringGrid2.Cells[0, index] := '0';
            end
            else
            begin
              s := StrToIntDef(StringGrid2.Cells[0, 1], 0);
              p := (s + 1);
              StringGrid2.Cells[0, index] := inttostr(p);
            end;
          end;
    end;
    CloseFile(F);
  end;
end;

Вот так не будет бесконечно долгим.

Добавлено через 1 минуту
Это при условии, что количество необходимых ячеек уже просчитано и установлено.

Darwin · 17.09.2013, 19:39 **[ТС]**

Спасибо за участие, Rashiran.
При FormCreate числа генерируются как надо.
Но счетчик пропусков строк не работает должным образом

Darwin · 17.09.2013, 19:48 **[ТС]**

Ой, извиняюсь

Все работает!!
Спасибо, Rashiran, спасибо дружище!!

@Rashiran · 17.09.2013, 19:49

Darwin, не понимаю когда я стал таким придурком.

Delphi
1
s := StrToIntDef(StringGrid2.Cells[0, 1], 0);

Замени на:

Delphi
1
s := StrToIntDef(StringGrid2.Cells[0, index], 0);

Darwin · 17.09.2013, 19:54 **[ТС]**

Спасибо и еще раз спасибо, очень выручил!!

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Darwin 2 / 2 / 0 Регистрация: 16.08.2013 Сообщений: 88
	17.09.2013, 19:39 [ТС]
	Спасибо за участие, Rashiran. При FormCreate числа генерируются как надо. Но счетчик пропусков строк не работает должным образом Изображения 0

Darwin 2 / 2 / 0 Регистрация: 16.08.2013 Сообщений: 88
	17.09.2013, 19:48 [ТС]
	Ой, извиняюсь Все работает!! Спасибо, Rashiran, спасибо дружище!! 1

Darwin 2 / 2 / 0 Регистрация: 16.08.2013 Сообщений: 88
	17.09.2013, 19:54 [ТС]
	Спасибо и еще раз спасибо, очень выручил!! 0