Ответы к тесту/контрольной: Разработка приложений на языке Visual Prolog

Укажите решение для цели B = toBoolean(1 = 1)

Определение предикатов neighbor и f имеет вид: neighbor(I, J, I, f(J, 3)). neighbor(I, J, f(I, 3), J). f(X, _) = X - 1:- X > 0. f(X, N) = X + 1:- X < N - 1. Укажите все решения для цели neighbor(0, 2, I, J):

Текст Str помещает в текстовый редактор (sciLexer) вызов подцели:

Какой элемент будет виден изначально в выпадающем списке после вызова подцелиlistButton_ctl:addList(["Alpha", "Beta", "Gamma"]),listButton_ctl:selectAt(0, true)?

Пусть L = list::decompose([-2, -2, -1, -1, 0, 1, 2, 3, 3], {(X) = math::abs(X)}). Сколько элементов содержит список L?

Предикат обработки события изменения размеров окна принадлежит предикатному домену

Определение предиката neighbor2 имеет вид: neighbor2(tuple(I, J)) = tuple(I, J + std::fromToInStep(-2, 2, 4)). Укажите решение для цели L = [X || X = neighbor2(tuple(2, 2))]:

Укажите точку, которая находится ближе всего к верхней границе клиентской области окна:

Узнать, стоит ли флажок (Check Box), можно с помощью подцели:

Считать текст из поля редактирования (Edit Control) можно с помощью подцели

Манхэттенское расстояние между точками pnt(45, 50) и pnt(40, 62) равно

Предикат обработки события выбора команды меню принадлежит предикатному домену

Определение предиката outerRectangle имеет вид: outerRectangle(rct(X1, Y1, X2, Y2)) = rct(X1 - 10, Y1 - 10, X2 + 10, Y2 + 10). Пусть Rect1 = rct(10, 10, 90, 90), Rect2 = outerRectangle(Rect1). Площадь квадрата Rect1 составляет от площади квадрата Rect2

В результате вызова последовательности подцелей Graphics:translateTransform(200, 200), Graphics:rotateTransform(90), Graphics:drawRectangleI(Pen, 0, 0, 40, 20) отобразится прямоугольник, левый верхний угол которого будет находиться в точке с координатами

Сколько тиков в секунду будет делать таймер после вызова _ = timerSet(200)?

Определение предиката coord имеет вид:coord() = tuple(I, J):- I = std::fromTo(-1, 1), J = std::between(I, -2*I). Сколько решений имеет цель X = coord()?

Найти надпись на кнопке (Push Button) можно с помощью подцели:

Окно drawForm должно открываться по нажатию кнопки Ok окна familyForm. В определении предиката onOkClick достаточно подставить подцель:

Ширина прямоугольника – это

Сколько элементов содержит список L = [X-1 || X = std::cIterate(10)]?

Укажите все значения переменной Rect, при которых вызов подцелиvpi::rectPntInside(Rect, pnt(50, 100)) завершится успехом:

Определение предиката move имеет вид: move() = tuple(I, J):- I = std::fromTo(0, 2), J = std::fromTo(0, 2), math::abs(I - J) = 2. Сколько решений имеет цель X = move()?

Пусть L = list::decompose([0, 0, 0, 1, 1, 2, 2, 3], {(X) = X}). Укажите элемент, принадлежащий списку L:

Какой элемент будет выделен в списке в результате вызова последовательности подцелейlistbox_ctl:addList([toString(I) || I = std::fromTo(1, 5)]), listbox_ctl:selectAt(1, true)?

Поместить значение 10 в поле целых чисел (Integer Control) можно с помощью подцели:

Укажите точку, которая принадлежат правильному шестиугольнику с центром в точке (40, 40) и стороной 20:

Текст Str добавится в начало текста, содержащегося в поле редактирования (Edit Control), в результате вызова подцели

Определение обработчика событий выбора пункта меню File -> New главного окна приложения имеет вид: onFileNew(_Source, _MenuTag):- vpiCommonDialogs::note("Hello, World!"), Form = drawForm::display(This), Form:setText("Hello!"). Пользователь выбрал команду меню File -> New, а потом закрыл окно Note. Где будет выведен текст "Hello!")?

