Найти ошибку в координатах на поле для морского боя - PascalABC.NET

Формулировка задачи:

Доброго времени суток! Помогите пожалуйста найти ошибку в координатах 2 ой лини.И сделать так что бы вышло клеточное поле 10 на 10 окошек.

                    Листинг программы
                
 
                        
                          
                    
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 
  Line (X1,Ch * B, X2,Ch * B); 
  Y1:=0; 
  X1:=0; 
  Y2:=WW; 
  X2:=X1; 
For B:=0 To S Do  
  Line (WW - Ch * 11 + Ch * B, Y1,Ch * B, Y2)
End.

Решение задачи: «Найти ошибку в координатах на поле для морского боя»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы