Изобразить шахматную доску - 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.

Объяснение кода листинга программы

  1. Программа начинается с объявления необходимых переменных: x, y, j - целочисленные, ys - строковый, i - символ.
  2. Устанавливаются размеры окна с помощью функции SetWindowWidth и SetWindowHeight.
  3. Переменным x и y присваиваются начальные значения: x = 50, y = 50.
  4. Запускается цикл for, который проходит по буквам от 'A' до 'H'.
  5. Внутри цикла переменной j присваивается значение j+1.
  6. Переменной ys присваивается значение IntToStr(j), то есть числовое значение переменной j преобразуется в строку.
  7. С помощью функции TextOut на экран выводится значение переменной i (буква) и значение переменной ys (число).
  8. С помощью функции line задаются линии на экране: первая горизонтальная линия от x до x+50, вторая вертикальная линия от 0 до 450, третья горизонтальная линия от x до x+50, четвертая вертикальная линия от y до y+50.
  9. С помощью функции setpencolor устанавливается цвет кисти в зеленый.
  10. С помощью функции setPenStyle устанавливается стиль кисти в точечный.
  11. После завершения цикла for выполняются последние две строки программы, которые задают линии на экране.
  12. Программа заканчивается.

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

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