Программирование на языке Паскаль в среде Турбо Паскаль
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
ger);
Setcolor (c);(x1,y1,x1+d,y1+d);(1,c);(x1,y1,x1+d,y1+d);
end;gd,gm,x1,y1,x2,y2,d1, i,j: integer;: char;(gd,gm,);: =round ( (getmaxY-60) /8);: =100; y1: =50;(getmaxX div 2-40, 20,Vyhod-Esc);i: =0 to 7 doj: =0 to 7 doodd (i+j) then Kletka (x1+d1*i,y1+d1*j,14,d1)Kletka (x1+d1*i,y1+d1*j,6,d1);(1000);;;(1000);(1,0);(x1,y1,x1+d1*8,y1+d1*8);keypressed then c: =readkey;c=#27 then exit;c=#27;.
Результат решения задачи представлен на рисунке 17.
Рисунок 17 - Результат работы программы в TurboPascal