Можете объяснить за что отвечает xsearch?

236с 4 апр. 2020 г., 00:00:23

Толком не понятно что делает программа учитывая то, что скорее всего она работает не верно

Исправлены искажения текста перетягиванием или еще как - то, изза чего была написала белиберда

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.

Gribaneva 19 февр. 2020 г., 20:46:42 | 10 - 11 классы

Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 3 * (x - 8) * (x - 8) end ; begin ?

Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 3 * (x - 8) * (x - 8) end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R) then begin M : = t ; R : = F(t) end end ; write(M) ; end.

Оорр1 6 мар. 2020 г., 00:18:39 | 5 - 9 классы

Program mimi ;var a, b : integer ;beginreadln (a) ;if 99 < ; a < ; thenwriteln('Неверно')elseif a> ; 999 thenwriteln('Неверно')elsewriten('Верно')end?

Program mimi ;

var a, b : integer ;

begin

readln (a) ;

if 99 < ; a < ; then

writeln('Неверно')

else

if a> ; 999 then

writeln('Неверно')

else

writen('Верно')

end.

Выдаёт : pas(5) : Ожидался идентификатор

Что не так?

Sonyatoropchina 24 мар. 2020 г., 12:41:52 | 10 - 11 классы

Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ]?

Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ].

Вот программа : program yyy ; function prost(var x : integer) : boolean ; var k, i : integer ; t : boolean ; begin t : = true ; k : = 0 ; for i : = 1 to x do begin if x mod i = 0 then k : = k + 1 ; end ; if k = 2 then t : = true else t : = false ; prost : = t end ; var n, m, i : integer ; begin writeln('1') ; readln(n) ; writeln('2') ; readln(m) ; for i : = n to m - 1 do begin if prost(i) and prost(i + 2) then writeln(i , (i + 2)) ; end ; end.

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

Program TELESHOP ; var x : real ; begin writeln ('?

Program TELESHOP ; var x : real ; begin writeln ('.

') ; write ('.

') ; write ('.

') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.

') ; writeln ('.

') ; end else begin writeln ('.

') ; end ; * else begin writeln ('.

') ; end end.

* - место ошибки.

"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?

Schevvaleria 3 окт. 2020 г., 20:32:02 | 10 - 11 классы

EGE #11 procedure F(n : integer) ; begin if n > ; 0 then G(n - 1) ; end ; procedure G(n : integer) ; begin writeln(' * ') ; if n > ; 1 then F(n - 3) ; end ; На выходе у меня 1 " * " Правильно ли?

EGE #11 procedure F(n : integer) ; begin if n > ; 0 then G(n - 1) ; end ; procedure G(n : integer) ; begin writeln(' * ') ; if n > ; 1 then F(n - 3) ; end ; На выходе у меня 1 " * " Правильно ли?

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;

Treio 28 авг. 2020 г., 11:10:47 | 10 - 11 классы

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for ?

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R ) then begin M : = t ; R : = F(t) end end ; write(M) ; end.

Dascha16 8 апр. 2020 г., 09:25:32 | 10 - 11 классы

Дана рекурсивная функция : function f(n : integer) : integer ; begin if n> ; 100 then f : = n - 10 else f : = f(f(n + 11)) end ; Вычислите f(96)?

Дана рекурсивная функция : function f(n : integer) : integer ; begin if n> ; 100 then f : = n - 10 else f : = f(f(n + 11)) end ; Вычислите f(96).

Tany15 22 мар. 2020 г., 19:31:20 | 10 - 11 классы

Записаны 2 рекурсивные функции, F и G?

Записаны 2 рекурсивные функции, F и G.

Function F(n : integer) : integer ; begin if n> ; 2 then F : = F(n - 1) + G(n - 2) else F : = n ; end ; function G(n : integer) : integer ; begin if n> ; 2 then G : = G(n - 1) + F(n - 2) else G : = n + 1 ; end ;

Чему будет равно значение, вычисленное при выполнении вызова F(6)?

EKATERLINS 24 дек. 2020 г., 05:33:05 | 5 - 9 классы

Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, N, P : integer ; Function F(x : integer) : integer ; begin F : = 16 * (9 - x) * (9 - x) + 127 ; end?

Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, N, P : integer ; Function F(x : integer) : integer ; begin F : = 16 * (9 - x) * (9 - x) + 127 ; end ; BEGIN a : = - 25 ; b : = 25 ; P : = 130 ; N : = 0 ; for t : = a to b do begin if (F(t) > ; P) then begin N : = N + 1 ; end ; end ; write(N) ; END.