Вычислить площадь прямоугольника по координатам вершин pascal.

Вvisual basic на форме нужно создать текстовое поле label1 со свойством wordwrap = true, то есть многострочное поле, размер нужно задать, чтобы поместилась вся матрица. sub matrix dim f() as integer ' объявляем динамический массив dim m as integer, i as integer, k as integer, t as string ' и переменные m = inputbox ("vvedite razmer matrix") ' задаем размер массива redim f(m, m) ' определяем размер массива for i = 1 to m    ' ввод данных       for k = 1 to m           t = "vvedite element matrix" & str(i) & "," & str(k)           f(i, k) = inputbox (t)       next k next i for i = 1 to m       f(i, i) = 0 ' обнуляем элементы главной диагонали. next i for i = 1 to m       for k = 1 to m  ' вывод строки данных через табуляцию           label1.caption = label1.caption & f(i, k) & chr(9)       next k       label1.caption = label1.caption & vbcrlf ' переход на следующую строку next i end sub

Так как кузнечик должен вернуться в начало, то после выполнения цикла он должен быть в координате (6, 4) так как цикл повторяется 2 раза, то можем посчитать приращение в коодринатах (3, 2) + (2, 1) = (5, 3) * 2 = (10, 6) теперь узнаем, сколько надо пройти кузнечику командой 1 (10, 6) - (6, 4) = (4, 2) так как цикл повторяется 2 раза, то разделим на 2 (4, 2) = (2, 1) так как (10, 6) больше чем (6. 4) по обеим координатам - меняем знаки у обеих координат и получаем (-2, -1) ну а вообще можно посмотреть на координаты и увидеть, что (3, 2) * 2 и есть (6, 4) - значит делаем противоположную команду для "сместиться на (2, 1)", то есть "сместиться на (-2, -1)" ответ: сместиться на (-2, -1)