Загрузка данных


Всё строго по учебнику Дадяна: точный чистый код заданий №37, №38, №39 без лишней воды и краткие ответы на тесты.
В 1С функции и процедуры нельзя объявлять внутри выполняемого кода — они обязательно должны быть вынесены в самый верх модуля (либо вызываться из общего модуля «Уроки», как в книге).
Задание №37 (Площадь круга)
Код для вставки в модуль:
Функция ПлощадьКруга(Радиус)
    Пи = 3.14;
    Возврат Пи * Радиус * Радиус;
КонецФункции

Радиус = 0;
ВвестиЧисло(Радиус);
ОткрытьЗначение("Площадь круга радиусом " + Радиус + " равна " + ПлощадьКруга(Радиус));

(Если в базе настроен общий модуль Уроки, тогда в модуль пишется:)
Радиус = 0;
ВвестиЧисло(Радиус);
ОткрытьЗначение("Площадь круга радиусом " + Радиус + " равна " + Уроки.ПлощадьКруга(Радиус));

Задание №38 (Конкатенация строк)
Код для вставки в модуль:
Функция ФИО(Имя, Фамилия)
    Возврат Имя + " " + Фамилия;
КонецФункции

ВашеИмя = "";
ВвестиСтроку(ВашеИмя, "Введите ваше имя");
ВашаФамилия = "";
ВвестиСтроку(ВашаФамилия, "Введите вашу фамилию");
ОткрытьЗначение("Здравствуйте, " + ФИО(ВашеИмя, ВашаФамилия));

(Если через общий модуль Уроки:)
ВашеИмя = "";
ВвестиСтроку(ВашеИмя, "Введите ваше имя");
ВашаФамилия = "";
ВвестиСтроку(ВашаФамилия, "Введите вашу фамилию");
ОткрытьЗначение("Здравствуйте, " + Уроки.ФИО(ВашеИмя, ВашаФамилия));

Задание №39 (Вывод чисел в промежутке)
Код для вставки в модуль:
Процедура ВывестиЧисла(ПервоеЧисло, ПоследнееЧисло)
    Строка = "";
    Для Шаг = ПервоеЧисло По ПоследнееЧисло Цикл
        Строка = Строка + Шаг + " ";
    КонецЦикла;
    ОткрытьЗначение(Строка);
КонецПроцедуры

ПервоеЧисло = 0;
ВвестиЧисло(ПервоеЧисло, "Введите первое число");
ВтороеЧисло = 0;
ВвестиЧисло(ВтороеЧисло, "Введите второе число");
ВывестиЧисла(ПервоеЧисло, ВтороеЧисло);

(Если через общий модуль Уроки:)
ПервоеЧисло = 0;
ВвестиЧисло(ПервоеЧисло, "Введите первое число");
ВтороеЧисло = 0;
ВвестиЧисло(ВтороеЧисло, "Введите второе число");
Уроки.ВывестиЧисла(ПервоеЧисло, ВтороеЧисло);

Ответы на тесты по учебнику
Тест 1 (Процедура Привет):
1 — 3
2 — 2
3 — 1
4 — 1
5 — 4
6 — 3
7 — 4
Тест 2 (Функция Утроение):
1 — 3
2 — 4
3 — 3
4 — 1
5 — 2
6 — 3
7 — 4
8 — 1
Тест 3 (Юнит 15):
1 — 3
2 — 4
3 — 4