---

&НаКлиенте
Процедура Команда3(Команда)
    Если Радиус = 0 Тогда
        Сообщить("Радиус не может быть равен нулю!");
        Текст1 = "Радиус не может быть равен нулю!";
        Возврат;
    КонецЕсли;
    
    Если Высотаа = 0 Тогда
        Сообщить("Высота не может быть равна нулю!");
        Текст1 = "Высота не может быть равна нулю!";
        Возврат;
    КонецЕсли;
    
    Пи = 3.14159;
    
    // Точные значения (для строк с формулами)
    ПлощадьБокТочн  = 2 * Пи * Радиус * Высотаа;
    ПлощадьОснТочн  = Пи * Радиус * Радиус;
    ПлощадьПолнТочн = 2 * Пи * Радиус * Высотаа + 2 * Пи * Радиус * Радиус;
    ОбьемТочн       = Пи * Радиус * Радиус * Высотаа;
    
    // Округлённые значения (для блока результатов)
    ПлощадьБок  = Окр(ПлощадьБокТочн, 0);
    ПлощадьОсн  = Окр(ПлощадьОснТочн, 0);
    ПлощадьПолн = Окр(ПлощадьПолнТочн, 0);
    Обьем       = Окр(ОбьемТочн, 0);
    
    Текст1 = "Входные данные:"
        + Символы.ПС + "Радиус r = " + Радиус + " м"
        + Символы.ПС + "Высота h = " + Высотаа + " м"
        + Символы.ПС
        + Символы.ПС + "Площадь боковой поверхности Sбок = 2πrh = 2*" + Пи + "*" + Радиус + "*" + Высотаа + " = " + ПлощадьБокТочн + " м²"
        + Символы.ПС + "Площадь основания Sосн = πr² = " + Пи + "*" + Радиус + "*" + Радиус + " = " + ПлощадьОснТочн + " м²"
        + Символы.ПС + "Площадь полной поверхности Sполн = 2πrh + 2πr² = " + ПлощадьПолнТочн + " м²"
        + Символы.ПС + "Объём V = πr²h = " + Пи + "*" + Радиус + "*" + Радиус + "*" + Высотаа + " = " + ОбьемТочн + " м³"
        + Символы.ПС
        + Символы.ПС + "Результаты (округлено до целого):"
        + Символы.ПС + "Площадь боковой поверхности = " + ПлощадьБок + " м²"
        + Символы.ПС + "Площадь основания = " + ПлощадьОсн + " м²"
        + Символы.ПС + "Площадь полной поверхности = " + ПлощадьПолн + " м²"
        + Символы.ПС + "Объём цилиндра = " + Обьем + " м³";
КонецПроцедуры