Поставить флажок (Check Box) можно с помощью подцели:

Редактор строки состояния окна paintMenu открывается с помощью элемента дерева проекта:

Эксперт окон (Dialog and Window Expert) открывается с помощью элемента дерева проекта

Укажите набор точек, которые могут являться вершинами правильного шестиугольника с центром в точке (20, 20) и стороной 20:

Укажите решение для цели B = toBoolean(1 + 1 = 2)

Увеличить на 10 значение, которое записано в поле целых чисел (Integer Control), можно с помощью подцели:

Пусть L = list::decompose([0, 1, 1, 2, -2], {(X) = X}). Сколько элементов содержит список L?

Добавить восклицательный знак к надписи на кнопке (Push Button) можно с помощью подцели:

Выделить элемент Item в выпадающем списке (List Button) можно следующим образом:

Определение предиката do имеет вид: do():- listBox_ctl:setMultiSelect(), listBox_ctl:addList(["Ann", "Chris", "Evan", " Grace", "Rita"]), foreach X = std::fromToInStep(0, 4, 2) do listBox_ctl:selectAt(X, true) end foreach, listBox_ctl:selectAt(4, false). В результате вызова подцели do() будут выделены элементы списка:

Изображение, хранящееся в файле ресурса с идентификатором idb_bmp, загружает вызов следующей подцели:

Переключатель radio_ctl делает неактивным вызов подцели:

Определение обработчика событий выбора пункта меню File -> New главного окна приложения имеет вид: onFileNew(_Source, _MenuTag):- vpiCommonDialogs::note("Hello!"), _ = drawForm::display(This), setText("Hello, World!"). Пользователь выбрал команду меню File -> New. Где и когда появится текст "Hello, World!")?

Цель L = list::removeConsecutiveDuplicates([1, 0, 1, 1, 0, 0, 1, 0]) имеет решение

Укажите все значения переменных Rect и Point, при которых вызов подцели vpi::rectPntInside(Rect, Point) завершится успехом:

Определение предикатов обработки событий onPaint и onMouseDown имеет вид: onPaint(_Source, rct(10, 10, 20, 20), GDI):- !, GDI:clear(color_Red). onPaint(_Source, _Rectangle, GDI):- GDI:clear(color_Green). onMouseDown(_Source, _Point, _ShiftControlAlt, _Button):- invalidate(rct(10, 10, 20, 20)). Что произойдет после щелчка мыши?

Левая половина дуги эллипса, вписанного в клиентскую область окна со сторонами W и H, отобразится в результате вызова подцели

Определение предиката onPaint имеет вид: onPaint(_, _, GDI):- GDI:setPen(pen(1, ps_Solid, color_Red)), GDI:drawLine(pnt(0, 100), pnt(200, 100)), GDI:setPen(pen(1, ps_Solid, color_Blue)), GDI:drawLine(pnt(100, 0), pnt(100, 200)). Определите цвета отрезков:

Определение предиката onPaint имеет вид: onPaint(_, _, GDI):- GDI:clear(color_Green), GDI:clear(color_Red) . В результате вызова подцели invalidate() клиентская область окна будет закрашена

Окно атрибутов главного окна приложения открывается с помощью элемента дерева проекта

Состояние включенного переключателя (Radio Button) описывается термом:

Текст Str заменит текст, содержащийся в поле редактирования (Edit Control), в результате вызова подцели

В результате вызова Graphics:translateTransform(10, 10)

Определение предиката onPaint имеет вид: onPaint(_, _, GDI):- getClientSize(W, H), GDI:drawArc(rct(0, 0, W, H), pnt(W div 2, 0), pnt(W div 2, H)). Дуга отображается

Определение предиката coord имеет вид:coord() = tuple(I, J):- I = std::fromToInStep(-1, 1, 2), J = std::betweenInStep(I, -I, 2). Сколько решений имеет цель X = coord()?

Определение предиката onPaint имеет вид: onPaint(_Source, _Rectangle, GDI):- GDI:pictDraw(bgpict, pnt(0, 0), rop_SrcCopy). Как отобразится изображение bgpict?

Найдите решение для цели L = [X || X = std::cIterate(5)]:

Кнопку del_ctl делает невидимой вызов подцели:

Считать текст из текстового файла можно следующим образом:

Определение предиката move имеет вид:move() = tuple(I, J):- L = [tuple(0, 0), tuple(0, 1), tuple(0, 2), tuple(1, 0), tuple(1, 1), tuple(1, 2)], tuple(I, J) in L, list::all(L, {(tuple(I1, J1)):- math::max(math::abs(I - I1), math::abs(J - J1)) <= 1}). Сколько решений имеет цель X = move()?

Укажите значение переменной X, которое она примет после вызова подцели:L = [tuple(2, 3, 8), tuple(3, 2, 1), tuple(1, 4, 9), tuple(4, 5, 5)], tuple(_, X, _) = list::minimum(L).

Определение предикатов neighbor и f имеет вид: neighbor(I, J, I, f(J, 3)). neighbor(I, J, f(I, 3), J). neighbor(I, J, f(I, 3), f(J, 3)). f(X, _) = X - 1:- X > 0. f(X, N) = X + 1:- X < N - 1. Сколько решений имеет цель neighbor(0, 1, I, J)?

Определение факта-переменной rbtree и предиката create имеют вид: facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 10), rbtree := insert(rbtree, X, X mod 2). Сколько вершин будет содержать дерево rbtree в результате вызова create()?

Предикат create создает таблицу, содержащую 5 строк и 10 столбцов: create():- L1 = [column(toString(J), 30, alignLeft) || J = std::fromTo(1, 10)], L2 = [item(uncheckedConvert(itemId, I), toString(I), -1, [], IL) || I = std::fromTo(1, 5), IL = [toString(K) || K = std::fromTo(2 + I, 10 + I)]], listViewControl_ctl:insertColumnList(1, L1), listViewControl_ctl:insertItemList(L2), listViewControl_ctl:setLVType(lvs_report). В третьей строке и в третьем столбце таблицы находится элемент

Определение факта-переменной rbtree и предиката create имеют вид: facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 10), rbtree := insert(rbtree, X mod 2, X). Сколько вершин будет содержать дерево rbtree в результате вызова create()?

Пусть L = list::decompose([-2, -1, 0, 1, 2], {(X) = X^2}). Сколько элементов содержит список L?

Укажите значение переменной X, которое она примет после вызова подцели:L = [tuple(5, 2, 1), tuple(4, 5, 10), tuple(2, 6, 9), tuple(3, 8, 5)], X = list::maximum(L).

Цель L = list::removeConsecutiveDuplicates([3, 3, 3, 2, 1, 1, 2, 2, 3]) имеет решение

Какой элемент будет виден изначально в выпадающем списке после вызова подцелиlistButton_ctl:addList(["1", "3", "5"]),listButton_ctl:selectAt(1, true)?

Определение предиката neighbor2 имеет вид: neighbor2(tuple(I, J)) = tuple(I + std::fromToInStep(-2, 2, 4), J). neighbor2(tuple(I, J)) = tuple(I, J + std::fromToInStep(-2, 2, 4)). Сколько решений имеет цель X = neighbor2(tuple(4, 4))?

Определение факта-переменной rbtree и предиката create имеют вид: facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 10), rbtree := insert(rbtree, X, X mod 3). Укажите значение, которое примет переменная X после вызова цели create(), X = tryLookUp(rbtree, 2):

Делает включенным переключатель radio_ctl вызов подцели:

Найти все элементы списка (List Box) можно с помощью подцели:

Редактор меню окна paintMenu открывается с помощью элемента дерева проекта:

Укажите точку, которая находится ближе всего относительно манхэттенского расстояния к точке pnt(20, 30):

Определение предиката coord имеет вид:coord() = tuple(I, J):- I = std::fromToInStep(-1, 1, 2), J = std::between(2*I, -I). Сколько решений имеет цель X = coord()?

Укажите значение переменной X, которое она примет после вызова подцелиL = [tuple(2, 3, 10), tuple(3, 2, 1), tuple(1, 4, 6), tuple(2, 3, 5)], tuple(_, _, X) = list::maximum(L).

Укажите все точки, которые принадлежат правильному шестиугольнику с центром в точке (30, 30) и стороной 20:

