Изобразить шахматную доску - Pascal ABC (14334)
Формулировка задачи:
Помогите пожалуйста, написать программу шахматной доски (Pascal ABC)
Решение задачи: «Изобразить шахматную доску»
textual
Листинг программы
Program Domik_v_derevne; Uses crt, graphABC; Var x,y,j:integer; ys:string; i:char; Begin SetWindowWidth(500); SetWindowHeight(500); x:=50; y:=50; for i:='A' to 'H' do begin j:=j+1; ys:=IntToStr(j); TextOut(x+20,5,i); TextOut(5,y+20,ys); line(x,20,x,450); line(0,y,450,y); SetPixel(x,y,Clgreen); x:=x+50; y:=y+50; setpencolor(Clgreen); setPenStyle(psDot); end; line(x,20,x,450); line(0,y,450,y); End.
Объяснение кода листинга программы
- Программа начинается с объявления необходимых переменных:
x
,y
,j
- целочисленные,ys
- строковый,i
- символ. - Устанавливаются размеры окна с помощью функции
SetWindowWidth
иSetWindowHeight
. - Переменным
x
иy
присваиваются начальные значения:x
= 50,y
= 50. - Запускается цикл
for
, который проходит по буквам от 'A' до 'H'. - Внутри цикла переменной
j
присваивается значениеj+1
. - Переменной
ys
присваивается значениеIntToStr(j)
, то есть числовое значение переменнойj
преобразуется в строку. - С помощью функции
TextOut
на экран выводится значение переменнойi
(буква) и значение переменнойys
(число). - С помощью функции
line
задаются линии на экране: первая горизонтальная линия отx
доx+50
, вторая вертикальная линия от0
до450
, третья горизонтальная линия отx
доx+50
, четвертая вертикальная линия отy
доy+50
. - С помощью функции
setpencolor
устанавливается цвет кисти в зеленый. - С помощью функции
setPenStyle
устанавливается стиль кисти в точечный. - После завершения цикла
for
выполняются последние две строки программы, которые задают линии на экране. - Программа заканчивается.