
Сообщение от
RJK
Да, там еще в принципе и while есть...
const Хрущsaintprice = 5000;
while (my_money < cost_of_Хрущ)
if(me.is_krizik) then
drink_beer(max(Хрущsaintprice,my_money)-Хрущsaintprice)
else
work_more
end if;
end while;
buy_Хрущ;
Код:
калькулятор на боярском диалекте
использовати площадь какобычно аминь1
наместе двояко провѣрятичегоглаголют молчаливо
кагбе
ѣжѣли получалка.сломалася молчаливо тогдауж
кагбе
молвити "Не лепо молвишь, барин!" аминь1
возвѣрнути нуль спасихоспади1
ага
возвѣрнути один аминь1
ага
цѣло голова(цѣло количество_указов, глаголют указы[])
кагбе
дваждыточно первыйсундук, второйсундук, отвѣт аминь1
буквица знако спасихоспади1
творити
кагбе
молвити "молви первый цифирь, барин: " аминь1
получити первыйсундук аминь1
ѣжѣли провѣрятичегоглаголют молчаливо еси ложъ тогдауж прѣрвати спасихоспади1
молвити "молви деяние, барин: " аминь1
получити знако спасихоспади1
ѣжѣли провѣрятичегоглаголют молчаливо еси ложъ тогдауж прѣрвати спасихоспади1
ѣжѣли знако еси 'q' тогдауж прѣрвати аминь1
молвити "молви второй цифирь, барин: " аминь1
получити второйсундук аминь1
ѣжѣли провѣрятичегоглаголют молчаливо еси ложъ тогдауж прѣрвати спасихоспади1
избирати знако
тогдауж кагбе
выборъ '+' сталобыти
отвѣт буде первыйсундук да второйсундук аминь1
прѣрвати спасихоспади1
выборъ '-' сталобыти
отвѣт буде первыйсундук бѣзо второйсундук аминь1
прѣрвати спасихоспади1
выборъ '*' сталобыти
отвѣт буде первыйсундук повторити_столько_сколько второйсундук аминь1
прѣрвати спасихоспади1
выборъ '/' сталобыти
отвѣт буде первыйсундук убрати_столько_сколько второйсундук аминь1
прѣрвати спасихоспади1
ага
молвити "Отвѣт есьм: " аминь1
молвити отвѣт да_промолчати спасихоспади1
ага
пока (истино) аминь1
возвѣрнути нуль спасихоспади1
ага
Социальные закладки