Tanácsok, tippek és trükkök a
Turbo Pascal környezet használatához,
ill. általánosságban a programkészítéshez
Biztonság
os programírási szokások:Pl.:
Program prnév;
Begin
End.
majd
Program prnév;
Uses Crt;
Const MaxN=100;
Type TVektor=Array [1..MaxN] of Real;
Var N:Integer;
t:TVektor;
Begin
End.
utána
Program prnév;
Uses Crt;
Const MaxN=100;
Type TVektor=Array [1..MaxN] of Real;
Var N:Integer;
t:TVektor;
Begin
Beolvas(N,t);
Feldolgoz(N,t);
Kiir(N,t)
End.
s azután
Program prnév;
Uses Crt;
Const MaxN=100;
Type TVektor=Array [1..MaxN] of Real;
Var N:Integer;
t:TVektor;
Procedure Beolvas(Var N:Integer; Var t:TVektor);
Begin
End;
…
Begin
Beolvas(N,t);
Feldolgoz(N,t);
Kiir(N,t)
End.
Pl.:
Procedure ;
Begin
End;
vagy
If then else;
vagy
Case of
End;
vagy
Record
End;
vagy
With do
End;
"Rövid" forrásprogram |
Include forrásprogram (VALAMI.INC) |
Program Proba; |
Function SokJel(Const jel:Char;
Function Kozepre(Const s:String;
Procedure Lapoz;
Procedure Megnyit(Var f:TFile;
Procedure Lezar(Var f:TFile); |
Apróságok:
Ugyanazt a programot két példányban (2 ablakban) tartani. (Ehhez előszöris ki kell menteni a 0. változatot.) Megosztani a képernyőt úgy, hogy mindkettő látható legyen. (Window/Cascade)
Tipikus példa: amikor a program legfelsőbb szintjét hozzuk létre, begépeljük a "főszegmenst", azaz az eljáráshívásokat, majd létrehozzuk üresen "üresen" a hivatkozott eljárásokat. Valahogy így
Program prnév;
Uses Crt;
Const MaxN=100;
Type TVektor=Array [1..MaxN] of Real;
Var N:Integer;
t:TVektor;
Begin
Beolvas(N,t);
Feldolgoz(N,t);
Kiir(N,t)
End.
majd
Program prnév;
Uses Crt;
Const MaxN=100;
Type TVektor=Array [1..MaxN] of Real;
Var N:Integer;
t:TVektor;
Procedure Beolvas(Var N:Integer; Var t:TVektor);
Begin
End;
Begin
Beolvas(N,t);
Feldolgoz(N,t);
Kiir(N,t)
End.
S ezután lemásolva a Beolvas eljárás, megspórolhatunk néhány kulcs-szó beírását:
Program prnév;
Uses Crt;
Const MaxN=100;
Type TVektor=Array [1..MaxN] of Real;
Var N:Integer;
t:TVektor;
Procedure Beolvas(Var N:Integer; Var t:TVektor);
Begin
End;
Procedure
Beolvas(Var N:Integer; Var t:TVektor)
;
Begin
End;
Procedure
Beolvas(Var N:Integer; Var t:TVektor)
;
Begin
End;
Begin
Beolvas(N,t);
Feldolgoz(N,t);
Kiir(N,t)
End.
(Csak az áthúzottat kell részben vagy egészben újra írni.)
Figyelő ablak (Watch): Ctrl+F7 (Add watch …), majd a kérdéses változó nevének beírása. Az első figyelendő változó beírásakor kinyílik a "Figyelő ablak". Annak érdekében, hogy ezt is párhuzamosan lássuk a nyomkövetés közben: osszuk meg a képernyőt az aktuális programablak és ő közte: ALT+W majd A (Window/Cascade)
Jó tudni: ha egy összetett adat tartalmát figyeljük, akkor
a változó deklarációja |
a Figyelő ablakba vételkor beírandó |
a Figyelő ablakban látjuk |
r:Record nev:String; x,y:Integer End; |
r |
r: ('szöveg',1,2) |
r:Record nev:String; x,y:Integer End; |
r.nev |
r.nev: 'szöveg' |
r:Record nev:String; x,y:Integer End; |
r,r | r: (nev:'szöveg',x:1,y:2) |
F:File of … | F |
(Closed) -- ha még nem lett megnyitva (Input,'file.nev') -- ha meg lett nyitva inputra egy Text file; (Output,'file.nev') -- ha meg lett nyitva ouputra egy Text file; (Open,'file.nev') -- ha meg lett nyitva inputra egy típusos file |
Ha nem tudom, hogy az adott eljárásba (függvénybe) honnan került a vezérlés:
Forrásprogram |
Hívás-ablak |
Program TanulsagosProgram; … Function F(Var x:Integer):Integer; Begin x:=x+1; F:=2*x-1; End; Begin {Főprogram:} ClrScr; x:=2; xx:=x; Writeln('y:=F(x:',x,')=>'); y:=F(x); … |
TanulsagosProgram F(2) TanulsagosProgram |
Billentyű |
Menü |
Funkció |
F2 |
F ile/Save |
Program-kimentés |
F3 |
F ile/Open |
Program-betőltés |
Ctrl+F3 |
D ebug/Call stack |
Hívás-ablak megjelenítés |
Ctrl+Ins |
E dit/Copy |
|
Shift+Ins |
E dit/Paste |
|
Ctrl+K/B |
|
Kijelölés kezdete a kurzornál (B=Begin) |
Ctrl+K/K |
|
Kijelölés vége a kurzornál |
F1 |
H elp |
Online help |
Ctrl+K/n |
|
"n"-edik könyvjelző elhelyezés a kurzornál |
F6 |
W indow/NextWindow/Previous |
Lapozás a következő oldalhoz |
F5 |
W indow/Zoom |
Az adott lap nagyítása (v. visszakicsinyítése) |
F7 |
R un/Trace intoRun/Step over Run/Go to cursor |
Nyomkövetés "részletesen" |
Ctrl+F8 |
D ebug/Breakpoints |
Töréspont elhelyezés |