free pascal

Используйте вызов readKey() из модуля Crt чтобы получать символы из потока ввода в консоли без ожидания нажатия Энтер от пользователя, например:

uses Crt; //  импортираем модуль Crt

var c: char;
begin

  c := readKey();
  writeln('simvol= ', c);

  writeln('Programma zavershena');

end.

Официальная документация: https://www.freepascal.org/docs-html/rtl...

Общая идея:

uses Crt; //  импортираем модуль Crt

var c: char;
begin

  writeln(
    'Нажмите клавишу-стрелку для проверки, ',
    ' для выхода из программы нажмите клавишу  q'
  );

  while c <> 'q' do
  begin

    c := readKey();
    if (c = #72) then
      writeln('up');
    if (c = #80) then
      writeln('down');
    if (c = #75) then
      writeln('left');
    if (c = #77) then
      writeln('right')
  end;
  writeln('Programma zavershena');

end.

-- здесь мы:

Задача этого урока - познакомить вас с техническими деталями, которые хотя и не входят в основную программу нашего курса базовой алгоритмической подготовки, тем не менее позволят проще управлять консольной программой, напр. не нажимая каждый раз Enter, при вводе каких-либо данных.

Почему эти детали не входят в программу - потому что научиться понимать структуру кода/основные идеи программирования можно и без них, но с ними программы будут куда более "реальными" и настоящими ;)

Перегрузка методов

Перегрука метода - возможность определить несколько методов с одинаковыми именами, но различными сигнатурами внутри одного и того же класса.

Рассмотрим примеры.

Наследование - это механизм, который дает возможность получать доступ к элементам (методам, полям) другого класса, если этот другой класс объявить "родительским" для данного.

Рассмотрим примеры, чтобы разобраться с тем, как это происходит на практике

Пример №1 - Наследование метода

Предположим у нас есть программа с классом:

Чтобы метод нельзя было вызвать из тела программы есть два варианта: