Нарисовать с помощью отдельных точек синусоиду зеленого цвета в центре экрана на всю ширину экрана - PascalABC.NET

Формулировка задачи:

Нарисовать с помощью отдельных точек синусоиду зеленого цвета в центре экрана на всю ширину экрана. Использовать оператор условия.

Решение задачи: «Нарисовать с помощью отдельных точек синусоиду зеленого цвета в центре экрана на всю ширину экрана»

Листинг программы

Uses GraphABC;
 
Var x: real;
Begin
  MaximizeWindow ();
  repeat
    x:=x+1.0;
    putPixel (Round(x), (ScreenHeight div 2) + Round (10*Sin(100*x)), clGreen);
  until Round(x) = ScreenWidth ()-1;
 End.

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

Объявлена переменная x типа real — Вызвана функция MaximizeWindow, которая увеличивает размер окна до максимального значения — Запущен бесконечный цикл repeat-until — Внутри цикла значение переменной x увеличивается на 1.0 — С помощью функции Round значение x приводится к целому числу — С помощью функции putPixel выводится пиксель на экран. Зеленый цвет пикселя устанавливается с помощью параметра clGreen — Координаты x и y пикселя вычисляются следующим образом: y = (ScreenHeight div 2) + Round (10Sin(100x)) — Цикл выполняется до тех пор, пока значение x не станет равным ScreenWidth()-1 — Код заканчивается командой End.