В чём можно запустить эту программу?

@Smart108 · Регистрация: 28.09.2016

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

В чём это можно запустить

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
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
{uses crt;}
const
 n=100;
type
 used=array[1..n] of boolean;
var
 t:byte;
 graf:array[1..n,1..n] of byte;
 cherga:array[1..n] of byte;
 d1,d2,u:used;
 i,j,k,g,h:integer;
 dvodolnyj:boolean;
 
 
procedure rec(x:byte; first:boolean);
begin
 if dvodolnyj then
   begin
     u[x]:=true;
     for i:=1 to n do
       if graf[x,i]=1 then
         begin
           if not(u[i])  then
             begin
               if first then d2[i]:=true
               else d1[i]:=true;
               rec(i,not first);
             end
           else if (d1[x] AND d1[i]) OR (d2[x] AND d2[i]) then
      begin
        writeln('Graf NE dvodolnyj!');
        dvodolnyj:=false;
        readln;
        exit;
      end;
  end;
   end;
end;
 
 
procedure vGlyb;
begin
 dvodolnyj:=true;
 d1[1]:=true;
 rec(1,true);
 if dvodolnyj then
 begin
   writeln('Graf dvodolnyj');
   for i:=1 to n do
     if d1[i] then write(i:2);
   writeln;
   for i:=1 to n do
     if d2[i] then write(i:2);
   readln;
 end;
end;
 
procedure zero_Vglyb;
 begin
 t:=1;
 for i:=1 to n do
  begin
    u[i]:=false;
    d1[i]:=false;
    d2[i]:=false;
  end;
 for i:=1 to n do
   for j:=1 to n do graf[i,j]:=0;
end;
 
procedure push(x:byte);
var
 i:integer;
begin
 cherga[t]:=x;
 inc(t);
end;
 
function pop:byte;
var
 i,x:byte;
begin
 x:=cherga[1];
 for i:=2 to n do
  cherga[i-1]:=cherga[i];
 dec(t);
 pop:=x;
end;
 
function emptyqq:boolean;
begin
 if t=1 then emptyqq:=true
        else emptyqq:=false;
end;
 
procedure vShyrynu;
var
 x,i,j:byte;
begin
 dvodolnyj:=true;
 push(1);
 d1[1]:=true;
 u[1]:=true;
 while not emptyqq do
 begin
  x:=pop;
  for i:=1 to n do
   if graf[x,i]=1 then
   begin
    if not(u[i]) then
      begin
        if d1[x] then d2[i]:=true
        else d1[i]:=true;
        u[i]:=true;
        push(i);
      end
    else if (d1[x] AND d1[i]) OR (d2[x] AND d2[i]) then
      begin
        writeln('Graf NE dvodolnyj!');
        readln;
        exit;
      end;
   end;
 end;
 writeln('Graf dvodolnyj');
 for i:=1 to n do
  if d1[i] then write(i:2);
 writeln;
 for i:=1 to n do
  if d2[i] then write(i:2);
 readln;
end;
 
procedure zero_Vshur;
var
 i,j:byte;
begin
 t:=1;
 for i:=1 to n do
  begin
    u[i]:=false;
    d1[i]:=false;
    d2[i]:=false;
  end;
 for i:=1 to n do
  begin
   cherga[i]:=0;
   for j:=1 to n do graf[i,j]:=0;
  end;
end;
 
procedure test;
var k:integer;
begin
 Write('Vvedit kilkist reber: '); readln(k);
for i:=1 to k do
begin
Write('Vvedit cherez probil vershunu ',i,' rebra: '); Readln(g,h);
 graf[g,h]:=1;
 graf[h,g]:=1;
end;
end;
 
var key:char;
 
BEGIN
while key<>'3' do
begin
{ clrscr;}
writeln('1. V SHURUNY');
writeln('2. V GLYBUNY');
writeln('3. EXIT');
write('>>>');
read(key);
case key of
 '1':begin
    { clrscr;}
     zero_Vglyb;
     test;
     vGlyb;
     end;
