All pas (496)
[ program ] ...program tabulka uses grafika var i j m integer const a array 1 10 1 6 of integer spanok tv citanie pocitac jedenie ucenie 8 3 1 2 2 0 7 2 0 1 2 4 9 1 2 1 1 2 10 4 0 2 2 1 12 2 0 1 3 2 8 1 0 3 2 4 7 1 2 2 1 2 7 0 1 1 3 1 8 2 0 1 2 2 10 1 1 0 3 1 meno array 1 10 of string Veronika Misa DenyL Paula...
.pashttp://baby.szm.com/gjh/2c/TABULKA.PAS
[ program ] ...program tabulka uses grafika var i j m integer const a array 1 10 1 6 of integer spanok tv citanie pocitac jedenie ucenie 8 3 1 2 2 0 7 2 0 1 2 4 9 1 2 1 1 2 10 4 0 2 2 1 12 2 0 1 3 2 8 1 0 3 2 4 7 1 2 2 1 2 7 0 1 1 3 1 8 2 0 1 2 2 10 1 1 0 3 1 meno array 1 10 of string Veronika Misa DenyL Paula...
.pashttp://baby.szm.sk/gjh/2c/TABULKA.PAS
[ A hashing program ] rogram simple hash reads data from file hashes on name case insensitive uses crt const capacity 10 blank type rec type record key integer ID name string end record array type array 1 capacity of rec type var bank rec rec type x array type bank text function raise case name string string Capitalizes every letter in name var j integer temp string beg...
.pashttp://www.cs.nyu.edu/courses/spring98/V22.0102/hash2.pas
rogram MED Minimal Edit Distance slov pomoc techniky Dynamic Time Warping Kvantifikuje podobnost slov pomoc po tu nutn ch oprav p i p em n jednoho slova na druh const MaxDelkaSlova 25 var i j min Byte s1 s2 String MaxDelkaSlova distance Array 0 MaxDelkaSlova 0 MaxDelkaSlova of Byte BackTracking Array 0 MaxDelkaSlova 0 MaxDelkaSlova of Char PocetM P...
.pashttp://multiedu.tul.cz/~dana.nejedlova/AI/DTW/DTW.PAS
...rogram Hopfieldova sit uses crt graph const r 8 s 6 const r 24 s 21 type Aktivace 1 1 V array 1 r 1 s of ShortInt UkW V var f Text fn String 8 c Char a i j k l n GrDriver GrMode ErrCode Integer x array 1 r 1 s of Aktivace w array 1 r 1 s of UkW procedure inicializace begin ClrScr WriteLn Program...
.pashttp://multiedu.tul.cz/~dana.nejedlova/AI/Hopfield/HOPFIELD.PAS
rogram Kohonenova sit Uses crt graph Const delka vzoru 2 r 100 s 100 pokles 20 Po kolika kroc ch klesne eta na polovinu m je to v t t m v ce to kategorizuje Type Vzor array 1 delka vzoru of Real Uk Vzor Var w array 0 r 0 s of Uk i j k l best i best j GrDriver GrMode ErrCode Integer krok LongInt vzdalenost min vzdalenost max vzdalenost radius eta Re...
.pashttp://multiedu.tul.cz/~dana.nejedlova/AI/Kohonen/KOHONEN.PAS
... vystup2 chyba2 array 1 fonemy of Real 1 vrstva3 w1 dw1pred array 1 okenko znaky 1 of UkW12 1 vrstva1 1 1 vrstva2 w2 dw2pred array 1 vrstva2 1 of UkW23 1 vrstva2 1 1 vrstva3 procedure inicializace begin ClrScr randomize WriteLn Program NETtalk WriteLn WriteLn Tr novac data mus b t v souboru tren txt...
.pashttp://multiedu.tul.cz/~dana.nejedlova/AI/NETtalk/NETTALK.PAS
rogram Slova do fonemu uses CRT DOS const prah 1 znaky 44 fonemy 56 okenko 5 vrstva2 56 type Aktivace prah 1 V2 array 1 vrstva2 of Real V3 array 1 fonemy of Real UkW12 V2 UkW23 V3 var fw file of Real konec Boolean slovo String znak array 1 255 of String 2 fonem String 2 i j k maxfonind vrstva1 Integer maxfon Real x array 1 okenko znaky 1 of Aktivac...
.pashttp://multiedu.tul.cz/~dana.nejedlova/AI/NETtalk/FONEMY.PAS
... zmenen zmeny vah krat write f0 Vektor vah je for i 1 to p do write f0 w i writeln f0 writeln f0 close f0 end begin writeln Program Perceptron write Zadejte jmeno souboru read jmeno souboru l 0 repeat l l 1 znak copy jmeno...
.pashttp://multiedu.tul.cz/~dana.nejedlova/AI/Perceptron/PERCEPTR.PAS
[ Overton's tree picture program ] ...rogram printtrees program to print trees using a 2 dimensional array used to show the mirror tree as well as the tree itself M Overton April 1 1998 const rowmax 8 colmax 64 colmax should be 2 to the power rowmax R type picture array 1 rowmax 1 colmax of char type tree node node record info char...
.pashttp://www.cs.nyu.edu/courses/spring98/V22.0102/picture.pas