Определение предиката move имеет вид: move() = tuple(I, J):- I = std::fromTo(0, 2), J = std::fromTo(0, 2), math::abs(I - J) >= 1. Сколько решений имеет цель X = move()?

Определение предиката move имеет вид:move() = tuple(I, J):- L = [tuple(0, 0), tuple(0, 1), tuple(0, 2), tuple(1, 0), tuple(1, 1)], tuple(I, J) in L, list::all(L, {(tuple(I1, J1)):- math::abs(I - I1) + math::abs(J - J1) <= 2}). Сколько решений имеет цель X = move()?

Укажите решение для цели B = toBoolean(1 = 2)

Значение из поля целых чисел (Integer Control) можно найти с помощью подцели:

Пусть L1 = list::decompose([0, 1, -1, 0, 1, -1, 0], {(X) = math::abs(X)}), L2 = list::map(L1, {(tuple(I, L)) = tuple(I, list::length(L))}). Укажите элементы, которые составляют список L2

Пусть L = list::decompose([1, 0, 1, 0, 1, 0, 1], {(X) = X}). Укажите элементы, составляющие список L:

Определение факта-переменной rbtree и предиката create имеют вид: facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 10), rbtree := insert(rbtree, X mod 3, X). Укажите значение, которое примет переменная X после вызова цели create(), X = tryLookUp(rbtree, 2):

Определение факта-переменной rbtree и предиката create имеют вид: facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 5), rbtree := insert(rbtree, X mod 2, X). Какие пары "ключ – значение" будут содержаться в вершинах дерева rbtree в результате вызова create()?

Найдите решение для цели L = [X+1 || X = std::cIterate(3)]:

Записать текст Text в текстовый файл можно следующим образом:

Найти все выделенные элементы списка (List Box) можно с помощью подцели:

Включен ли переключатель (Radio Button), можно определить с помощью подцели:

Укажите все способы, с помощью которых можно считать текст из текстового редактора (sciLexer):

Определение предиката do имеет вид: do():- listBox_ctl:setMultiSelect(), listBox_ctl:addList([toString(I) || I = std::fromTo(11, 15)]), foreach X = std::fromTo(0, 3) do listBox_ctl:selectAt(X, true) end foreach, listBox_ctl:selectAt(0, false). В результате вызова подцели do() не будут выделены элементы списка:

Предикат create создает таблицу, содержащую 4 строки и 4 столбца: create():- L1 = [column(toString(J), 30, alignLeft) || J = std::fromTo(1, 4)], L2 = [item(uncheckedConvert(itemId, 1), "a", -1, [], ["b", "c", "d"]), item(uncheckedConvert(itemId, 2), "e", -1, [], ["f", "g", "h"]), item(uncheckedConvert(itemId, 3), "i", -1, [], ["j", "k", "l"]), item(uncheckedConvert(itemId, 4), "m", -1, [], ["n", "o", "p"]), ], listViewControl_ctl:insertColumnList(1, L1), listViewControl_ctl:insertItemList(L2), listViewControl_ctl:setLVType(lvs_report). Во второй строке и в третьем столбце таблицы находится элемент

Размеры изображения можно узнать следующим образом:

Свойство "Только для чтения" устанавливает для текстового редактора (sciLexer) вызов подцели:

Кнопку del_ctl делает включенной вызов подцели:

Переключатель radio_ctl делает выключенным вызов подцели:

Окно drawForm должно открываться при выборе команды главного меню File -> New. В определении предиката обработки события вызова этой команды меню достаточно поставить подцель:

Какой элемент будет виден изначально в выпадающем списке после вызова подцелиlistButton_ctl:addList(["Ann", "Bob", "Tom"])?

Текст Str появится в окне сообщений Messages в результате вызова подцели

Какой элемент будет выделен в списке в результате вызова последовательности подцелейlistbox_ctl:addList(["2", "4", "6", "8"]), listbox_ctl:selectAt(2, true)?

В результате вызова последовательности подцелей Graphics:translateTransform (20, 10), Graphics:drawRectangleI(Pen, 100, 100, 20, 40) отобразится прямоугольник, левый верхний угол которого будет находиться в точке с координатами