Задача 6 Урок 9.

var A, B, C: integer;
begin
writeln('Введите целые числа A, B, C: ');
readln(A, B, C);
if(B>17) and (A>17) and (C>7) then
writeln ('Да.')
else
writeln ('Нет.');

readln();
end.

Урок 29. Задача 1.

Урок 29. Задача 1.

У вас есть код, который создает сцену, которой можно управлять нажимая клавиши '1' '2'.

ООП в Паскале

В базовом виде закончили добавлять основы ООП в курс по Паскалю.

Предстваляется, что: классы, наследование, перегрузка и переопределение методов, а также интерфейсы - это и есть то основное, на чем стоит ООП в разных языках.

Далее остается только увеличить количество примеров и задач в этих уроках и готово - еще один раздел завершен ;)

inkscape "Обрезать" изображение, "crop", как задать размеры фона/холста

Под кропом-обрезкой в Сети подразумевают самые разные вещи, если вам нужно именно подогнать размер "холста" ("фона"), делаем так:

chrome - Initiator "Other" - "Другой" инициатор запроса, что это

Инициаторы в т.ч. могут быть:

  • document - запрос послал код скрипта
  • Other - кто-то еще, напр. открытие пользвателем ссылки порождает именно такой запрос

В т.ч. на базе идеи https://stackoverflow.com/a/35422293

free pascal readKey() - Считать символ без нажатия клавиши "Ввод" (бер Enter/Энтер)

Используйте вызов 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...

pascal Определяем нажатие клавиш-стрелок в консоли (терминале): вверх, вниз, вправо, влево

Общая идея:

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.

-- здесь мы:

Pages

Subscribe to fkn+antitotal RSS