какой инструмент в векторном редакторе позволяет разделить объект на более примитивные
4. Какой инструмент в векторном редакторе позволяет разделить объект на более примитивные?
А) Разъединить
Б) Разбить
В) Разгруппировать
Г) Отменить группировку
B = InputBox(«Введи значение в килограммах!»)
gr = b*1000
t = b/1000
MsgBox «Тонны: » & t & «Граммы: » & gr
(Это VBS)
VAR
a,b,c:integer;
BEGIN
Read(a);
Write(‘Тонны:’);
WriteLn(a*1000);
Write(‘Граммы:’);
WriteLn(a/1000);
END.
(Это Pascal)
Кортежи могут быть весьма полезны.
Например, в Паскале обычно функция возвращает некоторое значение. А если надо, к примеру, два? Процедуру делать? Кортеж решает эту проблему.
Ниже приведен пример работающей программы на PascalABC.NET 3.3.
Напомню, что идентификаторы в программе могут содержать символы Unicode из любых алфавитных наборов, поэтому имена переменных написаны кириллицей.
function DivMod(a,b:integer):=(a div b,a mod b);
begin
var (Делимое,Делитель):=ReadInteger2(‘Делимое и делитель:’);
var (Частное,Остаток):=Divmod(Делимое,Делитель);
Writeln(‘Частное = ‘,Частное,’, остаток = ‘,Остаток)
end.
Пример
Делимое и делитель: 356432 242
Частное = 1472, остаток = 208
Пример демонстрирует возможности, которые открывают кортежи.
Еще одно кортежное присваивание
var (Частное,Остаток):=Divmod(Делимое,Делитель);
создает две переменные типа integer и распаковывает в них кортеж, возвращаемый функцией DivMod.
И только процедура вывода Writeln() написана без кортежа.
Чтобы показать, как можно использовать элементы кортежа без распаковки, вышеприведенный пример запишем иначе.
function DivMod(a,b:integer):=(a div b,a mod b);
begin
var (Делимое,Делитель):=ReadInteger2(‘Делимое и делитель:’);
var t:=Divmod(Делимое,Делитель);
Writeln(‘Частное = ‘,t[0],’, остаток = ‘,t[1])
end.
Понятно, что в кратком ответе невозможно описать все, что дают языку программирования кортежи. Закончить хочу примером того, как кортеж позволят обменять местами значения двух переменных:
(a,b):=(b,a);
begin
var DivMod:(integer,integer)->(integer,integer):=(a,b)->(a div b,a mod b);
var (Делимое,Делитель):=ReadInteger2(‘Делимое и делитель:’);
var t:=DivMod(Делимое,Делитель);
Writeln(‘Частное = ‘,t[0],’, остаток = ‘,t[1])
end.