'2':begin
     {clrscr;}
     zero_Vshur;
     test;
     vShyrynu;
     end;
end;
end;
 
END.

@ZX Spectrum-128 · 19.12.2016, 16:15

В исходном варианте запускается в fpc (скорее всего и в tp).

В нижеприведенном варианте - в PABC.net

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
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
{uses crt;}
const
  n = 100;
 
type
  used = array[1..n] of boolean;
 
var
  t: byte;
  graf: array[1..n, 1..n] of byte;
  cherga: array[1..n] of byte;
  d1, d2, u: used;
  i, j, k, g, h: integer;
  dvodolnyj: boolean;
 
 
procedure rec(x: byte; first: boolean);
var
  i: integer;
begin
  if dvodolnyj then
  begin
    u[x] := true;
    for i := 1 to n do
      if graf[x, i] = 1 then
      begin
        if not (u[i])  then
        begin
          if first then d2[i] := true
          else d1[i] := true;
          rec(i, not first);
        end
        else if (d1[x] AND d1[i]) OR (d2[x] AND d2[i]) then
        begin
          writeln('Graf NE dvodolnyj!');
          dvodolnyj := false;
          readln;
          exit;
        end;
      end;
  end;
end;
 
 
procedure vGlyb;
var
  i: integer;
begin
  dvodolnyj := true;
  d1[1] := true;
  rec(1, true);
  if dvodolnyj then
  begin
    writeln('Graf dvodolnyj');
    for i := 1 to n do
      if d1[i] then write(i:2);
    writeln;
    for i := 1 to n do
      if d2[i] then write(i:2);
    readln;
  end;
end;
 
procedure zero_Vglyb;
var
  i, j: integer;
begin
  t := 1;
  for i := 1 to n do
  begin
    u[i] := false;
    d1[i] := false;
    d2[i] := false;
  end;
  for i := 1 to n do
    for j := 1 to n do graf[i, j] := 0;
end;
 
procedure push(x: byte);
var
  i: integer;
begin
  cherga[t] := x;
  inc(t);
end;
 
function pop: byte;
var
  i, x: byte;
begin
  x := cherga[1];
  for i := 2 to n do
    cherga[i - 1] := cherga[i];
  dec(t);
  pop := x;
end;
 
function emptyqq: boolean;
begin
  if t = 1 then emptyqq := true
  else emptyqq := false;
end;
 
procedure vShyrynu;
var
  x, i, j: byte;
begin
  dvodolnyj := true;
  push(1);
  d1[1] := true;
  u[1] := true;
  while not emptyqq do
  begin
    x := pop;
    for i := 1 to n do
      if graf[x, i] = 1 then
      begin
        if not (u[i]) then
        begin
          if d1[x] then d2[i] := true
          else d1[i] := true;
          u[i] := true;
          push(i);
        end
        else if (d1[x] AND d1[i]) OR (d2[x] AND d2[i]) then
        begin
          writeln('Graf NE dvodolnyj!');
          readln;
          exit;
        end;
      end;
  end;
  writeln('Graf dvodolnyj');
  for i := 1 to n do
    if d1[i] then write(i:2);
  writeln;
  for i := 1 to n do
    if d2[i] then write(i:2);
  readln;
end;
 
procedure zero_Vshur;
var
  i, j: byte;
begin
  t := 1;
  for i := 1 to n do
  begin
    u[i] := false;
    d1[i] := false;
    d2[i] := false;
  end;
  for i := 1 to n do
  begin
    cherga[i] := 0;
    for j := 1 to n do graf[i, j] := 0;
  end;
end;
 
procedure test;
var
  k, i: integer;
begin
  Write('Vvedit kilkist reber: ');readln(k);
  for i := 1 to k do
  begin
    Write('Vvedit cherez probil vershunu ', i, ' rebra: ');Readln(g, h);
    graf[g, h] := 1;
    graf[h, g] := 1;
  end;
