графические примитивы это заранее определенные элементы, которые можно поместить в чертеж при одной команды. каждый графический примитив формируется на основании описания объекта. примитивы можно классифицировать:
односложные и составные; плоские и объемные (3d)большинство команд обрисовки базовых примитивов собраны в подменю рисовать. каждый примитив формируется своей командой, чаще всего по имени с примитивом. для некоторых примитив пользователю предлагается несколько способов построения одного и того же примитива по различным исходным данным, например окружность можно построить по центру и радиусу, по центру и диаметру, по трем точкам на плоскости и т.д. каждый примитив обладает рядом свойств (например, принадлежность слою, цвет, видимость, тип линии и т.некоторые команды требуют ввода дополнительных опций в командную строку.
источник :
схема и объяснение снизу
program ufhcn;
var x, y, a, i, b: real;
uses crt;
begin
clrscr;
writeln('вводи число 1');
readln(i);
writeln('вводи число 2');
readln(x);
if (x> =0) then writeln('все в порядке')
else writeln('не правильная цифра');
if (i> =1) and (i< =13)
then writeln('число входит в ряд', x*i> =a)
else writeln('не входит ряд');
writeln('води число 3');
readln(a);
if (a> =0) then writeln('вводи число 4');
readln(b);
if (b> =0) then writeln('находим первый y= ', a*x*(i*i*i)+b*sqrt(x*i));
if (b< 0) then writeln('находим второй y= ', (sin(x)/cos(x))*(a-(x*
end.
начало
вводим переменную i
вводим переменную x
если x> =0 то
если нет если да
то нет. то далее
ввели интервал в переменную i
если (i> =1) и (i< =12) то
если нет. если да
то нет решения. то есть решение
вводим число 3
если (а> =0) то
вводим число 4
если (b> =0) то
y1= a*x*(i*i*i)+b*sqrt(x*i))
если (b< 0) то
y2= ', (sin(x)/cos(x))*(a-(x*
конец
короче объясняю.
ввёл 4 переменных
сделал так чтобы все вводимые были больше нули или равны ему чтобы легче было.
ввёл интервал i от 1 до 12
остальное решает уравнение поле ввода 4 переменных, если что-то не устроило пиши разберусь
Для решения этой задачи можно воспользоваться простенькой программой, которая делает все сдвиги:
PascalABC.NET 3.4.2, сборка 1933 от 01.04.2019
begin
var alph := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'.ToCharArray;
var w := ReadlnString;
for var i := 1 to 8 do
for var x := 1 to w.Length do
begin
var ind := alph.IndexOf(w[x]);
w[x] := alph[ind + 1 = 33 ? 0 : ind + 1];
end;
w.Println
end.
Результат в приложении.
ответ: МОНОПОД