PascalABC.NET Официальный канал

NuGet в PascalABC.NET. Часть 1: SQLite без сервера В PascalABC.NET с компилятором .NET 10 теперь можно подключать библиотеки из NuGet прямо в тексте программы — без ручного скачивания DLL и настройки ссылок на библиотеки. Начнём с SQLite — полноценной базы данных, которой не нужен отдельный сервер. {$package Microsoft.Data.Sqlite 10.0.13} uses Microsoft.Data.Sqlite; begin var connection := new SqliteConnection('Data Source=:memory:'); connection.Open; var command := connection.CreateCommand; command.CommandText := 'select 40 + 2'; Println(command.ExecuteScalar); command.Dispo…

Функции над функциями с помощью лямбда-выражений Прошло меньше полутора месяцев с начала программирования на первом курсе направления ФИИТ — а мы уже можем писать такие вещи. Возьмём полином четвёртой степени с двумя максимумами и определим оператор численного дифференцирования: uses PlotWPF; function D(f: real -> real; h: real := 1e-5): real -> real := x -> (f(x + h) - f(x - h)) / (2 * h); function D2(f: real -> real): real -> real := D(D(f)); begin var f: real -> real := x -> -x*x*x*x/4 + 2*x*x; var c := new LineGraphWPF(-3,3,f); c.AddLineGraph(-3,3,D(f)); c.AddLineGraph(…

PascalABC.NETSearchValues + .NET 10: Продолжаем знакомиться с возможностями современного .NET. Метод IndexOfAny существовал и раньше. Новая идея здесь — SearchValues<T>. Он позволяет один раз подготовить и оптимизировать набор значений, а затем использовать его во множестве поисков. uses System.Buffers; begin var chars := SearchValues.Create( 'abcdefghijklmnopqrstuvwxyz0123456789'.ToCharArray ); var texts := [ '***PascalABC.NET', '---compiler', '...12345', '___algorithm' ]; foreach var text in texts do begin var p := text.AsSpan.IndexOfAny(chars);…

🔹 PascalABC.NET + .NET 10: FrozenSet Продолжаем знакомство с «замороженными» коллекциями .NET. После FrozenDictionary — его родственник FrozenSet<T>. uses System.Collections.Frozen; begin var s := HSet('Pascal','C#','Python'); var fs: FrozenSet<string> := s.ToFrozenSet(); Println(fs.Contains('Pascal')); end. FrozenSet похож на обычный HashSet, но после создания его содержимое уже нельзя изменять. Зачем такое ограничение? Чтобы .NET мог один раз проанализировать элементы множества и подобрать внутреннюю структуру, оптимизированную для последующих поисков. В зависимости от данных C…

PascalABC.NET + .NET 10: FrozenDictionary Продолжаем знакомиться с возможностями современного .NET. FrozenDictionary<TKey,TValue> — специальный словарь для сценария: создали один раз → читаем очень много раз. uses System.Collections.Frozen; begin var d := Dict( 'one' to 1, 'two' to 2, 'three' to 3 ); var fd := FrozenDictionary.ToFrozenDictionary(d); Println(fd['two']); end. После создания FrozenDictionary уже нельзя изменять: добавлять и удалять элементы не получится. Зато .NET может оптимизировать его внутреннюю структуру именно под быстрый поиск. В характерных сцен…

🔹 PascalABC․NET + .NET 10: очередь с приоритетами Продолжаем знакомиться с возможностями современного .NET, которые становятся доступны в PascalABC․NET после перехода на .NET 10. Сегодня — PriorityQueue<TElement,TPriority> из System.Collections.Generic. Обычная очередь работает по принципу «первым пришёл — первым вышел». В очереди с приоритетами порядок определяется не временем добавления, а приоритетом элемента. uses System.Collections.Generic; begin var q := new PriorityQueue<string,integer>; q.Enqueue('low',10); q.Enqueue('high',1); q.Enqueue('middle',5); while q.Count > 0…

.NET 10 в PascalABC.NET: Span<T> Переход PascalABC.NET на .NET 10 открывает доступ ко многим современным возможностям платформы. Начинаем показывать их на небольших примерах. Одна из них — Span<T>: тип для эффективной работы с непрерывным участком памяти без копирования данных. begin var a := [10,20,30,40,50]; var s := new System.Span<integer>(a,1,3); s[1] := 333; a.Println end. Результат: 10 20 333 40 50 Span<integer> s представляет три элемента массива a, начиная с индекса 1: 20 30 40 При изменении s[1] меняется непосредственно соответствующий элемент исходного массива. То…

Трехмерная движущаяся 3D-сцена По мотивам https://habr.com/ru/articles/815653/?ysclid=mufywzozbj234491077 Ну не 256 байт а 860 ## uses GraphABC; SetWindowSize(396,240); LockDrawing; var t := 9.0; repeat t += 1; for var i := 5999 downto 0 do begin var a := i mod 99/50-1; var s := 1-i/4000; var b := s; var x := t; var y := 1.0; var z := 1; var d := 1.0; while z<99 do begin z += 1; var h := 0; if (z>32) and (x.Trunc mod 99>27) then h := (x.Trunc div 9 xor z div 8)*8 mod 46; if y>=6-h then begin s := (…

RayTracer на PascalABC.NET Вот такая красивая картинка. При запуске по Shift-F9 с отключенным Debug сцена рендерится за 0.3 сек Исходный текст: https://gist.github.com/miks1965/592a9ee7a812cafa89dde0440b8ee9a3 Работает сразу, никаких библиотек ставить не надо

Расширение PascalABC.NET для VS Code на Mac — работает! 🍎 Доступна версия 0.5.1 расширения PascalABC.NET для Visual Studio Code. На macOS уже работают: ✅ запуск программ ✅ подсветка синтаксиса ✅ IntelliSense — автодополнение и информация о символах Скачать расширение можно здесь: https://pascalabc.net/vscode/