|
(GOD>1995) THEN WRITELN (AUTOR, NAZ);
<variant>FOR I:=1 TO N DO
WITH MASSVED[I] DO
IF POS('ПРОГРАММИР',NAZ)<>0 AND
(GOD>1995) WRITELN (AUTOR, NAZ);
<variant>FOR I:=1 TO N DO
WITH MASSVED[I] DO
IF('ПРОГРАММИР',NAZ) AND
(GOD>1995) WRITELN (AUTOR, NAZ);
<variant>FOR I:=1 TO N DO
WITH MASSVED DO
IF(POS('ПРОГРАММИР',NAZ)<>0) AND
(GOD>1995) WRITELN (AUTOR, NAZ);
<variant>FOR I:=1 TO N DO
WITH MASSVED DO
IF(NAZ('ПРОГРАММИР')<>0) AND
(GOD>1995) WRITELN (AUTOR, NAZ);
<question>Выберите правильную запись присваивания переменной х значения 1.5:
<variant>х:=1.5
<variant>х =1.5
<variant>х:=1,5
<variant>х:= (1.5)
<variant>х:(1.5)
<question>Укажите вариант определения вхождения подстроки ST в строку ST1
<variant> POS(ST,ST1);
<variant>COPY(ST1,ST1,3);
<variant>LENGTH(ST1);
<variant>INSERT(ST,ST1,6);
<variant>STR(ST,ST1).
<question>Требуется транспонировать массив B[20,20](B[I,J]↔B[J,I])
<variant> FOR I:=1 TO 20 DO
FOR J:=1 TO 20 DO
BEGIN C:= B[I,J]; B[I,J]:= B[J,I]; B[J,I]:=C END;
<variant>FOR I:=1 TO 19 DO
FOR J:=I+1 TO 20 DO
C:= B[I,J]; B[I,J]:= B[J,I]; B[J,I]:=C;
<variant>FOR I:=1 TO 19 DO
FOR J:=1 TO 20 DO
BEGIN C:= B[I,J]; B[I,J]:= B[J,I]; B[J,I]:=C; END;
<variant>FOR I:=1 TO 19 DO
FOR J:=I+1 TO 20 DO
BEGIN C:= B[I,J]; B[J,I]:= C END;
<variant>FOR I:=1 TO 19 DO
FOR J:=I+1 TO 20 DO
BEGIN C:= B[J,I]; B[I,J]:=C END;
<question>Запишите указанное действие в виде условного оператора y=
<variant> IF (x>-2) AND (x<3) then y:=5*EXP(6*LN(x))+SQRT(ABS(EXP(3*LN(X))+1)) ELSE y:=EXP(3*LN(X))-5;
<variant>IF x>-2 AND x<3 then y:=5*EXP(6*LN(x))+SQRT(ABS(EXP(3*LN(X))+1)) ELSE y:=EXP(3*LN(X))-5;
<variant>IF (x>-2) AND (x<3) then y:=5EXP(6*LN(x))+SQRT(ABS(EXP(3*LN(X))+1)) ELSE y:=EXP(3*LN(X))-5;
<variant>IF (x>-2) AND (x<3) then y:=5*EXP(6*LN(x))+SQRT(ABS(EXP(3*LN(X))+1)); ELSE y:=EXP(3*LN(X))-5;
<variant>IF (x>-2) AND (x<3) then y:=5EXP(6*LN(x))+SQRT(ABS(EXP(3*LN(X))+1)) ELSE y:=EXP(3*LN(X))-5;
<question>Что будет напечатано следующей программой
PROGRAM MASB;
VAR B:ARRAY[1..10] OF INTEGER;
L, I: INTEGER;
BEGIN L:=1;
FOR I:=1 TO 20 DO
IF ODD(I) THEN
BEGIN
B[L]:=sqr(I);
L:=L+1;
END;
FOR L:=1 TO 10 DO
WRITE(B(L):4)
END.
<variant> 4 16 36 64 100 144 196 256 324 400
<variant>1 9 25 49 81 121 169 225 289 361
<variant>1 25 81 169 289
<variant>4 36 100 196 324
<variant>1 4 9 16 25 36 49 64 81 100
<question>Сколько раз будет выполнятся тело следующего оператора цикла?
k:=0;
for i:=1 to k+4 do
k:=k+2;
<variant> 4;
<variant>6;
<variant>8;
<variant>10;
<variant>12.
<question>Назовите функцию, преобразующую элемент строки S и строчной буквы в соответствующую заглавную
<variant> UPCASE(S[I]);
<variant>STR(S,I);
<variant>POS(S[I],I);
<variant>ORD(S[I]);
<variant>LENGTH(S[I]).
<question>Назовите функцию, определяющую текущую длину строковой переменной S.
<variant> LENGTH(S);
<variant>STR(S,I);
<variant>POS (S,I);
<variant>ORD(S);
<variant>UPCASE(S).
<question>Выберите правильный вариант упорядочения массива B[20] по невозрастанию
<variant>FOR I:=1 TO 19 DO
FOR J:=I+1 TO 20 DO
Дата добавления: 2014-12-15; просмотров: 50 | Поможем написать вашу работу | Нарушение авторских прав |