Полный тестовый набор для переменной вещественного типа, значение которой по условиям решаемой задачи лежит в диапазоне [0..100], может включать тесты со следующими значениями этой переменной:

Полный тестовый набор для переменной целого типа, значение которой по условию решаемой задачи лежит в диапазоне [0..100], может включать тесты со следующими значениями этой переменной:

После завершения работы подпрограммы значение переданной в нее переменной-аргумента может измениться, если соответствующий параметр был:

После завершения работы подпрограммы значение переданной в нее переменной-аргумента не может измениться, если соответствующий параметр был:

Какое значение будет храниться в переменной а:integer после выполнения следующего программного отрывка?

{b: string; p: ^word}b:= ‘ААББВВГГДД’;p:= addr(b[7]);a:= p^;

Какое значение будет храниться в переменной а:shortint после выполнения следующего программного отрывка?

{b: char; p: ^shortint}b:= ‘Б’;p:= addr(b);a:= p^;

Какое значение будет храниться в переменной а:integer после выполнения следующего программного отрывка?

{b: string; p: ^integer}b:= ‘БББ’;p:= addr(b[1]);a:= p^;

Какие значения будет принимать переменная z, в зависимости от значений переменной а?

z:= 0;if a>10   then if a>100         then if a>1000                then z:= 1         else z:= -1  else z:= 10;

Какие значения будет принимать переменная z, в зависимости от значений переменной а?

z:= -1;if a<100  then if a<10         then if a<1                then z:=0         else z:= 10  else z:= 100;

Какие значения будет принимать переменная z, в зависимости от значений переменной а?

z:= -10;if a>0   then if a>100         then if a>200                then z:=0         else z:= 20  else z:=100;

Имеется набор натуральных чисел, быть может, с повторениями. Необходимо разделить его на два поднабора так, чтобы разность сумм весов была минимальной. Эта задача решается рекурсивным методом полного перебора с отсечением (см. ниже). На вход были поданы числа 36 72 45 2 38 96 15 2 2. При какой глубине стека контекстов произойдет завершение работы программы (обращение к завершающей процедуре out())?

{массив а хранит веса всех предметов, в порядке их ввода, half - "большая" половина суммы всех весов, dif - отклонение текущей найденной суммы от half}procedure rec(k: byte; sum: longint; var dif: longint);var i: byte;begin if sum+a[k]<=half        then for i:= k+1 to n do rec(i,sum+a[k],dif)        else if half-sum<dif               then begin                     dif:= half-sum;                    if dif<2 then out(dif){печать и завершение}                   endend;