Практична робота «Використання реквізитів у створенні документа»
Послідовність виконання роботи
1.
Вибір документа для створення
2.
Визначення необхідних реквізитів для обраного документа
3. Створення документа
Контроль якості зробленої роботи​

Основа взята на сайте progmatem.ru. К сожалению, автор статьи там не был указан.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
  w=1000;
  h=600;

function f(x:real):=0.5*x*cos(2*x);

begin
  SetWindowSize(w,h);
  // поле для графика в окне
  var xLeft:=50;
  var yLeft:=50;
  var xRight:=w-xLeft;
  var yRight:=h-yLeft;
  // интервалы по осям
  var ax:=-12.0;
  var bx:=12.0;
  var hx:=1.0;
  var ay:=-6.5; // минимум f(x) с запасом
  var by:=6.5;
  var hy:=0.5;
  // масштабы по осям
  var mx:=(xRight-xLeft)/(bx-ax);
  var my:=(yRight-yLeft)/(by-ay);
  // точка начала координат графика
  var x0:=xLeft+Trunc(abs(ax)*mx);
  var y0:=yRight-Trunc(abs(ay)*my);
  // рисование координатных осей
  Line(xLeft,y0,xRight+10,y0);
  Line(x0,yLeft-10,x0,yRight);
  SetFontSize(12); SetFontColor(clBlue);
  TextOut(xRight+15,y0-10,'X');
  TextOut(x0-4,yLeft-30,'Y');
  SetFontSize(8); SetFontColor(clGreen);
  // рисование засечек
  var s:string;
  for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
  for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
  // собственно график
  var xi:=ax;
  while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

*******************************************
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
  w=1000;
  h=600;

function f(x:real):=8*sin(x)*sin(2*x);

begin
  SetWindowSize(w,h);
  // поле для графика в окне
  var xLeft:=50;
  var yLeft:=50;
  var xRight:=w-xLeft;
  var yRight:=h-yLeft;
  // интервалы по осям
  var ax:=-15.0;
  var bx:=15.0;
  var hx:=1.0;
  var ay:=-6.5; // минимум f(x) с запасом
  var by:=6.5;
  var hy:=0.5;
  // масштабы по осям
  var mx:=(xRight-xLeft)/(bx-ax);
  var my:=(yRight-yLeft)/(by-ay);
  // точка начала координат графика
  var x0:=xLeft+Trunc(abs(ax)*mx);
  var y0:=yRight-Trunc(abs(ay)*my);
  // рисование координатных осей
  Line(xLeft,y0,xRight+10,y0);
  Line(x0,yLeft-10,x0,yRight);
  SetFontSize(12); SetFontColor(clBlue);
  TextOut(xRight+15,y0-10,'X');
  TextOut(x0-4,yLeft-30,'Y');
  SetFontSize(8); SetFontColor(clGreen);
  // рисование засечек
  var s:string;
  for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
  for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
  // собственно график
  var xi:=ax;
  while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

Відповідь:

Пояснення:

Алгоритмы, в которых команды выполняются последовательно одна за другой, в порядке их записи, называются линейными.

 

 Пример 1. Написать алгоритм получения изображения двузначного числа  с исполнителя Чертежник.

Выберем следующий алгоритм построения изображения:

1) создать поле для исполнителя Чертежник размером 6х5 (6 клеток по горизонтали, 5 клеток по вертикали);

2) сместиться в точку (2, 2);

3) опустить перо;

4) изобразить цифру 1;

5) поднять перо и смечтиться в точку (4,3);

6) опустить перо;

7) изобразить цифру 2;

8) поднять перо и перейти в начало координат.

 

Вначале запишем алгоритм решения задачи на русском языке. Затем для каждой команды этого алгоритма выберем соответствующую команду исполнителя Чертежник.

Запись алгоритма на русском языке Текст программы

Заголовок программы;

Program PR_1;

вызов исп. Чертежник;

uses Drawman;

начало программы;

begin

создание поля размером 6х5;

Field(6,5);

рисуем цифры 1 и 2;

ToPoint(2,2);PenDown;

ToPoint(3,3);

ToPoint(3,1);

PenUp;

ToPoint (4,3);

PenDown;

ToPoint(5,3);

ToPoint(5,2);

ToPoint(4,1);

ToPoint(5,1);

PenUp;

ToPoint (0,0);

закончить программу.

end.

Можешь загрузить!        Пример 1

Для выполнения программы выберем команды ПрограммаàВыполнить (F9 или кнопка  на панели инструментов). Откроется окно исполнителя Чертежник, где нужно нажать кнопку Пуск или клавишу Enter на клавиатуре.

Команда OnVector(a,b)

OnVector(a,b)– перемещает перо Чертежника на вектор (a,b).

Выполним пример 1, но вместо команды ToPoint(x,y),  кторая перемещает перо Чертежника в точку (x,y). будем использовать OnVector(a,b).

Перемещение из точки (1,2) в точку (3,3) с вектора: OnVector(2,1).

Перемещение из точки (3,3) в точку  (1,2) с вектора: OnVector(-2,-1).

Перемещение из точки (1,3) в точку  (4,3) с вектора: OnVector(3,0).

Перемещение из точки (4,3) в точку (1,3)  с вектора: OnVector(-3,0).

Перемещение из точки (3,2) в точку (3,5)  с вектора: OnVector(0,3).

Перемещение из точки (3,5) в точку (3,2)  с вектора: OnVector(0,-3).

 

 Пример 2. Написать алгоритм получения изображения двузначного числа  с исполнителя Чертежник, используя команду OnVector(a,b).