составте програму чтоб на икран выводилась кортинка и состояла из 80

В этом разделе веб-сайта progmatem.ru для рисования разных геометрических фигур в Паскале нам нам пригодится среда PascalABC.Net либо PascalABC. Будут также привены рабочие программки в средах Turbo Pascal и Free Pascal. Вообще Паскаль хорош тем, что позволяет не только писать обыкновенные и/или трудные консольные прибавленья, но и работать с формами (как в Delphi), а также творить графические прибавления с помощью подключаемого модуля GraphABC (аналог модуля graph в Turbo Pascal, Free Pascal). Ведь для того и создавалась среда PascalABC.Net как учебное пособие при переходе на Delphi более абсолютную версию Object Pascal.
При работе с графическим окном нужно учесть две необыкновенности. Во-первых, начало координат точка (0, 0) находится не где-то посредине окна, а в левом верхнем углу. 2-ая особенность связана с первой: положительное направление оси OY указывает не ввысь, а вниз (OX ориентирована вправо). Как мы видим, система координат в графическом окне Pascal отлична от той, к которой мы привыкли в арифметике т.н. правой системе координат, в которой ось OX направлена вправо, ось OY ввысь, а начало координат, как управляло, всегда стоит где-то посредине окна. И к этой необыкновенности надо привыкать.
Система координат в графическом окне Паскаля
Но что делать, если требуется нарисовать геометрическую фигуру либо график функции в нормальной, обыкновенной для нас системе координат? Надобно выполнить преображение системы координат таким образом, чтобы точка (0, 0) находилась посредине окна (в любой подходящей точке), а ось OY была направлена ввысь. Стандартное преображение в прямоугольной правой системе координат смотрится последующим образом:
Стандартное преображение координат
Тут x0 и y0 координаты точки, в которую мы желаем перенести начало координат новой системы, x и y координаты точки в ветхой системе, x1 и y1 координаты точки в новейшей системе. Но поскольку ось OY в графическом окне Паскаля ориентирована вниз, то для её разворота вверх необходимо, естественно, знак координаты y поменять на обратный (вместо y поставить -y). Таким образом, конечно получим преображенье координат в графическом окне PascalABC.Net:
Преображение координат в графическом окне Pascal
В итоге заключительных преобразований вышеуказанная система координат будет иметь последующий вид:
Система координат после преобразования
Как мы лицезреем, тут начало координат перемещено в центр графического окна, а ось OY ориентирована ввысь. В итоге этого стали доступны не только положительные координаты, но также отрицательные.
Напишем ординарную программку, демонстрирующую все вышесказанное. Для этого, забегая наперед, укажем три полезные в графическом режиме PascalABC.Net процедуры:
TextOut(x,y,s) Вывод текста в графическое окно. При этом текст (строчка s) записывается в прямоугольную область таким образом, что точка с координатами (x, y) находится в левом верхнем углу первой буковкы;
Line(x1,y1,x2,y2) Проводит отрезок от точки (x1, y1) до точки (x2, y2);
Circle(x,y,r) Живописует окружность с центром (x, y) и радиусом r.
Программка рисует окружность условно графического окна (x0 = 0, y0 = 0), а через 3 секунды эта окружность возникает условно нарисованной в центре системы координат. Перепишите эту программку в среду PascalABC.Net и запустите. Вот, собственно, сам код:
Код Pascal, PascalABC.Net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses
GraphABC;

const
r = 90; //радиус окружности

var
x0, y0, x, y: integer;

begin
Начало координат:
x0 := WindowWidth div 2; //половина ширины окна
y0 := WindowHeight div 2; //половина вышины окна
x := 100; y := 100; //координаты центра окружности
Line(x0 - 250, y0, x0 + 250, y0); //ось OX
Line(x0, y0 - 200, x0, y0 + 200); //ось OY
Circle(x, y, r); //окружность с центром (x, y) и радиусом r
Circle(x, y, 2); //центр окружности (малюсенькая окружность)
TextOut(x + 5, y, '(100, 100)');//надпись возле центра окружности
sleep(3000); //делаем паузу на 3 секунды
ClearWindow; //очищаем графическое окно белоснежным цветом
Line(x0 - 250, y0, x0 + 250, y0); //ось OX
Line(x0, y0 - 200, x0, y0 + 200); //ось OY
Делаем преображенье координат:
x := x0 + x;
y := y0 - y;
Живописуем окружность, центр окружности и надпись:
Circle(x, y, r);
Circle(x, y, 2);
TextOut(x + 5, y, '(100, 100)');
end.

Здесь нужно сделать некоторые пояснения:
WindowWidth - ширина графического окна;
WindowHeight - вышина графического окна (в пикселях);
ClearWindow - эта процедура очищает окно белоснежным цветом;
sleep(ms) - задержка (пауза) на ms миллисекунд.
На следующей странице мы осмотрим самое простое понятие в графике Паскаля точки и пиксели, а также укажем полезные процедуры для работы с ними.