ืืืจืกื ืฉื ืืขืจืืช ืืชืื ืืช PascalABC.NET 3.8 ืืืื ื, ืืืฆืืขื ืืืืืจื ืฉื ืฉืคืช ืืชืื ืืช Pascal ืขื ืชืืืื ืืืคืงืช ืงืื ืขืืืจ ืคืืืคืืจืืช NET, ืืืืืช ืืืฉืชืืฉ ืืกืคืจืืืช NET ืืชืืื ืืช ื ืืกืคืืช ืืืื ืืืืงืืช ืื ืจืืืช, ืืืฉืงืื , ืขืืืก ืืชืจ ืฉื ืืคืขืืืื, ืืืืืื ฮป, ืืจืืืื, ืืืกืืฃ ืืฉืคื, ืฉืืืืช ืืจืืื, ืืืืงืืช ืืกืจืืช ืฉื ืืืืืงืืช ืืืืืืืืืช. ืืคืจืืืงื ืืชืืงื ืืขืืงืจ ืืืืฉืืืื ืืืื ืื ืืืืืงืจ ืืืขื. ืืืืืื ืืืืืช ืื ืกืืืืช ืคืืชืื ืขื ืจืืืื ืืงืื, ืขืืฆืื ืืืืืืื, ืืืืื, ืืขืฆื ืืคืกืื ืืืืืืืืช ืงืื ืืืชืืืืื. ืงืื ืืคืจืืืงื ืืืคืฅ ืชืืช ืจืืฉืืื LGPLv3. ื ืืชื ืืื ืืช ืขื ืืื ืืงืก (ืืืืกืก ืืื ื) ื-Windows.
ืฉืื ืืืื ืืืืืืจื ืืืืฉื:
- ะะพะฑะฐะฒะปะตะฝะฐ ะฟะพะดะดะตัะถะบะฐ ััะตะทะพะฒ ะผะฝะพะณะพะผะตัะฝัั ะผะฐััะธะฒะพะฒ 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.
ืืงืืจ: OpenNet.ru