Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

IF(POS('ПРОГРАММИР',NAZ)<>0) AND

(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; просмотров: 12 | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2021 год. (0.008 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав