Найти ошибку в координатах на поле для морского боя - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы