программинг
99 бутылок: Эль-76
65.
Язык процедурный, как и следовало ожидать, но с обработкой исключений, который тут называются «ситуациями». Довольно необычно.
% Песня о пиве 99.l76
программа
процедура пиво = проц(ф32 бутылок)
начало
если бутылок = 0 то
печатьмс(стр8 "no bottles")
инес бутылок = 1 то
печатьмс(стр8 "1 bottle")
иначе
печать(бутылок);
печатьмс(стр8 " bottles")
все
конец;
ф32 бутылок;
для бутылок от 99 вниздо 1 цикл
пиво(бутылок);
печатьмс(стр8 " of beer on the wall, ");
пиво(бутылок);
печатьмс(стр8 " of beer.");
печатькс();
печатьмс(стр8 "Take one down and pass it around, ");
пиво(бутылок - 1);
печатьмс(стр8 " of beer on the wall.");
печатькс();
печатькс()
повторить;
печатьмс(стр8 "No more bottles of beer on the wall, no more bottles of beer.");
печатькс();
печатьмс(стр8 "Go to the store and buy some more, 99 bottles of beer on the wall.")
конецТем не менее, программа запускается и выводит задуманное, хотя могла бы выглядеть менее уродливо, будь у меня компилятор, реализующий
Возвращение PV-S450
Давным-давно,
Во всех Casio PV, младше