Для создания комплекта по векторам в среде Кумир можно использовать следующий код, который будет содержать основные операции над векторами (сложение, вычитание, умножение на число, скалярное произведение) и функцию, вычисляющую длину вектора:
Данный комплект будет выполнять основные операции над векторами и выводить результаты на экран. Для работы с векторами достаточно ввести их координаты и необходимые числовые значения.
Для создания комплекта по векторам в среде Кумир можно использовать следующий код, который будет содержать основные операции над векторами (сложение, вычитание, умножение на число, скалярное произведение) и функцию, вычисляющую длину вектора:
Программа Векторы;Определить Вектор, Вывод_Вектор;
Определить Сложение_Векторов, Вычитание_Векторов, Умножить_Вектор_На_Число, Скалярное_Произведение;
Вектор В1, В2, Результат;
Целое число Коэффициент, Скаляр;
Ввод(В1.x, В1.y);
Ввод(В2.x, В2.y);
Ввод(Коэффициент);
Вычитание_Векторов(В1, В2);
Вывод_Вектор(Результат);
Сложение_Векторов(В1, В2);
Вывод_Вектор(Результат);
Умножить_Вектор_На_Число(В1, Коэффициент);
Вывод_Вектор(Результат);
Ввод(Скаляр);
Скалярное_Произведение(В1, В2, Скаляр);
Вывод(Скаляр);
Конец.
Процедура Сложение_Векторов(вход В1: Вектор, вход В2: Вектор);
Результат.x := В1.x + В2.x;
Результат.y := В1.y + В2.y;
Конецп;
Процедура Вычитание_Векторов(вход В1: Вектор, вход В2: Вектор);
Результат.x := В1.x - В2.x;
Результат.y := В1.y - В2.y;
Конецп;
Процедура Умножить_Вектор_На_Число(вход В1: Вектор, вход Коэффициент: Целое число);
Результат.x := В1.x * Коэффициент;
Результат.y := В1.y * Коэффициент;
Конецп;
Процедура Скалярное_Произведение(вход В1: Вектор, вход В2: Вектор, выход Скаляр: Целое число);
Скаляр := В1.x * В2.x + В1.y * В2.y;
Конецп;
Процедура Вывод_Вектор(вход В: Вектор);
Вывод("(", В.x, ", ", В.y, ")");
Конецп;
Данный комплект будет выполнять основные операции над векторами и выводить результаты на экран. Для работы с векторами достаточно ввести их координаты и необходимые числовые значения.