end;
 
var
  key: char;
 
begin
  while key <> '3' do
  begin
    { clrscr;}
    writeln('1. V SHURUNY');
    writeln('2. V GLYBUNY');
    writeln('3. EXIT');
    write('>>>');
    read(key);
    case key of
      '1':
        begin
          { clrscr;}
          zero_Vglyb;
          test;
          vGlyb;
        end;
      '2':
        begin
          {clrscr;}
          zero_Vshur;
          test;
          vShyrynu;
        end;
    end;
  end;
  
end.

@Smart108 · 21.12.2016, 03:26 **[ТС]**

А можно ли её скомпилировать в АБС.нет, я пробовал - куча ошибок(

@ZX Spectrum-128 · 21.12.2016, 10:22

Smart108, я же положил вариант для pabc.net.

@Smart108 · 23.12.2016, 21:56 **[ТС]**

Оно работает в нём, но не компилится. Вот скрин.

@Cyborg Drone · 24.12.2016, 12:50

Smart108, так это же предупреждения, а не ошибки. Не обращайте внимания. Если желаете от них избавиться, то везде поменяйте for на for var. А ещё лучше, читайте книжки, говорят, от этого большинство вопросов отпадают сами собой.

@Smart108 · 25.12.2016, 13:48 **[ТС]**

Поменял, не работает, пишет "Внутриблочные переменные не могут иметь те же имена, что и переменные из блока верхнего уровня", как это исправить, очень нужно что-бы закомпилилось

@Cyborg Drone · 25.12.2016, 16:03

Естественно, глобальные объявления переменных-счётчиков нужно будет убрать, или поменять имена глобальных переменных-счётчиков. Простите, я полагал, что это очевидно.

@Smart108 · 25.12.2016, 17:23 **[ТС]**

Ладно, я вас понял, спасибо, что уделили мне время.

Новые блоги и статьи Все статьи Все блоги /
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .

@Smart108 3 / 3 / 1 Регистрация: 28.09.2016 Сообщений: 98
	21.12.2016, 03:26 [ТС]
	А можно ли её скомпилировать в АБС.нет, я пробовал - куча ошибок( 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	21.12.2016, 10:22
	Smart108, я же положил вариант для pabc.net. 0

@Smart108 3 / 3 / 1 Регистрация: 28.09.2016 Сообщений: 98
	23.12.2016, 21:56 [ТС]
	Оно работает в нём, но не компилится. Вот скрин. Миниатюры 0

@Cyborg Drone Модератор 10416 / 5704 / 3401 Регистрация: 17.08.2012 Сообщений: 17,363
	24.12.2016, 12:50
	Smart108, так это же предупреждения, а не ошибки. Не обращайте внимания. Если желаете от них избавиться, то везде поменяйте for на for var. А ещё лучше, читайте книжки, говорят, от этого большинство вопросов отпадают сами собой. 1

@Smart108 3 / 3 / 1 Регистрация: 28.09.2016 Сообщений: 98
	25.12.2016, 13:48 [ТС]
	Поменял, не работает, пишет "Внутриблочные переменные не могут иметь те же имена, что и переменные из блока верхнего уровня", как это исправить, очень нужно что-бы закомпилилось 0

@Cyborg Drone Модератор 10416 / 5704 / 3401 Регистрация: 17.08.2012 Сообщений: 17,363
	25.12.2016, 16:03
	Естественно, глобальные объявления переменных-счётчиков нужно будет убрать, или поменять имена глобальных переменных-счётчиков. Простите, я полагал, что это очевидно. 1

@Smart108 3 / 3 / 1 Регистрация: 28.09.2016 Сообщений: 98
	25.12.2016, 17:23 [ТС]
	Ладно, я вас понял, спасибо, что уделили мне время. 0

В чём можно запустить эту программу?

Решение