Растровое графическое изображение формируется в процессе сканирования изображений и фотографий с бумаги или фотопленок, а также при использовании цифровых фото и видеокамер. РГИ (растровое графическое изображение) очень чувствительно к масштабированию; формируется из отдельных точек - пикселей.
Векторное же графическое изображение формируется из линий, прямоугольников, треугольников, квадратов и т.д., которые сохраняются в памяти компьютера с математических формул. Используется для сохранения четких контуров изображений; создания рисунков и различных графических объектов.
Var a: array of real; i,n,m,k,p: integer; s: real; begin write('n = '); readln(n); setlength(a,n); s:=1; randomize; writeln('массив:'); for i:=0 to n-1 do begin a[i]:=random(200)/1000; s:=s*a[i]; write(a[i]:5:3,' '); end; writeln; s:=power(s,1/n); p:=0; m:=0; k:=0; writeln('среднее геометрическое: ',s); for i:=0 to n-1 do begin if a[i]<s then inc(m); if a[i]>s then inc(k); if a[i]=s then inc(p); end; writeln('меньше: ',m,' равно: ',p,' больше: ',k); end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Введите через пробел три числа',3);
a.Select(x-> sqr(sqr(x))*(x<0 ? x : 1.0)).Println
end.
Пример
Введите через пробел три числа 23.5 -18.6 6.2
304980.0625 -2226202.78176 1477.6336