|
more than 340 programs for free
|
![]() English |
![]() Slovensky |
![]() Česky |
![]() Šarišsky |
Prehľadný program - správne odsadzujte riadkyJe dobré si zvyknúť že nie všetky riadky programu začínajú úplne vľavo. Pýtate sa prečo je to dôležité? Je to kvôli čitateľnosti programu. Je dobré ak pri pohľade na program okamžite vidím kde začína alebo končí procedúra ktoré príkazy patria ktorému cyklu či podmienke. Téme ako odsadzovať je venovaných mnoho článkov. Ja ukážem ako správne odsadenie programu program sprehľadní a urobí ho čitateľnejším. Uvediem príklad programu ktorý nieje odsadení vôbec procedure vynulujmlade; begin for i:= 1 to 10 do begin for j:= 1 to 10 do begin if kvet[i,j]=1 then kvet[i,j]:=2; end; end; end; procedure vykresli; begin clrscr; for i:= 1 to 10 do begin for j:= 1 to 10 do begin if kvet[i,j]=0 then begin textcolor(darkgray); gotoxy(i*4,j*2);Write('x'); end; if kvet[i,j]=2 then begin textcolor(green); gotoxy(i*4,j*2);Write('O'); end; end; end; end; Hrôza že? Tak teraz ten istý program ale s odsadením { Vynuluje mlade rastlinky } procedure VynulujMlade; var i,j:integer; begin for i:= 1 to 10 do for j:= 1 to 10 do if kvet[i,j]=1 then kvet[i,j]:=2; end; { semigraficke zobrazenie stavu rastliniek } procedure Vykresli; var i,j:integer; begin clrscr; for i:= 1 to 10 do begin for j:= 1 to 10 do begin if kvet[i,j]=0 then begin textcolor(darkgray); gotoxy(i*4,j*2);Write('x'); end; if kvet[i,j]=2 then begin textcolor(green); gotoxy(i*4,j*2);Write('O'); end; {if} end; {for j} end; {for i} end;A teraz pár zásad:
|
|