Нарисовать прямоугольник и заполнить его цветом после нажатия на 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.

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

Список действий в коде:

  1. Объявление переменных: gd, gm, c, k.
  2. Инициализация переменных: gd := d8bit; gm := m800x600; c := random(14); k := #0.
  3. Инициализация графического режима и создание окна: InitGraph(gd,gm,'').
  4. Очистка экрана и печать прямоугольника с заданным цветом: SetBkColor(c);SetColor(c); rectangle(120,120,260,180);
  5. Проверка нажатия клавиш и ожидание нажатия Enter: repeat if keypressed then k := readkey until k = #13;
  6. Заливка прямоугольника цветом: setfillstyle(1,c); bar(120,120,260,180);
  7. Проверка нажатия клавиш и ожидание нажатия Enter: repeat if keypressed then k := readkey until k = #13;
  8. Закрытие графического окна: closegraph;

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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