1. Крестики Нолики Pascal Abc
2. Крестики Нолики В Паскале

Крестики Нолики Pascal Abc

Крестики Нолики В Паскале

Игра Крестики Нолики На Паскале. Программу игры в крестики-нолики пять в ряд. Как создат крестик и нолик ( икснол ) в paskale готовый алгоритм В последнее время преподаватели многих вузов начали давать своим студентам задание разработать программу, играющую в крестики-нолики. Несмотря на видимую простоту, это не совсем тривиальная задача. Поэтому я начал получать.

Delphi 7 примеры excel. Jan 7, 2012 - В статье рассматриваются примеры быстрого чтения и записи данных Excel. Также приводится. Дело в том, что с момента выхода поста под названием «Работа с Excel в Delphi. Так, например, лист, содержащий 1000 строк и 256 столбцов с данными заполнялся около 7 секунд. Jul 27, 2013 - В этой статье будет рассмотрен простой способ открытия и чтения данных из Excel файла (xls) в Delphi. Для работы с Excel файлами нам понадобится библиотека ComObj, входящая в стандартную поставку Delphi. Подключается она в разделе Uses. Обновленный пример.

Код: for b:=0 to 2 do begin dx1:='; dx2:='; for j:=1 to 3 do begin dx1:=dx1+db.3+j; dx2:=dx2+d((j-1).3)+1+b; end; dx3:=d1+d5+d9; dx4:=d3+d5+d7; for y:=1 to 4 do begin if (dxy='xxx') or (dxy='000') then begin writeln(dxy1,' uddu'); halt; end; end; end; просто как ранее и сказал так более просто другого норм варианта нету))а вот с функцией реально можно как раз так будет кратко очень)) а тут просто на дх добавить и так же сравнить))спасибо все ок извини если тебя так переутомил. Код: var j,i,x,y,b:byte; d:array1.9 of char; dx:array1.4 of string10; z:array1.2 of string; procedure win(t,p,f:char); begin z1:='xxx'; z2:='000'; for j:=1 to 2 do if (t+p+f=zj) then begin writeln(zj1,' âûèãðàë'); halt; end; end; begin for i:=1 to 9 do begin readln(x); if odd(i) then dx:='x' else dx:='0'; if i4 then for b:=0 to 2 do begin win(db.3+1,db.3+2,db.3+3); win(d1+b,d4+b,d7+b); if b.