Вам предлагается два задания с похожими условиями: задание А и задание

Решение по шагам

1. 1

   Как рассуждать

   Решение. Искомый четырёхугольник состоит из двух треугольников с общим основанием, лежащим на оси Ox, при этом один треугольник лежит выше этой оси, другой - ниже. Площадь четырёхугольника будет максимальной, если вершины на оси Ox будут расположены как можно дальше друг от друга, а вершины, не лежащие на этой оси, — как можно дальше от неё. Программа читает исходные данные, не запоминая все точки в массиве. Для каждой точки проверяется её принадлежность оси Ox (условие y=0). Среди точек, лежащих на оси, необходимо найти наиболее далеко отстоящие друг от друга - они дадут наибольшее возможное общее основание двух треугольников. Это будут точки с наименьшим и наибольшим значением координаты x. Среди точек, не лежащих на оси Ox, надо найти две точки, расположенные по разные стороны от оси и как можно дальше от неё, — они дадут наибольшие возможные значения высот треугольников. Это будут точки с наибольшим положительным инаименьшим отрицательным значением координаты y.Таким образом, задача сводится к нахождению максимального и минимального x среди точек, у которых y=0, максимального и минимального y среди остальных точек и нахождению площади четырёхугольника на основе этих данных.

   Перед выводом результата необходимо убедиться в существовании искомого четырёхугольника. Пример правильной и эффективной программы на языке Паскальprogram c4;varn: integer;x, y: integer;xmin, xmax: integer;xsearch: boolean;ymin, ymax: integer;i: integer;s: real;beginxsearch := true;xmin := 0; xmax := 0;ymin:=0; ymax := 0;readln(n);for i:=1 to n do beginreadln(x,y);if y=0 then beginif xsearch or (x < xmin) then xmin:=x;if xsearch or (x > xmax) then xmax:=x;xsearch:=false;endelse if y < ymin then ymin:=yelse if y > ymax then ymax:=yend;if (xmax>xmin) and (ymin<0) and (ymax>0)then s := (xmax-xmin)(ymax-ymin)/2else s := 0;writeln(s);end. Пример правильной и эффективной программы на языке Бейсик DIM n AS INTEGER DIM x, y AS INTEGER DIM xmin, xmax AS INTEGER DIM xsearch AS INTEGER DIM ymin, ymax AS INTEGER DIM i AS INTEGER DIM s AS DOUBLE xsearch = 1 xmin = 0: xmax = 0 ymin = 0: ymax = 0 INPUT n FOR i = 1 TO n INPUT x, y IF y = 0 THEN IF xsearch = 1 OR x < xmin THEN xmin = x IF xsearch = 1 OR x > xmax THEN xmax = x xsearch = 0 ELSEIF y < ymin THEN ymin = y ELSEIF y > ymax THEN ymax = y END IF NEXT i IF xmax > xmin AND ymin < 0 AND ymax > 0 THEN s = (xmax - xmin) * (ymax - ymin) / 2 ELSE s = 0 END IF PRINT s Пример правильной и эффективной программы на Алгоритмическом языкеалг c4начцел nцел x,yцел xmin=0, xmax=0лог xsearch=дацел ymin=0, ymax=0цел iвещ sввод nнц для i от 1 до nввод x, yесли y=0тоесли xsearch или xесли xsearch или x>xmax то xmax:=x всеxsearch:=нетиначеесли yесли y>ymax то ymax:=y всевсекцесли xmax > xmin и ymin < 0 и ymax > 0то s:=(xmax-xmin)(ymax-ymin)/2иначе s:=0всевывод sкон Пример решения задачи А на языке Паскаль. var coord: array[1..10, 1..2] of integer; {исходные данные} x, y: integer; {координаты очередной точки} xminpos, xmaxpos, yminpos, ymaxpos: integer; {координаты точек четырёхугольника с наибольшей площадью} s: real; {площадь четырёхугольника} i, j: integer;begin xminpos := MaxInt; xmaxpos := -(MaxInt-1); yminpos := MaxInt; ymaxpos := -(MaxInt-1); for i := 1 to 10 do begin read(x, y); coord[i, 1] := x; coord[i, 2] := y; end; for i := 1 to 10 do begin if (coord[i, 2] =