Разработка приложений на языке Visual Prolog - ответы
Количество вопросов - 144
onPaint(_Source, rct(0, 0, 10, 10), GDI):- !, GDI:clear(color_Red). onPaint(_Source, _Rectangle, GDI):- GDI:clear(color_Blue). onSize(_Source):- invalidate().Что произойдет при небольшом изменении размеров окна стандартного размера?
listbox_ctl:addList(["Anna", "Bob", "Chris", "David"]), listbox_ctl:selectAt(3, true)?
neighbor2(tuple(I, J)) = tuple(I + std::fromToInStep(-2, 2, 4), J).Сколько решений имеет цель X = neighbor2(tuple(3, 3))?
sciLexer_ctl:text := "Hello, World!"?
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(_, J1)):- math::abs(J - J1)) <= 1}).Укажите все решения, которые имеет цель X = move()?
onPaint(_, _, GDI):- getClientSize(W, H), GDI:drawArc(rct(0, 0, W, H), pnt(0, H div 2), pnt(W div 2, H)).Дуга отображается
do():- listBox_ctl:setMultiSelect(), listBox_ctl:addList([toString(I) || I = std::fromToInStep(100, 400, 100)]), foreach X = std::fromTo(0, 2) do listBox_ctl:selectAt(X, true) end foreach, listBox_ctl:selectAt(1, false).В результате вызова подцели do() в списке будут выделены элементы:
move() = tuple(I, J):- I = std::fromTo(0, 2), J = std::fromTo(0, 2), math::abs(I - J) < 2.Сколько решений имеет цель X = move()?
neighbor(I, J, f(I, 3), f(J, 3)). f(X, _) = X - 1:- X > 0. f(X, N) = X + 1:- X < N - 1.Сколько решений имеет цель neighbor(1, 0, I, J)?
onPaint(_, _, GDI):- Pnt = pnt(100, 100), L = [pnt(0, 0), pnt(100, 100), pnt(100, 200), pnt(200, 100)],list::forAll(L, {(Pnt1):- GDI:drawLine(Pnt, Pnt1)}).Сколько отрезков будет содержать изображение?
facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 10), rbtree := insert(rbtree, X mod 3, X div 3).Укажите значение, которое примет переменная X после вызова цели create(), X = tryLookUp(rbtree, 0):
onPaint(_Source, _Rectangle, GDI):- getClientSize(W, H), vpi::pictGetSize(bgpict, PW, PH, _), GDI:pictDraw(bgpict, rct(0, 0, W, H), rct(0, 0, PW div 2, PH), rop_SrcCopy).Как отобразится изображение bgpict?
onFileNew(_Source, _MenuTag):- vpiCommonDialogs::note("Hello, World!"), setText("Hello!").Что произойдет после выбора команды меню File -> New?
onPaint(_, _, GDI):- GDI:clear(color_Green).В результате вызова подцели invalidate()
create():- L1 = [column("1", 30, alignLeft), column("2", 30, alignLeft), column("3", 30, alignLeft)], L2 = [item(uncheckedConvert(itemId, I), toString(I), -1, [], IL) || I = std::fromTo(1, 3), IL = [toString(K) || K = std::fromTo(I + 1, I + 2)]], listViewControl_ctl:insertColumnList(1, L1), listViewControl_ctl:insertItemList(L2), listViewControl_ctl:setLVType(lvs_report).Во второй строке и во втором столбце таблицы находится элемент
onPaint(_, _, GDI):- GDI:setPen(pen(1, ps_Solid, color_Yellow)), GDI:drawLine(pnt(100, 100), pnt(200, 200)), GDI:setPen(pen(5, ps_Solid, color_Green)), GDI:drawLine(pnt(100, 200), pnt(200, 100)).Определите цвета отрезков:
onPaint(_, _, GDI):- getClientSize(W, H), GDI:drawArc(rct(0, 0, W, H), pnt(W, H div 2), pnt(0, H div 2)).Дуга отображается
onPaint(_Source, rct(10, 10, 20, 20), GDI):- !, GDI:clear(color_Yellow). onPaint(_Source, _Rectangle, GDI):- GDI:clear(color_Gray). onMouseDbl(_Source, _Point, _ShiftControlAlt, _Button):- invalidate(rct(0, 0, 20, 20)).Что произойдет после двойного щелчка мыши?
vpi::rectPntInside(rct(10, 20, 200, 100), Point) завершится успехом:
onPaint(_Source, _Rectangle, GDI):- getClientSize(W, H), vpi::pictGetSize(bgpict, PW, PH, _), GDI:pictDraw(bgpict, rct(0, 0, W div 2, H), rct(PW div 2, 0, PW, PH), rop_SrcCopy).Как отобразится изображение bgpict?
Graphics:translateTransform (20, 10), Graphics:drawRectangleI(Pen, 100, 100, 20, 40)отобразится прямоугольник, левый верхний угол которого будет находиться в точке с координатами
listbox_ctl:addList(["2", "4", "6", "8"]), listbox_ctl:selectAt(2, true)?
listButton_ctl:addList(["Ann", "Bob", "Tom"])?
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).Во второй строке и в третьем столбце таблицы находится элемент
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() не будут выделены элементы списка:
facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 5), rbtree := insert(rbtree, X mod 2, X).Какие пары "ключ – значение" будут содержаться в вершинах дерева 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):
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()?
move() = tuple(I, J):- I = std::fromTo(0, 2), J = std::fromTo(0, 2), math::abs(I - J) >= 1.Сколько решений имеет цель X = move()?
L = [tuple(2, 3, 10), tuple(3, 2, 1), tuple(1, 4, 6), tuple(2, 3, 5)], tuple(_, _, X) = list::maximum(L).
coord() = tuple(I, J):- I = std::fromToInStep(-1, 1, 2), J = std::between(2*I, -I).Сколько решений имеет цель X = coord()?
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):
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))?
listButton_ctl:addList(["1", "3", "5"]),listButton_ctl:selectAt(1, true)?
L = [tuple(5, 2, 1), tuple(4, 5, 10), tuple(2, 6, 9), tuple(3, 8, 5)], X = list::maximum(L).
facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 10), rbtree := insert(rbtree, X mod 2, X).Сколько вершин будет содержать дерево rbtree в результате вызова create()?
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).В третьей строке и в третьем столбце таблицы находится элемент
facts rbtree : tree{integer, integer} := emptyUnique(). clauses create():- X = std::fromTo(1, 10), rbtree := insert(rbtree, X, X mod 2).Сколько вершин будет содержать дерево rbtree в результате вызова create()?
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)?
L = [tuple(2, 3, 8), tuple(3, 2, 1), tuple(1, 4, 9), tuple(4, 5, 5)], tuple(_, X, _) = list::minimum(L).
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()?
onPaint(_Source, _Rectangle, GDI):- GDI:pictDraw(bgpict, pnt(0, 0), rop_SrcCopy).Как отобразится изображение bgpict?
coord() = tuple(I, J):- I = std::fromToInStep(-1, 1, 2), J = std::betweenInStep(I, -I, 2).Сколько решений имеет цель X = coord()?
onPaint(_, _, GDI):- getClientSize(W, H), GDI:drawArc(rct(0, 0, W, H), pnt(W div 2, 0), pnt(W div 2, H)).Дуга отображается
onPaint(_, _, GDI):- GDI:clear(color_Green), GDI:clear(color_Red) .В результате вызова подцели invalidate() клиентская область окна будет закрашена
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(_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)).Что произойдет после щелчка мыши?
onFileNew(_Source, _MenuTag):- vpiCommonDialogs::note("Hello!"), _ = drawForm::display(This), setText("Hello, World!").Пользователь выбрал команду меню File -> New. Где и когда появится текст "Hello, World!")?
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() будут выделены элементы списка:
onFileNew(_Source, _MenuTag):- vpiCommonDialogs::note("Hello, World!"), Form = drawForm::display(This), Form:setText("Hello!").Пользователь выбрал команду меню File -> New, а потом закрыл окно Note. Где будет выведен текст "Hello!")?
listbox_ctl:addList([toString(I) || I = std::fromTo(1, 5)]), listbox_ctl:selectAt(1, true)?
move() = tuple(I, J):- I = std::fromTo(0, 2), J = std::fromTo(0, 2), math::abs(I - J) = 2.Сколько решений имеет цель X = move()?
vpi::rectPntInside(Rect, pnt(50, 100)) завершится успехом:
coord() = tuple(I, J):- I = std::fromTo(-1, 1), J = std::between(I, -2*I).Сколько решений имеет цель X = coord()?
Graphics:translateTransform(200, 200), Graphics:rotateTransform(90), Graphics:drawRectangleI(Pen, 0, 0, 40, 20)отобразится прямоугольник, левый верхний угол которого будет находиться в точке с координатами
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
neighbor2(tuple(I, J)) = tuple(I, J + std::fromToInStep(-2, 2, 4)).Укажите решение для цели L = [X || X = neighbor2(tuple(2, 2))]:
listButton_ctl:addList(["Alpha", "Beta", "Gamma"]),listButton_ctl:selectAt(0, true)?
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):