Найти ошибку в координатах на поле для морского боя - PascalABC.NET
Формулировка задачи:
Доброго времени суток!
Помогите пожалуйста найти ошибку в координатах 2 ой лини.И сделать так что бы вышло клеточное поле 10 на 10 окошек.
Решение задачи: «Найти ошибку в координатах на поле для морского боя»
textual
Листинг программы
program Game; uses GraphABC; const Ch = 30; var WW, WH, X1, Y1, X2, Y2, S, B, D: Integer; begin CenterWindow; SetWindowCaption('Морской бой.'); D := Random(10) + 1; WH := WindowHeight; WW := WindowWidth; S := 11; Y1 := 0; X1 := WW - Ch * 11; Y2 := Y1; X2 := WW; for B := 0 To S Do begin Line(X1, Ch * B, X2, Ch * B); Line(WW - Ch * 11 + Ch * B, Y1, WW - Ch * 11 + Ch * B, Y1 + 11 * Ch) end; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д