Крестики-нолики: плохо прорисовываются "нолики"

@Игорь2001 · Регистрация: 19.05.2015

Студворк — интернет-сервис помощи студентам

Я, наверное, всех уже достал своей игрой, но я опять напоролся на подводный камень. Игра - крестики-нолики. Баг - нолики рисуются как-то странно. Убедитесь сами:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
program game1;
 
uses
  graphabc, help;
 
 
procedure paintfield;
var
  x1, y1, x2, y2, x3, y3, x4, y4: integer;
begin
  x1 := 50;
  y1 := 150;
  x2 := 50;
  y2 := 250;
  x3 := 150;
  y3 := 50;
  x4 := 250;
  y4 := 50;
  while x1 < 350 do
  begin
    x1 := x1 + 1;
    line(50, y1, x1, y1);
    x2 := x2 + 1;
    line(50, y2, x2, y2);
    y3 := y3 + 1;
    line(x3, 50, x3, y3);
    y4 := y4 + 1;
    line(x4, 50, x4, y4);
    sleep(5);
  end;
  writeln('1                                                  2                                                  3');
  lines(11);
  writeln('4');
  lines(11);
  writeln('7                                                  8                                                  9');
end;
 
 
procedure cross(num: integer);
var
  x1, y1, x2, x, y,xc,yc: integer;
begin
  case num of
    1:
      begin
        xc:=100;
        yc:=100;
      end;
    2:
      begin
        xc:=200;
        yc:=100;
      end;
    3:
      begin
        xc:=300;
        yc:=100;
      end;
    4:
      begin
        xc:=100;
        yc:=200;
      end;
    5:
      begin
        xc:=200;
        yc:=200;
      end;
    6:
      begin
        xc:=300;
        yc:=200;
      end;
    7:
      begin
        xc:=100;
        yc:=300;
      end;
    8:
      begin
        xc:=200;
        yc:=300;
      end;
    9:
      begin
        xc:=100;
        yc:=300;
      end;
  end;
  x1 := xc - 25;
  y1 := yc - 25;
  x2 := xc + 25;
  x := 0;
  y := 0;
  while x1 + x < x2 do
  begin
    x := x + 1;
    y := y + 1;
    line(x1, y1, x1 + x, y1 + y);
    line(x2, y1, x2 - x, y1 + y);
    sleep(5);
  end;
end;
 
 
procedure zero(num: integer);
var
  r, x, y, xc, yc: integer;
  u: real;
begin
case num of
    1:
      begin
        xc:=100;
        yc:=100;
      end;
    2:
      begin
        xc:=200;
        yc:=100;
      end;
    3:
      begin
        xc:=300;
        yc:=100;
      end;
    4:
      begin
        xc:=100;
        yc:=200;
      end;
    5:
      begin
        xc:=200;
        yc:=200;
      end;
    6:
      begin
        xc:=300;
        yc:=200;
      end;
    7:
      begin
        xc:=100;
        yc:=300;
      end;
    8:
      begin
        xc:=200;
        yc:=300;
      end;
    9:
      begin
        xc:=100;
        yc:=300;
      end;
  end;
  r := 25;
  u := -pi / 2;
  moveto(xc, yc - r);
  while u < 2 * pi + pi / 2 do
  begin
    x := xc + round(r * cos(u));
    y := xc + round(r * sin(u));
    lineto(x, y);
    sleep(5);
    u := u + 0.02;
  end;
end;
 
 
var
  a, b, c, num: byte;
 
 
begin
  setwindowsize(400, 400);
  centerwindow;
  setpenwidth(5);
  {loadwindow('Безымянный.png');
  readln;}
  while true do 
  begin
    clearwindow;
    writeln('Выберите режим игры');
    writeln('1 - с компьютером');
    writeln('2 - с другом');
    readln(a);
    lines(22);
    clearwindow;
    
    if a=2 then begin;
    paintfield;
    readln(num);
    cross(num);
    readln(num);
    zero(num);
    readln(num);
    cross(num);
    readln(num);
    zero(num);
    readln(num);
    cross(num);
    readln(num);
    zero(num);
    readln(num);
    cross(num);
    readln(num);
    zero(num);
    readln(num);
    cross(num);
    
    end;
    
    if a = 1 then begin
      writeln('Выберите сложность');
      writeln('1 - simple');
      writeln('2 - pro');
      lines(22);
      readln(b);
      clearwindow;
      writeln('Крестики или нолики, вот в чем вопрос?');
      writeln('1 - крестики');
      writeln('2 - нолики');
      lines(22);
      readln(c);
      clearwindow;
      
      
      paintfield;
      
      
      
    end;
    
  end;
end.

Добавлено через 2 минуты
Там много ненужного пока, смотрите только процедуру zero и блок if a=2

@volvo · 04.07.2015, 15:51

Модуль help нам надо из воздуха получить, чтобы хотя бы откомпилировать твой код?

@Игорь2001 · 04.07.2015, 15:58 **[ТС]**

Ой, простите, забыл. Добавьте к процедурам вот эту

Pascal
1
2
3
4
5
6
7
procedure lines(i:integer);
var r: integer;
begin
for r:=1 to i do begin
writeln;
end;
end;

Это я себе для удобства собираю модуль со всякими командами.

@volvo · 04.07.2015, 16:10

Ну, и где у тебя вообще что-то рисуется? Сначала программа задалбывает вопросами, с кем играешь, на каком уровне, чем - крестиками или ноликами, и тут, чудо - наконец-то рисуется картинка. Вот, думаю, сейчас попробую сразиться. Ан нет, как только картинка отрисовалась - БУМ: "С кем играешь - с компом или с другом?", и все по новой. Может оно после 10-го раунда ввода одной и той же информации, наконец, соизволит хотя бы один крестик поставить? Или что надо сделать, чтобы оно хоть как-то заработало?

@Puporev · 04.07.2015, 16:17

Списать или скопировать и то слабо...

Pascal
1
2
x := xc + round(r * cos(u));
y := yc + round(r * sin(u));//не xc

Добавлено через 3 минуты
И нефиг плодить темы, писал бы в той где тебе рисование написали.

@Игорь2001 · 04.07.2015, 23:07 **[ТС]**

Извините, но я контрол с контрол в делал. А на счет тем ок, спасибо за подсказки.

Добавлено через 51 секунду
Смотрите игра с другом, остальное буду делать, код еще не готов

Добавлено через 52 секунды
А крестик ставить по номеру клетки - 1-9

@SergMolo · 07.07.2015, 22:35

Потому что нужно рисовать круг как круг, а не набор линий по всяким сложным формулам. Всё уже сделано до тебя в модуле GraphABC. Хотя бы справку читай, что в нём есть.

Pascal
1
Circle(x,y,r);

r - радиус круга.
И ещё, посоветую такой крутой метод, TextOut(x,y,'text') называется. Выводит в x,y твой 'text'.
И ненужно никаких

Pascal
1
2
writeln('1                                             2                                             3');
lines(11);

@Puporev · 08.07.2015, 06:36

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

Потому что нужно рисовать круг как круг, а не набор линий по всяким сложным формулам.

Ему нужно было чтобы окружность рисовалась постепенно, а не вся сразу. И параметрическое уравнение окружности это не такая уж и сложная функция.

@Игорь2001 · 08.07.2015, 14:51 **[ТС]**

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

И ещё, посоветую такой крутой метод, TextOut(x,y,'text') называется. Выводит в x,y твой 'text'.
И ненужно никаких

Спасибо, а за круг

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

окружность рисовалась постепенно

, так что не надо.

@SergMolo · 08.07.2015, 16:18

Можно рисовать постепенно, а потом заменять на нормальный круг.

@Puporev · 08.07.2015, 16:26

А потом поменять круг на квадрат...

@SergMolo · 08.07.2015, 16:57

