меню

[Djels]

Sazary, ладно, попробую что-нибудь придумать! Спасибо Огромнейшее!

[Djels]

Sazary, один небольшой вопросик, вот количество ходов можно как-то вывести через outtextxy() ? просто ему переменная типа интежер не подходит, а если ставить стринг - понятно - не работает

[Sazary]

вот количество ходов можно как-то вывести через outtextxy() ? просто ему переменная типа интежер не подходит, а если ставить стринг - понятно - не работает

Да. Вам поможет процедура преобразования Str.

Procedure Str(X [: width [: Decimals]]; var S: String)

X - преобразуемое число, S - строковая переменная, куда пишем результат

[Djels]

Sazary, ещё один вопрос, как сделать вывод на экран количества ходов во время игры? Я пробовал inc но что-то кривоватенько. Заранее спасибо!)

[Sazary]

Я пробовал inc

inc - инкремент. Он увеличивается аргумент. Как, интересно, вы пытались с помощью него вывести количество ходов? )

Если вы не сильно меняли то, что я сделал, то у вас количество ходов хранится в глобальной переменной (кажется, CountHod).
Просто выводите это значение где надо.

[Djels]

Sazary, Вроде вывод количества ходов сделал, кривовато , но работает, только теперь там цифры поверх друг друга ставятся - как исправить?

Второй вопрос, как сделать, чтобы ввод количества дисков был видел пользователю. не через Writeln, чтобы цифра была наверху не понятно где, А через outtextxy, чтобы посередине, чтобы можно было бы оформить.

Последнее, когда в игре проигрываешь, открывается YOU LOSE! , и там, раньше по нажатию Enter выходило в меню, а теперь выходит вообще. Не подскажете что можно исправить? просто там таймер приделан и из-за него немного криво эта процедура выходит.

HANOI.rar

[Sazary]

Про ходы:
объявите еще одну строковую переменную predhod и исправьте вывод хода вот так:

inc(CountHod);
    str(CountHod, hod);
    str(CountHod-1, predhod);
{    writeln('hodov ', Hod);   }
    setcolor(0);
    outtextxy(15,50,'hodov '+predhod);
    setcolor(15);
    outtextxy(15,50,'hodov '+Hod);

Второй вопрос, как сделать, чтобы ввод количества дисков был видел пользователю. не через Writeln, чтобы цифра была наверху не понятно где, А через outtextxy, чтобы посередине, чтобы можно было бы оформить.

Как-то не понял вопрос.

При проигрыше выходит, потому что вы везде используете одни и те же переменные. Либо в самой игре используйте локальную переменную для чтения кода клавиши, либо сразу после NewGame (в блоке case) меняйте значение KEY, т.к. оно у вас равно 27 (а это условие выхода).

[Djels]

Sazary, спасибо!) что-то не додумался сам сделать))
А второй вопрос объясняю так:
Ввод количества дисков нужно оформить и сделать крупнее крупнее. Оформление я сделаю. А вот с остальным... Сама цифра должна выводится в середине экрана, ну или где-нибудь НЕ в левом верхнем углу. Цифра должна быть крупнее.
Приблизительно это, я думаю, вывести отдельной процедурой ввода.

[Sazary]

Сообщение от Djels

Цифра должна быть крупнее.

Ну, через SetTextStyle можно задать размер шрифта.

Сообщение от Djels

Сама цифра должна выводится в середине экрана, ну или где-нибудь НЕ в левом верхнем углу.

Ну а тут OutTextXY и getmaxx с getmaxy в помощь.

[Djels]

Sazary, короче, вот что нужно: На экране крупно написано "введите количество дисков" снизу поле для ввода. Если я нажимаю на цифру, она соответственно должна появиться в поле. Если цифра неверная (за возможными пределами), то пишет ошибку. Цифру можно стереть.

То, что сейчас я имею реализовано криво. Т.к. переменная выводится через WriteLn(m), а это я не могу оформить как нужно и сдвинуть куда надо(нужен outtextxy).

+небольшой вопрос по ходам. В любом случае, если я нажму на стрелку вниз - количество прибавляется. То есть считывается не опускание диска , а нажатие. как это можно исправить?