Задать вопрос
24 февраля, 20:23

PascalAbc нарисовать шахматное поле, подскажите какие нужны команды

+2
Ответы (1)
  1. 24 февраля, 21:22
    0
    uses

    graphABC;

    var

    i, j: integer;

    begin

    setWindowWidth (500);

    setWindowHeight (500);

    rectangle (30,30,470,470);

    for i:=0 to 8 do

    begin

    line (50,50+i*50,50+8*50,50+i*50);

    line (50+i*50,50,50+i*50,50+8*50);

    end;

    for i:=1 to 8 do

    for j:=1 to 8 do

    if odd (i+j) then

    floodFill (i*50+1, j*50+1, clBlack);

    for i:=0 to 7 do

    begin

    TextOut (70+i*50,453, chr (97+i));

    TextOut (37,70+i*50, chr (56-i));

    end;

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «PascalAbc нарисовать шахматное поле, подскажите какие нужны команды ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы