царь-го сударь; Иван-царевич; ковер-самолет; сапоги-скороходы; Марья-царевна; скатерть-самобранка.
Название сказки |
Имена героев |
Чудеса |
В. А. Жуковский «Сказка о царе Берендее» |
Царь Берендей, Кощей Бессмертный, Марья-царевна, Иван-царевич
|
Марья-царевна превращается в пчелку; уточки, превратились в девиц, построен дворец, Марья-царевна обратилась в церковь, Иван-царевич — в монаха, их конь — в колокольню; царевна обратилась в камень; превратилась в цветок; голуби из пирога. |
А. С. Пушкин «Сказка о царе Салтане» |
Царь Салтан, князь Гвидон Салтанович, царевна Лебедь |
Гвидон превращается в комара; белка грызет золотые орешки; богатыри выходят из моря, царевна с месяцем под косой и горящей звездой во лбу. |
царь-го сударь; Иван-царевич; ковер-самолет; сапоги-скороходы; Марья-царевна; скатерть-самобранка.
Название сказки |
Имена героев |
Чудеса |
В. А. Жуковский «Сказка о царе Берендее» |
Царь Берендей, Кощей Бессмертный, Марья-царевна, Иван-царевич
|
Марья-царевна превращается в пчелку; уточки, превратились в девиц, построен дворец, Марья-царевна обратилась в церковь, Иван-царевич — в монаха, их конь — в колокольню; царевна обратилась в камень; превратилась в цветок; голуби из пирога. |
А. С. Пушкин «Сказка о царе Салтане» |
Царь Салтан, князь Гвидон Салтанович, царевна Лебедь |
Гвидон превращается в комара; белка грызет золотые орешки; богатыри выходят из моря, царевна с месяцем под косой и горящей звездой во лбу. |
Function TextProgressBar(progint:integer):string;
begin
if progint >= 0 then
Result := '<$1> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 10 then
Result := '<$1><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 20 then
Result := '<$1><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 30 then
Result := '<$1><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 40 then
Result := '<$1><$0><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 50 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 60 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0> <$2>';
if progint >= 70 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0> <$2>';
if progint >= 80 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0> <$2>';
if progint >= 90 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0><$0> <$2>';
if progint >= 100 then
Result := '<$1><$0><$0><$0><$0><$0>'+IntToStr(progint)+' <$3><$0><$0><$0><$0><$0><$2>';
end;
Пробуй