File Edit Search Run Compile Debug Tools Options Window Help
+-[_]---------------------------- NONAME00.PAS --------------------------1-[]-+
¦uses crt;
¦var i,j,k:boolean; _
¦function F_sled(i,j:boolean):boolean; _
¦begin; _
¦F_sled() _
¦end; _
¦function F_and(i,j:boolean):boolean; _
¦begin; _
¦F_and:=i and j; _
¦end; _
¦function F_or(i,j:boolean):boolean; _
¦begin; _
¦F_or:=i or j; _
¦end; _
¦function F_not(i:boolean):boolean; _
¦begin; _
¦F_not:=not i; _
¦end; _
¦function F_ekv(i,j:boolean):boolean; _
¦begin; _
¦F_ekv:=F_or(F_and(i,j),F_and(F_not(i),F_not(j)));
+-¤----- 5:9 -----__________________________________________________________-+
F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu
|