Хочу представить вашему вниманию, мою «игрушку»!
Ну шучу конечно! Просто вдруг, кому то делать будет нечего!
Отвлечётся!
Вообщем суть проста!
Генерируется лабиринт, и вы должны его пройти!
Правила:
Вы управляете вот этим «юнитом» : &
Вам нужно сначало найти «ключ» : @
После чего дойти до «двери»: 0
Вот как-то так
Управление:
Вверх — w
Вних — s
Влево — a
Вправо -d
Esc — выход
Пробел — Генерация нового лабиринта!

Вообщем как генерируются лабиринты я не знаю!
Поэтому алгоритм придумал сам!

(читать всё…)

Игра Судоку, исходник на PascalABC.net

(читать всё…)

Игра Тетрис на PascalABC.NET

Скачать игру, посмотреть скриншоты и исходный код, а также поучаствовать в обсуждении можно в теме на форуме

Игра Lines (Линии/Квадраты) на PascalABC.NET (модуль GraphWPF).

Скриншоты, программу, исходный код и обсуждение игры смотрите в теме на форуме.

Сапер на PascalABC.net miner.zip(во ложении .pas и .exe файл)

Исходный код, вложение и обсуждение смотрите на форуме.

тема на форуме

Написал мелодию по нотам. Если воспроизводить по шагам, то играет все ноты, если запустить на выполнение программу целиком, то половина нот не воспроизводится, в чем проблема?

program zvyk;

begin
  System.Console.Beep(520,125); {до}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(784,125); {соль}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(698,125); {фа}
  System.Console.Beep(520,125); {до}
  System.Console.Beep(520,125); {до}
  System.Console.Beep(520,125); {до}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(987,125); {си}
  System.Console.Beep(784,125); {соль}
  System.Console.Beep(520,375); {до с точкой}
  system.Console.Beep(520,125); {до}
  system.Console.Beep(587,125); {рэ}
  system.Console.Beep(587,125); {рэ}
  System.Console.Beep(987,125); {си}
  System.Console.Beep(987,125); {си}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(784,125); {соль}
  System.Console.Beep(698,125); {фа}
  System.Console.Beep(698,125); {фа}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(784,125); {соль}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(698,375); {фа с точкой}
  
end.

(читать всё…)

В классе 20 учеников писали диктант по русскому языку. Напишите программу ,напишите программу подсчитывающую кол-во двоек, троек, четверок и пятёрок, полученных за диктант.

(читать всё…)

Помогите, пожалуйста, решить задачи на массивы в паскале:
1.Заполнить массив случайными числами
2.Заполнить массив квадратами чисел от 1 до 10
3.Посчитать сумму значений элементов массива(предварительно задать массив)
4.Вычислить значение разности последнего и первого элемента в массиве
5.вычислить из заданного массива каждый второй элемент в другой массив
(читать всё…)

Реализовать процедуру поиска max элемента одномерного массива ,а затем прибавить max значение ко всем его элементам . Можно пожалуйста полностью программу . Просто недавно начал работать с Delphi.

(читать всё…)

Дан одномерный массив чисел. Определите сумму его элементов (PascalABC.net).

(читать всё…)