Можете объяснить за что отвечает program c4; var n: integer; x, y: integer; xmin, xmax: integer; xsearch: boolean; ymin, ymax: integer; i: integer; s: real; begin xsearch : = true; xmin : = 0; xmax : = 0; ymin: =0; ymax : = 0; readln(n); for i: =1 to n do begin readln(x,y); if y=0 then begin if xsearch or (xif xsearch or (x> xmax) then xmax: =x; xsearch: =false; end else if yelse if y> ymax then ymax: =y end; if (xmax> xmin) and (ymin< 0) and (ymax> 0) then s : = (xmax-xmin)*(ymax-ymin)/2 else s : = 0; writeln(s); end.
233
299
Ответы на вопрос:
Толком не понятно что делает программа учитывая то, что скорее всего она работает не верно исправлены искажения текста перетягиванием или еще как-то, изза чего была написала белиберда xsearch походу указывает на то, надо ли присваивать начальное значение xmax или оно уже присвоенно var n: integer; x, y: integer; xmin, xmax: integer; xsearch: boolean; ymin, ymax: integer; i: integer; s: real; begin xsearch : = true; xmin : = 0; xmax : = 0; ymin : = 0; ymax : = 0; readln(n); for i : = 1 to n do begin readln(x, y); if y = 0 then begin if xsearch or (x > xmax) then xmax : = x; xsearch : = false; end else if y > ymax then ymax : = y end; if (xmax > xmin) and (ymin < 0) and (ymax > 0) then s : = (xmax - xmin) * (ymax - ymin) / 2 else s : = 0; writeln(s); end.
Популярно: Информатика
-
flelf07.07.2020 09:15
-
FWEAAFE02.11.2020 00:39
-
bushukova16bk04.08.2021 00:40
-
gv8ux17.02.2022 02:17
-
temson1929.01.2023 17:36
-
Яринка0504.03.2023 03:48
-
Karina90206.02.2022 16:55
-
olmilevskaya108.05.2022 11:17
-
aygul08107112.12.2022 04:15
-
grigorijperever06.12.2022 08:36