Алегория

от Уикипедия, свободната енциклопедия

Алегорията (от гръцки αλλος, друг, и αγορευειν, говоря публично) е начин преносно да се изрази смисъл, различен или допълващ буквалния. Обикновено под алегория се разбира рeторична фигура на речта, но това не е задължително - алегория може да се съдържа и в изобразителното изкуство, скулптурата и други изкуства.

В художествената литература алегорията е широко използван творчески похват, който се основава на съпоставимостта между две прояви, едната от които с отвлечен идеен смисъл, а другата - конкретен. Въпреки, че е сходна с други реторични сравнения, алегорията бива по-трайна и обхватна от метафората, а също така разчита на въображението за разлика от аналогията, която се опира на логиката и разсъдливостта.

Примери за кратки алегории с нравоучителен и възпитателен характер са баснята, притчата и параболата.

[редактиране] Източници

• "Енциклопедичен речник на литературните термини", Иван Богданов, Издателство “Петър Берон”, София, 1993 (онлайн)

Private Sub cmd1_Click() Dim pk As Single Dim nk As Single Dim rez As Single pk = Text1.Text nk = Data1.Recordset("koli4estvo") rez = nk - pk Data1.Recordset.Edit Data1.Recordset("koli4estvo") = rez If nk <= 0 Then MsgBox "koli4estvoto e iz4erpano" Data1.Recordset.Update

End Sub

Private Sub cmd2_Click() Dim nk, ec, oc As Single nk = Data1.Recordset("koli4estvo") ec = Data1.Recordset("edcena") oc = nk * ec Data1.Recordset.Edit Data1.Recordset("ob6tacena") = oc Data1.Recordset.Update End Sub

Private Sub cmd3_Click() Dim dk As Single Dim nk As Single Dim rez As Single dk = Text2.Text nk = Data1.Recordset("koli4estvo") rez = nk + dk Data1.Recordset.Edit Data1.Recordset("koli4estvo") = rez Data1.Recordset.Update

End Sub