Kuburitswa kwePascalABC.NET 3.8 programming system iripo, ichipa edition yePascal programming language nerutsigiro rwekugadzira code ye.NET platform, kugona kushandisa .NET libraries nezvimwe zvinhu zvakaita segeneric classes, interfaces , opareta kuwandisa, Ξ»-mataurirwo, kunze, kuunganidza marara, nzira dzekuwedzera, makirasi asina mazita uye autoclass. Iyo purojekiti inonyanya kutariswa pane zvikumbiro mudzidzo nekutsvaga. Iyo package inosanganisirawo nharaunda yekusimudzira ine macode hints, auto-formatting, debugger, fomu dhizaini, uye kodhi samples kune vanotanga. Iyo kodhi yeprojekiti yakagoverwa pasi pe LGPLv3 rezinesi. Inogona kuvakwa paLinux (Mono-based) uye Windows.
Shanduko mukuburitswa kutsva:
- ΠΠΎΠ±Π°Π²Π»Π΅Π½Π° ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΡΡΠ΅Π·ΠΎΠ² ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² begin var m := MatrByRow(||1,2,3,4|,|5,6,7,8|,|9,10,11,12||); Println(m[:,:]); // [[1,2,3,4],[5,6,7,8],[9,10,11,12]] Println(m[::1,::1]); // [[1,2,3,4],[5,6,7,8],[9,10,11,12]] Println(m[1:3,1:4]); // [[6,7,8],[10,11,12]] Println(m[::2,::3]); // [[1,4],[9,12]] Println(m[::-2,::-1]); // [[12,11,10,9],[4,3,2,1]] Println(m[^2::-1,^2::-1]); // [[7,6,5],[3,2,1]] Println(m[:^1,:^1]); // [[1,2,3],[5,6,7]] Println(m[1,:]); // [5,6,7,8] Println(m[^1,:]); // [9,10,11,12] Println(m[:,^1]); // [4,8,12] end.
- ΠΠΎΠ±Π°Π²Π»Π΅Π½Ρ Π»ΡΠΌΠ±Π΄Π°-Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ Ρ ΡΠ°ΡΠΏΠ°ΠΊΠΎΠ²ΠΊΠΎΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ², ΡΠ²Π»ΡΡΡΠΈΡ ΡΡ ΠΊΠΎΡΡΠ΅ΠΆΠ°ΠΌΠΈ ΠΈΠ»ΠΈ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡΠΌΠΈ. ΠΠΎΡΠ²ΠΈΠ»Π°ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π΄Π°Π²Π°ΡΡ ΠΈΠΌΠ΅Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ ΠΊΠΎΡΡΠ΅ΠΆΠ΅ΠΉ ΠΏΡΡΠΌΠΎ Π² ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°Ρ Π»ΡΠΌΠ±Π΄Ρ. Π§ΡΠΎΠ±Ρ ΡΠ°ΡΠΏΠ°ΠΊΠΎΠ²Π°ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ-ΠΊΠΎΡΡΠ΅ΠΆ t Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ x ΠΈ y, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π·Π°ΠΏΠΈΡΡ \\(x,y). ΠΡΠΎ ΠΎΠ΄ΠΈΠ½ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ Π·Π°ΠΏΠΈΡΠΈ (x,y), ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ΅ΠΉ Π΄Π²Π° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°: begin var s := Seq((βΠ£ΠΌΠ½ΠΎΠ²Π°β,16),(βΠΠ²Π°Π½ΠΎΠ²β,23), (βΠΠΎΠΏΠΎΠ²Π°β,17),(βΠΠΎΠ·Π»ΠΎΠ²β,24)); Println(βΠ‘ΠΎΠ²Π΅ΡΡΠ΅Π½Π½ΠΎΠ»Π΅ΡΠ½ΠΈΠ΅:β); s.Where(\\(name,age) -> age >= 18).Println; Println(βΠ‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ:β); s.OrderBy(\\(name,age) -> name).Println; end.
- Π Π°Π·ΡΠ΅ΡΠ΅Π½Π° ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ Β«a as array of TΒ», ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ°Π½Π΅Π΅ Π±ΡΠ»Π° Π·Π°ΠΏΡΠ΅ΡΠ΅Π½Π° Π½Π° ΡΡΠΎΠ²Π½Π΅ Π³ΡΠ°ΠΌΠΌΠ°ΡΠΈΠΊΠΈ. begin var ob: object := new integer[2,3]; var a := ob as array [,] of integer; end.
Source: opennet.ru