[Delphi] Zagadka z override,virtual

[Force]

Tak z bloga: Mamy sobie taki kod (Zagadka A):

program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils;

type
 TA = class
   public
     procedure metoda;virtual;
 end;

 TB = class(TA)
   public
     procedure metoda;override;
 end;

 TC = class(TB)
   public
     procedure metoda;virtual;
 end;

 TD = class(TC)
   public
     procedure metoda;override;
 end;

procedure TA.metoda;
begin
 Writeln('A');
end;

procedure TB.metoda;
begin
 Writeln('B');
end;

procedure TC.metoda;
begin
 Writeln('C');
end;

procedure TD.metoda;
begin
 Writeln('D');
end;

var
 d : TD;
begin
 d := TD.Create;
 TA(d).metoda;
 TB(d).metoda;
 TC(d).metoda;
 TD(d).metoda;
 TD(TB(d)).metoda;
 d.Free;
 readln;
end.
^ŹĘ(+-jx
'i+jx'ZlrĘIZł&\& quot;yiŚ(Qą(ą(ŃŃ(((QąĄQ(
ą(Ń(((QąĄQ(ą(ŃŃ(((QąĄQ(ą(Ń(i    & nbsp;Ś(Qą(ą(ŃŃ(((QąĄQ(
ą(Ń(((QąĄQ(ą(Ń(((QąĄQ(ą(Ń((

Odpowiedź 1:

B

B

B

D

B

Odpowiedź 2:

B

B

C

D

D

Odpowiedź 3:

B

B

B

D

D

Odpowiedź 4:

B

B

B

D

D

I teraz proszę połączyć litery zagadek z numerami odpowiedzi (jedna jest dodatkowo )

 

Proszę nie kompilować

[Force]

Wtargnął się błąd, odpowiedź 4 to:

C

C

C

D

D

nie mogę posta zedytowac bo są krzaki:D

Tak to jest jak się permutuje

[Toster]

4 ?

[Force]

Nie. A4 to nie jest poprawna odpowiedź. Zostało 18 strzałów:D ale podpowiem, że odpowiedź 4 na coś odpowiada

[DevPort]

Do zagadki A będzie odpowiedź pierwsza.

 

Reszty nie wiem xD

[Force]

Do A jest odpowiedź 3