Ver. 1.0 Beta, Nie masz kompilatora? Teraz mo¿esz pisaæ skrypty ONLINE! Wersja podstawowa -nie zawiera wszystkich poleceñ Pascala. S³u¿y do nauki podstaw

Pascal

Wsteczwstecz Turbo Pascal
W górêw górê Podstawy Pascala
Dalejdalej Warunki, if... then... else...

Estetyka


Zanim zaczniesz programowaæ postanów sobie zachowywaæ pewne normy estetyczne. Nie s± one wymagane aby program dzia³a³ poprawnie, ale naprawdê u³atwiaj± ¿ycie. U³atwi± pracê nie tylko nauczycielowi, czy innym osobom, które bêd± ogl±da³y Twoj± pracê, ale i Tobie. Poka¿ê Tobie przyk³ad estetyki kodów z historii ucz±cego siê programisty.



Pocz±tki:

procedure plot;
begin
tlo(nx,ny);
if GetPixel(nx,ny)<>k then
begin
if sp=0 then begin
punkt(nx,ny,k);
Writeln(F,'punkt');
r:=r+15;
Str(nx,t);
Writeln(F,t);
r:=r+Length(t);
Str(ny,t);
Writeln(F,t);
r:=r+Length(t);
Str(k,t);
Writeln(F,t);
r:=r+Length(t);
end;
end;
if ((sp=1) and (roznice)) then
begin
linia(sx,sy,ex,ey,k);
Writeln(F,'linia');
Str(sx,t);
r:=r+17;
Writeln(F,t);
r:=r+Length(t);
Str(sy,t);
Writeln(F,t);
r:=r+Length(t);
Str(ex,t);
Writeln(F,t);
r:=r+Length(t);
Str(ey,t);
Writeln(F,t);
r:=r+Length(t);
Str(k,t);
Writeln(F,t);
r:=r+Length(t);
end;
status3;
kursor(nx,ny);
end;

Kilka lat pó¼niej:


unit Doors;

{**********************************************************}

interface

uses Errors,        {OBSLUGA I KODY BLEDOW}
    Graph10E,      {GRAFIKA W VESA, TRYB 10Eh}
    Standard,      {STANDARDOWE POLECENIA}
    Fonts;         {OBSLUGA CZCIONEK}


{**********************************************************}

const
     MaxEvents=15;           {WSZYSTKICH ROZNYCH ZDARZEN}
     MINI_BUTTON_SIZE   =10; {ROZMIAR PRZYCISKU NA OKNIE}

     MAX_OBJECTS        =10;

{**********************************************************}

     {NAZWY OBIEKTOW SYSTEMU SKKS DOORS}

     DOORS_FORM         = 1; {OKNO, NA KTORYM USTAWIA SIE OBIEKTY}
     DOORS_BUTTON       = 2; {PRZYCISK}
     DOORS_EDIT         = 3; {POLE TEKSTOWE}
     DOORS_PANEL        = 4; {PANEL NA KTORYM BEDA INNE OBIEKTY}
     DOORS_ICON         = 5;
     DOORS_LABEL        = 6; {NAPIS OBIEKTOWY}


Ty nie musisz traciæ kilku lat na wypracowanie u siebie w³asnego stylu programowania. Wystarczy, ¿e od pocz±tku bêdziesz zachowywa³ estetyczny kod. Proponujê wcinaæ go po ka¿dym rozpoczêciu bloku instrukcji i powracaæ w lewo po jego zakoñczeniu. Je¶li masz ba³agan w kodzie zajrzyj do skrótów klawiszowych opisanych we wstêpie i uporz±dkuj swoje ¼ród³a.


Dobrze jest pisaæ s³owa kluczowe, takie jak: unit, begin, end, const ma³ymi literami. Dlaczego? Prawdopodobnie zetkniesz siê w przysz³o¶ci z Delphi. Delphi sam dopisuje znaczn± czê¶æ kodu. Gdy tworzysz w Delphi blok instrukcji, on tworzy kod, gdzie s³owa kluczowe s± napisane ma³ymi literami. ¯eby nie ba³aganiæ w jego kodzie pisanego ma³ymi literami swoim -du¿ymi, do którego siê przyzwyczaisz -pisz s³owa kluczowe ma³ymi literami.


Warto czasem stosowaæ komentarze, czyli swoje opisy, co robi dany kod. W praktyce nie ma czasu na pisanie komentarzy przy ka¿dej instrukcji dlatego nie wpadaj w skrajno¶ci. Opisuj to co naprawdê potrzebne i u³atwi Tobie pracê, a nie zbierze du¿o czasu.

Strona korzysta z plików cookie w celu ¶wiadczenia us³ug Google (reklamy, statytyki) oraz Facebook. Je¶li chcesz zablokowaæ pliki cookies wy³acz je w swojej przegl±darce. Potrzebujesz pomocy? kliknij