Искусство — форма творчества духовной самореализации человека посредством чувственно- выразительных средств (звука, пластики тела, рисунка, слова, цвета, света, природного материала и т.д.). Особенность творческого процесса — в нерасчлененности его субъективно- объективной обусловленности. Возникая как результат творчества конкретного субъекта, произведение искусства в своем бытии обретает надличностный характер.
Искусство – это процесс творческого осмысления бытия во всех его проявлениях. Мир реальный и нереальный заставляет удивляться многих зрителей. Сила духовного преображения выразительных средств в изобразительном искусстве как бы погружает в фантазийные переживания художников. Буйство красок или линий, пятен и ёмких форм как бы зрительно материализует существующие переживания авторов. Поток подсознательной информации, выходящий из-под карандаша или кисти художника, кружит мысли в умах людей, созерцающих их творения.
" Цифровая революция, захватившая со второй половины ХХ века весь социум, коснулась и мира искусства, оказав огромное влияние на его становление и развитие. Взаимодействие технологий и искусства имела место на протяжении всей истории развития человечества. Технология в этом альянсе носила преимущественно прикладной характер, оставалась посредником между Идеей художника и ее материальным воплощением. Продолжая трансформировать плоскость традиционного искусства технологии сегодня настолько захватывают творца, что его эксперименты с «материалом» заслоняют собой все иные смыслы и назначения искусства, создавая искусство технологий.
ВСЕГДА РАДА )))
1.y=m1*m2/Sqr(r)
2. Program my;
var S,a,b,h:real;
begin
write('Введите длины оснований и высоты');
readln(a,b,h);
S:=(a+b)*h/2;
readln(S);
end.
3. Program my;
var a:integer;
begin
writeln('Введите трехзначное число');
readln(a);
If (a mod 10=7) then write('Данное число заканчивается на 7');
else write('Данное число не заканчивается на 7');
end.
4.Program my;
var a,b,:integer;
begin
readln(a,b);
If (a>b) then writeln(Sqr(a), b+10);
If (a=b) then writeln('Числа равны');
If (a<b) then writeln(Sqr(b), a+10);
end.
5.
Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.
