Textové súbory a korytnačky

Úloha: Daný je súbor, v ktorom sú príkazy pre korytnačku: d (dopredu), l (vlavo), p (vpravo) + číslo, napr.: d 100 p 120 d 100 p 120 d 100,pričom písmená a čísla sú navzájom oddelené aspoň jednou medzerou alebo novým riadkom.

var z:char; 
     p:integer;
begin
AssignFile(t,'kor1.txt'); Reset(t);
k:=TKor.Create;
while not SeekEof(t) do begin
                                       read(t,z,p);
                                       case z of
                                       'd': k.dopredu(p);
                                       'p': k.vpravo(p);
                                       'l': k.vlavo(p);
                                     end;
end;
CloseFile(t);
end;

Úloha: 

  1. Doplňte procedúru na vykreslenie kvetu tak, aby sa do textového súboru zapamätávali momentálne súradnice korytnačky, t.j. (k.X, k.Y) - (zrejme stačí sledovať príkaz dopredu). 

  2. Napíšte procedúru, ktorá čítaním týchto súradníc nakreslí kvet.

návrat