Используя равноплечные рычажные весы, нужно взвесить любой груз с точностью до 1гр., при этом используя набор с минимально возможным количеством гирь. Гири можно класть на любую чашу весов.
Например, для взвешивания груза до 4гр. понадобится набор всего из 2 гирь номиналом 1гр. и 3гр.:
(груз 1гр) = (1гр), уравновесили две чаши весов
(груз 2гр) + (1гр) = (3гр), т.е. двумя гирями номиналом 1гр. и 3гр. взвесили груз весом в 2гр.
(груз 3гр) = (3гр)
(груз 4гр) = (3гр) + (1гр)
Можно записать всё проще: слева вес груза, справа используемые гири, при этом плюс перед числом означает, что гирю с данным номиналом кладем на правую чашу весов, минус — на левую чашу)
1 = + 1
2 = + 3 — 1
3 = + 3
4 = + 3 + 1
Утверждается, что для взвешивания груза весом до 40гр. достаточно иметь набор из 4 гирь,
номиналом 1гр., 3гр., 9гр. и 27гр.
40 = + 27 + 9 + 3 + 1
35 = + 27 + 9 — 1
26 = + 27 — 1
14 = + 27 — 9 — 3 — 1
Следуя той же логике минимального набора имеющихся гирь (как вы уже поняли, это набор гирь, где каждая следующая гиря в три раза тяжелее предыдущей), показать взвешивание груза весом 9200гр.

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

Хочу представить вашему вниманию, мою «игрушку»!
Ну шучу конечно! Просто вдруг, кому то делать будет нечего!
Отвлечётся!
Вообщем суть проста!
Генерируется лабиринт, и вы должны его пройти!
Правила:
Вы управляете вот этим «юнитом» : &
Вам нужно сначало найти «ключ» : @
После чего дойти до «двери»: 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.

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