> i: = 1; j: = 1; t: = 1;
While (i <= m) and (j <= q) do {поки не вийшли футболісти хоча б з одного автобуса}
Begin
{порівнюємо номери футболістів у різних автобусах, виходить до ладу футболіст з найменшим номером}
If A [i] <= B [j] Then begin D [t]: = A [i]; Inc (i); end
Else begin D [t]: = B [j]; Inc (j); end;
Inc (t);
end;
{з одного автобуса вийшли всі футболісти, залишилося вийти іншим}
While i <= m do begin D [t]: = A [i]; Inc (i); Inc (t); end;
While j <= q do begin D [t]: = B [j]; Inc (j); Inc (t); end;
For i: = 1 to t-1 do Write (D [i], '');
end;
begin
clrscr;
Init ('A: socker.txt');
Solve;
readkey;
end.
В
5 Задача про сім'ях .
Uses crt;
Const MaxN = 1000;
Var A: array [1 .. maxN] of byte;
N, cnt, i, j: integer;
Procedure Swap (var a, b: byte);
Var c: byte;
Begin
c: = a; a: = b; b: = c;
End;
Begin
Write ('введіть N'); readln (N);
Write ('введіть масив через пробіл (0 - Петров, 1 - Іванов) ');
For i: = 1 to N do read (A [i]);
i: = 1; j: = N; cnt: = 0;
While i
If A [i] = 1 then Inc (i) else
If A [j] = 0 then Dec (j) else begin
Swap (A [i], A [j]);
Inc (i); dec (j);
Inc (cnt);
End;
writeLn ('Число обмінів -', cnt);
End. p> 6 Метро.
uses crt;
const p = 100;
Type mas = array [1 .. p, 1 .. p] of 0 .. 1;
var k, n: integer;
A: mas;
procedure Init (z: string); {ініціалізація даних}
var f: text;
i, j: integer;
begin
Assign (f, z);
Reset (f);
ReadLn (f, n);
For i: = 1 to n do
begin
For j: = 1 to n do
Read (f, A [i, j]);
ReadLn (f);
end;
Close (f);
end;
procedure Get (i: integer); {i - номер станції, з якої необхідно відправиться}
var S, T: Set of 1 .. p;
j, l: integer;
begin
T: = [i];
Repeat
S: = T;
For l: = 1 to n do
If l in S then {по рядках матриці суміжності А, що належить безлічі S}
For j: = 1 to n do
If A [l, j] = 1 Then T: = T + [j]; {дивимося якщо є шлях з даного пункту в пункт j, то додаємо номер пункту j в безліч Т}
Until S = T;
For j: = 1 to n do
If (j in T) and (i <> j) then Write (j, ''); {переглядаємо чи міститься номер пункту j в множині мають шлях з пункту i}
end;
begin
clrscr;
Init ('A: metro.txt');
readLn (k);
Get (k);
readkey;
end.
7 Роботи.
