Искусство — форма творчества духовной самореализации человека посредством чувственно- выразительных средств (звука, пластики тела, рисунка, слова, цвета, света, природного материала и т.д.). Особенность творческого процесса — в нерасчлененности его субъективно- объективной обусловленности. Возникая как результат творчества конкретного субъекта, произведение искусства в своем бытии обретает надличностный характер.
Искусство – это процесс творческого осмысления бытия во всех его проявлениях. Мир реальный и нереальный заставляет удивляться многих зрителей. Сила духовного преображения выразительных средств в изобразительном искусстве как бы погружает в фантазийные переживания художников. Буйство красок или линий, пятен и ёмких форм как бы зрительно материализует существующие переживания авторов. Поток подсознательной информации, выходящий из-под карандаша или кисти художника, кружит мысли в умах людей, созерцающих их творения.
" Цифровая революция, захватившая со второй половины ХХ века весь социум, коснулась и мира искусства, оказав огромное влияние на его становление и развитие. Взаимодействие технологий и искусства имела место на протяжении всей истории развития человечества. Технология в этом альянсе носила преимущественно прикладной характер, оставалась посредником между Идеей художника и ее материальным воплощением. Продолжая трансформировать плоскость традиционного искусства технологии сегодня настолько захватывают творца, что его эксперименты с «материалом» заслоняют собой все иные смыслы и назначения искусства, создавая искусство технологий.
ВСЕГДА РАДА )))
Ну, если я правильно понял суть задания, то:
osh - кол-во ошибок, oc - осценка. Соль программы в том, что учитель вбивает количество ошибок, и ему выдается оценка, которую надо поставить. Что-бы программа работала, создашеь кнопку на форме, жмешь по ней два раза в VB, появится окно для ввода кода программы, туда пишешь вот эту команду: Ocenka()
Потом после этой команды находишь строчку End Sub, она будет перед End Class, и копируешь вот этот код:
Sub Ocenka()
Dim osh, oc As Byte
osh = InputBox("Введите количество ошибок")
If osh = 0 Then
oc = 5
ElseIf osh = 1 Then
oc = 4
ElseIf osh = 2 Then
oc = 3
ElseIf osh >= 3 Then
oc = 2
End If
MsgBox("Оценка ученика - " & oc)
End Sub
Ну впринципе все) Скрин програмки прилагается)