А можно рисовать алгоритмом Брезенхэма. Он, вроде, более круглым круг рисует. Только толщину линии нужно как-то сделать.

@Puporev · 08.07.2015, 17:03

Алгоритм Брезенхэма конечно проще уравнения окружности...

Добавлено через 1 минуту
Не понятно зачем это постепенное рисование линий и кругов, но то прихоть автора...

@Игорь2001 · 08.07.2015, 22:28 **[ТС]**

Моя то есть. Даже могу сказать зачем (это редкость). Чтобы игра выглядела более качественной и интересной.

Добавлено через 11 минут
Живой

@SergMolo · 08.07.2015, 23:23

А может пойти через ABCSprites? Нарисовать анимацию рисования кружка и рисовать её. Потом останавливать на последнем кадре, где круг нарисован. Но тут, правда, с масштабируемостью возникнут проблемы.

Добавлено через 19 минут
Кстати, если вместо 0.02 брать что-то более меньшее, то круг рисуется лучше.

Pascal
1
2
3
4
5
6
7
while u < 2 * pi + pi / 2 do
  begin
    x := xc + round(r * cos(u));
    y := xc + round(r * sin(u));
    lineto(x, y);
    u := u + 0.00001;
  end;

Новые блоги и статьи Все статьи Все блоги /
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI

@volvo Супер-модератор 33412 / 21522 / 8236 Регистрация: 22.10.2011 Сообщений: 36,922 Записей в блоге: 12
	04.07.2015, 15:51
	Модуль help нам надо из воздуха получить, чтобы хотя бы откомпилировать твой код? 1

@volvo Супер-модератор 33412 / 21522 / 8236 Регистрация: 22.10.2011 Сообщений: 36,922 Записей в блоге: 12
	04.07.2015, 16:10
	Ну, и где у тебя вообще что-то рисуется? Сначала программа задалбывает вопросами, с кем играешь, на каком уровне, чем - крестиками или ноликами, и тут, чудо - наконец-то рисуется картинка. Вот, думаю, сейчас попробую сразиться. Ан нет, как только картинка отрисовалась - БУМ: "С кем играешь - с компом или с другом?", и все по новой. Может оно после 10-го раунда ввода одной и той же информации, наконец, соизволит хотя бы один крестик поставить? Или что надо сделать, чтобы оно хоть как-то заработало? 0

@Игорь2001 20 / 20 / 10 Регистрация: 19.05.2015 Сообщений: 704
	04.07.2015, 23:07 [ТС]
	Извините, но я контрол с контрол в делал. А на счет тем ок, спасибо за подсказки. Добавлено через 51 секунду Смотрите игра с другом, остальное буду делать, код еще не готов Добавлено через 52 секунды А крестик ставить по номеру клетки - 1-9 0

@SergMolo 12 / 12 / 10 Регистрация: 24.06.2015 Сообщений: 83
	08.07.2015, 16:18
	Можно рисовать постепенно, а потом заменять на нормальный круг. 0

@Puporev Почетный модератор 64316 / 47612 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.07.2015, 16:26
	А потом поменять круг на квадрат... 0

@SergMolo 12 / 12 / 10 Регистрация: 24.06.2015 Сообщений: 83
	08.07.2015, 16:57
	А можно рисовать алгоритмом Брезенхэма. Он, вроде, более круглым круг рисует. Только толщину линии нужно как-то сделать. 0

@Puporev Почетный модератор 64316 / 47612 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.07.2015, 17:03
	Алгоритм Брезенхэма конечно проще уравнения окружности... Добавлено через 1 минуту Не понятно зачем это постепенное рисование линий и кругов, но то прихоть автора... 0

@Игорь2001 20 / 20 / 10 Регистрация: 19.05.2015 Сообщений: 704
	08.07.2015, 22:28 [ТС]
	Моя то есть. Даже могу сказать зачем (это редкость). Чтобы игра выглядела более качественной и интересной. Добавлено через 11 минут Живой 0