var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
Особенностью векторной графики является то, что кривые, составляющие изображение, очень точно описываются математически и с учетом возможности задания толщины линий представляют собой качественный чертеж (рисунок). При этом, в отличие от растровой графики, качество изображение не меняется при масштабировании.
Основные пакеты для работы с векторной графикой - CorelDraw, Adobe Illustrator, Мacromedia FreeHand, AutoCad, Mapinfo. Первые 3 пакеты больше находят применение в дизайне и полиграфии, AutoCad - промышленное проектирование и черчение, Mapinfo - ГИС (<span>географическая информационная система - используется при обработке пространственных данных).
Поэтому проблема повышения качества как таковая для векторной графики не стоит, за исключением случаев:
</span>- импорт/экспорт между различными пакетами
- векторизация растровых изображений
– перевод сканированных
изображений в вектор
- совместное использование в одном рисунке растровых и
векторных изображений (но это уже пограничные моменты. Здесь качество всего
рисунка определяется его растровой составляющей).
<span>
1) импорт/экспорт между различными пакетами. Проблема очень
остро возникает в случае обмена фрагментами изображений ( или импортом всего
файла) между CorelDraw, с одной стороны и Adobe Illustrator и Мacromedia
FreeHand, с другой. Проблема в том, что для описания вектора в них используется
различный математический аппарат. В CorelDraw – это кривые Безье, и вид вектора
определяется конкретной функцией для описания узлов, и касательные к дугам у Adobe
Illustrator и Мacromedia FreeHand. Поэтому при импорте кривая бьется на
сегменты и теряет сглаженность. Обмен между этими пакетами крайне негативно
влияет на качество и категорически не рекомендуется. Также не рекомендуется
активно использовать градиентные заливки, если планируется последующий импорт.
Можно порекомендовать использование обменных форматов EPS (encalulated PostScript) и PDF. Но это уже практически без
возможности последующего редактирования после импорта.</span>
2) векторизация растровых изображений – та же проблема со
сглаживанием. Поскольку растр имеет ступенчатую структуру (из-за пикселей),
итоговая кривая повторяет эти ступеньки, и вместо сглаженной кривой получаем «пилу».
Лечится – удалением лишних узлов и вытягиванием дуг.
Вообще на эту тему можно говорить долго, но в первом
приближении достаточно. Меня в свое время брат (дизайнер в рекламном агентстве)
насмерть отравил векторной графикой. Полезная штука. Как, впрочем, и растровая –
всякие Фотошопы и Корелпайнты.
Удачи в освоении))
Function f(n:integer):boolean;
var m:set of 0..9;
begin
m:=[];
f:=true;
while n>0 do
begin
if (n mod 10) in m then f:=false;
m:=m+[n mod 10];
n:=n div 10;
end;
end;
begin
writeln(f(12321));
end.
Результат:
<span>False</span>
