FreePascal.ru

const N = 2; M = 5;
type arr = array[1..N,1..M] of integer;
var
one,two: arr;
i,j: byte;

procedure matrix(var a: arr);
begin
randomize;
for i:=1 to N do
for j:=1 to M do begin
a[i,j] := random(100);
end;
end;

procedure printer ...

Вот описание функции:
m
Чтобы получить 'True' или 'False', надо вызвать функцию со вторым параметром =True.
Также можно подсунуть ей свои строки для 'True' и 'False'...

Т.е. код может выглядеть так, если требуется вывести строки 'True' или 'False':

...
var a:boolean;
.&#46 ...

Делали с учащимися микропроект в Lazarus по учебнику (Delphi).
Помимо прочего, задание включает следующий алгоритм:
1. Считываем из двух текстовых полей нули или единицы.
2. Выполяем логическую операцию ( and или or ).
3. Результат отображаем в метке.

Для преобразования string в boolean и обратно ...

Если вопрос, для вас решен, то если не затруднит добавьте в заголовок темы (название темы) [Решено] Для этого нужно отредактировать самое первое сообщение нажав кнопочку правка... и изменить название темы (Старое название)+ ' [Решено] ';
В принципе "да": чистый рабочий код получен. Правда только в ...

Спасибо. Буду разбираться.

Требуется написать ООП-программКУ без графического интерфейса. Не нужны никакие кнопки и лишний код. Чисто демонстрация основных концепций ООП для учащихся 14-15 лет. Ничего лишнего и заумного. Назначение всех строчек кода должно быть ясно и понятно. Когда я выбираю "консольное приложение" в Lazarus ...

Не могу найти описании ООП для среды FreePascal. Везде или Delphi или Lazarus.
То, что слово Class надо заменить на Object выяснено.
Теперь не получается с Constructor и созданием объектов.

Приведите, пожалуйста, пример маленькой программы для FreePascal, где есть класс и создается объект.
Или ...

А зачем Вам издательство, когда есть Интернет.
Можно создать сайт по "мотивам" книги. Хорошее уникальное содержание привлечет посетителей.
С сайтов также можно получать доход, как и от издательств.