Чертежник действует на координатной плоскости и предназначен для построения рисунков, чертежей и графиков.
Команды управления Чертежником - поднять перо, опустить перо, сместиться в точку (арг вещ х,у), сместиться на вектор (арг вещ х,у), установить цвет (лит наименование цвета), надпись (вещ ширина_знакоместа, лит текст).
<span>В команде </span>сместиться в точку<span> в качестве (х,у) выступают абсолютные значения координат, а </span>сместиться на вектор<span> - значения приращений по соответствующим осям.</span>
При перемещении опущенного пера за ним остается след - отрезок от старого положения пера до нового, а при перемещении с поднятым пером следа не остается).
<span>Команда </span>установить цвет задает цвет пера: ”черный”, ”белый”, ”красный”, ”оранжевый”, ”желтый”, ”зеленый ”, ”голубой”, ”синий”, ”фиолетовый”. По умолчанию используется черный цвет. Названия цветов пишутся в кавычках.
<span>При использовании исполнителя Чертежник программа должна начинаться со строчки «использовать Чертежник».</span>
Var a,b,c,p:real;
Begin
//Формула Герона
p:=(a+b+c)/2;
a:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(a:2:3);
end.
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
<span>end.
работает у меня:)</span>
GIF, JPEG, PNG, и WebP-форматы у изображения