Нарисовать прямоугольник и заполнить его цветом после нажатия на Enter - Free Pascal
Формулировка задачи:
Написать программу построения прямоугольника и заполнения его некоторым цветом после нажатия на клавишу Enter.
Спасибо!)
program aa; uses graph,crt; var c,a,b:integer; k:char; begin randomize; a:=Detect;InitGraph(a,b,''); c:=random(14); SetBkColor(c);SetColor(c); rectangle(120,120,260,180); k:=readkey; if k=#13 then begin setfillstyle(1,c); bar(120,120,260,180); end; end.
Решение задачи: «Нарисовать прямоугольник и заполнить его цветом после нажатия на Enter»
textual
Листинг программы
program aa; uses wingraph,wincrt; var gd, gm : smallint; c : integer; k:char; begin randomize; gd := d8bit; gm := m800x600; InitGraph(gd,gm,''); c:=random(14); SetBkColor(c);SetColor(c); rectangle(120,120,260,180); k := #0; repeat if keypressed then k:=readkey; until k = #13; setfillstyle(1,c); bar(120,120,260,180); k := #0; repeat if keypressed then k:=readkey; until k = #13; closegraph; end.
Объяснение кода листинга программы
Список действий в коде:
- Объявление переменных: gd, gm, c, k.
- Инициализация переменных: gd := d8bit; gm := m800x600; c := random(14); k := #0.
- Инициализация графического режима и создание окна: InitGraph(gd,gm,'').
- Очистка экрана и печать прямоугольника с заданным цветом: SetBkColor(c);SetColor(c); rectangle(120,120,260,180);
- Проверка нажатия клавиш и ожидание нажатия Enter: repeat if keypressed then k := readkey until k = #13;
- Заливка прямоугольника цветом: setfillstyle(1,c); bar(120,120,260,180);
- Проверка нажатия клавиш и ожидание нажатия Enter: repeat if keypressed then k := readkey until k = #13;
- Закрытие графического окна: closegraph;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д