ZS/Testy/Test 09: Rozdiel medzi revíziami

procedure Zapis(Pole: array of string);
var
  F: ^file;
  S: ^string;
  D: ^Integer;
  I: Integer;
begin
  New(S);
  D := @I;
  F := file.Create('a.dat');
  Rewrite(F^);
  for I := 1 to Length(Pole) do
  begin
    S^ := Pole[I];
    D^ := Length(S^);
    F.BlockWrite(D, 4);
    if D <> 0 then
      F.BlockWrite(S, D);
  end;
  F.CloseFile;
end;

type
  TVrchol = class
    Prev, Next: TVrchol;
  end;
  TZoznam = class
    Z, K: TVrchol;
    procedure Vyhod(V: TVrchol);
    procedure Vyhod(V: array of TVrchol);
  end;

procedure TZoznam.Vyhod(V: TVrchol);
begin
  if V.Prev = nil then
    Z := V.Next
  else
    ________________________;
  if V.Next = nil then
    K := V.Prev
  else
    _________________________;
  V.Free;
end;

procedure TZoznam.Vyhod(V: array of TVrchol);
var
  I: Integer;
begin
  for I := 0 to High(V) do
    _____________________________;
end;

type
  TStrom = class;
  TFunkcia = function (S: TStrom): string;
  TStrom = class
    Info: Integer;
    L, P: TStrom;
    function Urob(F: TFunkcia): string;
  end;

function TStrom.Urob(F: TFunkcia): string;
begin
  if (L = nil) or (P = nil) then
    Result := F(Self)
  else
    Result := L.Urob(F) + F(Self) + P.Urob(F);
end;

function Urob(S: TStrom): string;
begin
  if (S.L = nil) and (S.P = nil) then
    Result := IntToStr(S.Info)
  else
    Result := '*';
end;

WriteLn(Strom.Urob(@Urob));

pes, pas, pos, posol, osol, sol, eso, pasy, osly, esa, osa, 
osy, pel, pol, pal, paly, polo, les, posly, lesy, lese, osla

procedure TBVStrom.Vloz(X: Integer);
var
  S: TVrchol;
begin
  if Koren = nil then
    Koren := TVrchol.Create(X)
  else
  begin
    S := Koren;
    while _________________ do
      if S.Info > X then
        if S.L = nil then
          _________________________
        else
          S := ____________________
      else
        if S.P = nil then
          _________________________
        else
          S := ____________________;
  end;
end;

type
  TMnozina = set of Byte;
  TAStrom = class
    function Hodnota: TMnozina; virtual; abstract;
    function Prefix: string; virtual; abstract;
  end;

  TAOperacia = class(TAStrom)
    Op: Char;
    L, P: TAStrom;
    constructor Create(Z: Char; LL, PP: TAStrom);
    function Hodnota: TMnozina; override;
    function Prefix: string; override;
  end;

  TAOperand = class(TAStrom)
    Hod: TMnozina;
    constructor Create(H: TMnozina);
    function Hodnota: TMnozina; override;
    function Prefix: string; override;
  end;

+ [3 5 7 8] * - [1 2 4 7] [2 3 4 5] [1 5 7 9]

type
  TSubor = file of Integer;

procedure Sort(var F: TSubor);
var
  I, X, Min: Integer;
begin
  I := -1;
  while I < FileSize(F)-1 do
  begin
    Reset(F);
    while not Eof(F) do
    begin
      if FilePos(F) < I then
        Read(F, X)
      else if FilePos(F) = I then
        Write(F, Min)
      else if FilePos(F) = I + 1 then
        Read(F, Min)
      else
      begin
        Read(F, X);
        if X < Min then
        begin
          Seek(F, FilePos(F) - 1);
          Write(F, Min);
          Min := X;
        end;
      end;
    end;
    Inc(I);
  end;
end;

type
  TGraf = class
    G: array [1..N] of set of 1..N;
    function Test: Boolean;
  end;

function TGraf.Test: Boolean;
var
  I, J: Integer;
  M: set of 1..N;
begin
  Result := True;
  for I := 1 to N do
  begin
    M := [];
    for J := 1 to N do
      if I in G[J] then
        M := _____________________;
    Result := __________________________________;
  end;
end;

procedure TGraf1.Dosirky(V: Integer);
var
  I: Integer;
  Z: Char;
  Queue: TQueue;
begin
  Queue := TQueue.Create;
  Queue.Append(V);
  Z := 'A';
  repeat
    Queue.Serve(V);
    if not (V in Visited) then
    begin
      Visited := Visited + [V];
      G[V].Znak := Z;
      Inc(Z);
      for I := 0 to High(G) do
        if not (I in Visited) and JeHrana(V, I) then
          Queue.Append(I);
    end;
  until Queue.Empty;
  Queue.Free;
end;