---

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

&НаКлиенте
Процедура Команда2(Команда)
	Текст = "";
КонецПроцедуры

&НаКлиенте
Процедура Команда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 = " + Пи + "*" + Радиус + "*" + Радиус + "*" + Высотаа + " = " + ОбьемТочн + " м³"
        + Символы.ПС
        + Символы.ПС + "Результаты:"
        + Символы.ПС + "Площадь боковой поверхности = " + ПлощадьБок + " м²"
        + Символы.ПС + "Площадь основания = " + ПлощадьОсн + " м²"
        + Символы.ПС + "Площадь полной поверхности = " + ПлощадьПолн + " м²"
        + Символы.ПС + "Объём цилиндра = " + Обьем + " м³";
	КонецПроцедуры	 
	
	&НаКлиенте
Процедура Команда4(Команда)
	Текст2 = "";
КонецПроцедуры