Извините за повтор.
Нужна прога крестики-нолики 19х19
Смотрел в теме Хрестики-нолики,
там нет нормальных прог (в одной не могу подключить Unit)
Помогите плз.
Вот 2 файла
В одном- модуль, в другом - программа.
1)Не подскажете как подключить модуль
Я делаю так:
сохраняю текст модуляс расширением .bas,
Компилирую.. бац - ошибка.
Что неправильно?
2)По программе:
по какому принципу она работает? (хотя бы в общих чертах)
Как проверяет выигрыш?
Прикрепленные файлы
prog.txt ( 13.29 килобайт )
Кол-во скачиваний: 318
my_input.txt ( 8.96 килобайт )
Кол-во скачиваний: 290
Ну тогда куда ходить? ( )
Дубль два.
1) Сохраняю .pas
2)Жму ctrl+F9 (alt+F9)
Вылетает
Error 116: Must be in 8087 mode to compile this
Что за режим 8087???!!!!!
Никто не знает ????!!
Надо подключить СОпроцессор, у тебя в установках Паскаля, как видно, он отключен...
Самой первой строкой программы добавляешь {$N+}, и наслаждаешься работающей программой...
Спасибо сейчас попробую.
Извините за тупой вопрос, эта прога написана в Object pascal или в простом?
Я просто некоторые строки вообще не понимаю, а объектнное программирование не знаю.
Могли бы вы пояснить хотя бы в общих чертах как проверяет компьютер куда ходить? И воообще некоторые процедуры.
Народ! Люди! АУ! Ну что вам стоит сказать хоть что-то?!
Помогите пожалуйста
Угарная прога я даже в нее пару раз сыграл .
А тока можна сделать чтоб играть на двоих без компа?
Я с братом хочу сыграть а как переделать не знаю.
Только нафиг тут модуль нужен.
ЕЩЕ 2 вопроса:
1)что делают function seach1 и 2 (из основной проги)
2)
procedure inputmass(var ma : array of real;mn :integer);
procedure inputmass2(var ma : tdarray;mn,mk :integer);
function findmin(ma : array of real;var mi:integer;mk:integer;mn:integer):real;
function findmax(ma : array of real;var mi:integer;mk:integer;mn:integer):real;
procedure showmass(ma : array of real;mn:integer);
procedure showmass2 (ma:tdarray;mn,mk:integer);
procedure showmass3 (ma:tshortdarray;mn,mk:integer);
procedure sortmass1(var ma : array of real;mn : integer);
procedure sortmass2(var ma : array of real;mn : integer);
procedure sortmass3(var ma:array of real;mn:integer;mk:integer);
procedure concmass(ma,mb:array of real;na,nb :integer;var mc:array of real);
function findinmass(ma : array of real;mn,mk:integer;mf:real):integer;
В этой проге оценочная ф-ия
пpимеpно такая(???): пpосматpиваем все непyстые отpезки
длины 5 и сyммиpyем оценки для них. В пpостейшем ваpианте пpосто пpиписываем
некотоpый вес каждой возможной комбинации кpестиков, ноликов и пyстых клеток в
отpезке (их всего 243, включая совсем пyстой).
Помогите пожалуйста.Просто у нас на экзамен нужно притащить прогу и в общих чертах (по процедурам)
объяснить что происходит. Мне достались эти ХО.(Хотя и выбор:хо или морской бой)
Я сам алгоритм на естественном языке понимаю. А в Паскале пока никак не могу расшифровать алгоритм.
Алгоритмов для этой игры можно целую кучу придумать.Какая здесь???