Примеры программ
В данном разделе содержатся примеры программ на PascalABC.NET от элементарных до сложных. Часть из них посвящена алгоритмам, реализованным на языке Паскаль, другая часть — особенностям языка и библиотек PascalABC.NET.
Примеры разбиты на следующие группы:
В данном разделе приводятся примеры, иллюстрирующие особенности языка PascalABC.NET.
Новости
20.05.23. На странице https://pascalabc.net/stepikcourse опубликованы новые курсы по PascalABC.NET от центра олимпиадного программирования DL Club.
08.05.23. Вышла версия PascalABC.NET 3.9.0.beta. Основное — ковариантные параметры обобщений, аргументы по умолчанию при вызове подпрограммы, модуль автоматической проверки LightPT.
22.02.23. Открыта регистрация на конференцию «Использование системы программирования PascalABC. NET в обучении программированию»
13.07.22. Вышла бета-версия интегрированной среды PascalABC.NET для Linux. Алгоритм установки описан здесь.
Случайная программа
// Ханойские башни
#6. Процедуры и Функции на PascalABC.net
// Уровень сложности: 1
procedure Hanoi(n,f,t,w: integer);
begin
if n=0 then exit;
Hanoi(n-1,f,w,t);
// Переложить диск со стержня f
// на стержень t
writeln(f,’->’,t);
Hanoi(n-1,w,t,f);
end;
const n=8; // Количество дисков
begin
Hanoi(8,1,2,3);
end.
Источник: pascalabc.net
Примеры программ
В результате ее запуска мы увидим следующее графическое окно, появившееся поверх окна браузера.
Рис.1. Вывод простейшей программы
По ссылке http://pascalabc.net/WDE/?file=Moscow10/Simple.pas можно открыть данную программу в окне браузера и выполнить ее.
Поскольку внутренность данного окна содержит тег canvas, графические команды на клиенте переводятся в соответствующие команды JavaScript, которые и осуществляют рисование на битовом образе, соответствующем тегу canvas.
Заметим, что программа продолжает работать на сервере до закрытия графического окна, после чего на сервер передается соответствующий сигнал, и программа завершается. Если по каким-то причинам связь с сервером была прервана, то программа будет автоматически завершена на сервере через несколько минут.
Ниже приведена простейшая программа, реализующая анимацию:
forvar i:=50 to 150 do
Здесь команда Sleep(200) задает паузу в 200 миллисекунд. Особенность реализации команды Sleepсостоит в том, что она выполняется не только на сервере, но и на клиентском компьютере, что достигается генерацией специальной последовательности команд на JavaScript.
Данная программа находится в сети по следующему адресу: http://pascalabc.net/WDE/?file=Moscow10/Anim.pas .
Приведем программу, обрабатывающую событие щелчка мышью в графическом окне:
#1 PascalABC.NET — SCHOOL — Первая программа
var FirstClick := True;
procedure MyMouseDown(x, y, mb: integer);
if FirstClick then
Window.Title:= ‘Рисование ломаной’;
Здесь событие OnMouseDown реализовано в виде процедурной переменной, которой в основной программе присваивается обработчик MyMouseDown. В результате работы программы и ряда щелчков мышью в графическом окне получим следующий результат:
Рис 2. Рисование мышью
Данная программа находится в сети по следующему адресу: http://pascalabc.net/WDE/?file=Moscow10/MouseEvents.pas .
Cледует отметить, что при каждом щелчке мышью внутри графического окна соответствующее событие отправляется на сервер, где срабатывает обработчик MyMouseDown, который передает назад на клиент несколько команд рисования. За счет передачи данных по сети задержка между нажатием мыши и обработкой этого нажатия может составлять от долей секунды до 1-2 секунд.
Построить столбчатую диаграмму (гистограмму), отображающую динамику среднесуточных температур воздуха в течение недели.
Для ввода значений температуры, можно воспользоваться датчиком случайных чисел Random.
var x, y, color, i, t, xm, ym: integer;
TextOut(250,0,’ТЕМПЕРАТУРА ВОЗДУХА ЗА НЕДЕЛЮ’);
Источник: vuzlit.com