Написание программ на языке Pascal на Raspberry Pi с использованием FPC

Язык программирования Паскаль существует с 1970-х годов, и хотя он не так популярен, как C или его родственники C++ и C#, он, безусловно, имеет долговечность. Его до сих пор преподают во многих академических учреждениях, поскольку он поощряет структурированное программирование. Кроме того, он часто время от времени переживал ренессанс, например, когда Borland Delphi был на пике популярности.

Паскаль доступен для Raspberry Pi через Бесплатный компилятор Паскаля (FPC) . FPC — это компилятор Pascal, который не только поддерживает Raspbian на ARM, но также поддерживает широкий спектр 32-битных и 64-битных систем, включая системы Intel/AMD под управлением Linux, FreeBSD, OS X и Windows.

Чтобы установить его на свой Pi, введите следующую команду:

sudo apt-get -y install fpc

Чтобы протестировать компилятор, мы можем использовать программу типа «Hello World». Создайте файл hello.pp с помощью nano:

nano hello.pp

Вставьте следующие строки:

program hello;
 
begin
    writeln('Hello Make Tech Easier.');
end.

В Паскале, как и в большинстве языков программирования, важно включать все правильные символы, особенно точки с запятой в конце строк и точку после конца слова. Выйдите и сохраните nano с помощью сочетания клавиш «Ctrl + x».

Чтобы скомпилировать программу, вызовите компилятор «fpc» с именем файла Pascal в качестве первого параметра, т.е.:

fpc hello.pp

При этом программа скомпилируется и сгенерирует двоичный файл с именем «hello». Если вы видите предупреждение о компоновщике, «link.res содержит выходные разделы; ты забыл -T?», тогда не волнуйся. Это неопасное предупреждение, которое появляется из-за ошибки в компоновщике (ld). Подробнее о предупреждении можно узнать в FAQ ФПК .

Чтобы запустить программу, введите:

./hello

И вы должны увидеть сообщение «Привет, сделайте технологию проще».

Вот более сложная программа, которая вычисляет простые числа методом пробного деления. Это очень неэффективный способ вычисления простых чисел, однако его достаточно для демонстрации более сложной программы на Паскале.

Создайте файл «primes.pp» с помощью nano:

nano primes.pp

И вставьте следующие строки:

program primes;
 
{ Function to test if a number if prime }
function prime(n: integer): boolean;
var
  i: integer; max: real;
begin
  { 2 is a prime }
  if n = 2 then
    prime := true
  { All even numbers aren't primes }
  else if (n 
 
Exit and save nano. Compile the program:
 
<pre class="bash">fpc primes.pp

И запустите:

./primes

Выход будет выглядеть примерно так:

Free Pascal также включает текстовую среду разработки. Он напоминает другие текстовые IDE Pascal, такие как Turbo Pascal времен MS-DOS. Чтобы запустить его, просто введите fp; если вы хотите загружать программу в IDE при запуске, включите ее в качестве первого параметра. Например, чтобы запустить IDE и загрузить «hello.pp», введите:

fp hello.pp

Чтобы получить доступ к меню, нажмите ALT, а затем первую букву (отмеченную красным) названия меню. Итак, «Alt + F» открывает меню «Файл», «Alt + R» открывает меню «Выполнить» и так далее. Есть также несколько сочетаний клавиш «F». F3, чтобы открыть файл, F2, чтобы сохранить файл, F9, чтобы создать проект и «Ctrl + F9», чтобы запустить его.

Среда IDE хороша тем, что у вас есть редактор с подсветкой синтаксиса и быстрый способ компиляции исходного кода. Я обнаружил два недостатка:

1. IDE не включает поддержку отладчика. Несмотря на наличие меню отладчика, любая попытка его использования приводит к ошибке «Нет поддержки отладчика.»
2. Когда вы запускаете программу из IDE, выходные данные записываются поверх любого существующего вывода на вашем терминале. Это означает, что выходные данные очень трудно прочитать.

Использование Free Pascal на Raspberry — отличный способ изучить язык программирования Pascal. Это также хорошая ступенька к Lazarus, Delphi-подобной IDE и среде визуального программирования, разработанной той же командой проекта.

Если у вас есть вопросы по поводу приведенных выше примеров, воспользуйтесь разделом комментариев ниже, и мы посмотрим, сможем ли вам помочь. Free Pascal также имеет активное сообщество пользователей и набор форумов , где вы можете получить помощь от других пользователей Free Pascal.