Question

1. Записать логической выражение для следующего условия: Х положителен и отличается от 1 2. Что будет выведено на экран после выполнения фрагмента программы: Begin x:=1; if (x< >1) or (x<10) then y:=6 else y:=0 writeln (y); end. 3. Что будет выведено на экран после выполнения фрагмента программы: Begin a: =12; if (a>10) and (a<12) then n:=a+5 else n:=a+1 writeln (n); end. 4. Что будет выведено на экран после выполнения фрагмента программы: Begin a: =6 ; if (a>10) or (a<6) then n:=a+5 else n:=a-1 writeln (n); end. 5. Дан фрагмент программы, в котором пропущено условие: if (x>0) and ( ...) Then a:=x Else a:=y*2; Вставьте условие так, чтобы при х=2, у=-1 результатом выполнения алгоритма стало значение а=-2 6. Задан массив Х [1...N]. Какой оператор надо поставить вместо многоточия, чтобы найти в переменной S сумму всех элементов массива? S:= 0; for k:=1 to N do begin ... end; 7. Задан массив Х [1...N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму положительных элементов массива? S:= 0; for k:=1 to N do begin if ... then S:= S + X(k) end; 8. Задан массив Х [1...N]. Какой условие надо поставить вместо многоточия, чтобы найти в переменной S сумму элементов массива, которые делятся на 5? S:= 0; for k:=1 to N do begin if ... then S:= S + X(k) end;

Answer 1

Ответ:

1 if(x>0 && x<>1)

2. 6

3. 13

4. 5

5. abs(x)==2

7. X[k]>0

8. X[k] mod 5==0

Answer 2

1. Логическое выражение для условия "X положителен и отличается от 1" можно записать следующим образом: X > 0 and X <> 1.

2. После выполнения этого фрагмента программы:

pascalCopy code
Begin
  x := 1;
  if (x <> 1) or (x < 10) then
    y := 6
  else
    y := 0;
  writeln(y);
End.

На экран будет выведено значение 6, так как условие (x <> 1) or (x < 10) выполняется для x = 1, и в этом случае y устанавливается в 6.

3. После выполнения этого фрагмента программы:

pascalCopy code
Begin
  a := 12;
  if (a > 10) and (a < 12) then
    n := a + 5
  else
    n := a + 1;
  writeln(n);
End.

На экран будет выведено значение 13, так как условие (a > 10) and (a < 12) не выполняется, и программа переходит к ветви else, устанавливая n в a + 1.

4. После выполнения этого фрагмента программы:

pascalCopy code
Begin
  a := 6;
  if (a > 10) or (a < 6) then
    n := a + 5
  else
    n := a - 1;
  writeln(n);
End.

На экран будет выведено значение 5, так как условие (a > 10) or (a < 6) не выполняется, и программа переходит к ветви else, устанавливая n в a - 1.

5. Для получения значения a = -2 при x = 2 и y = -1 нужно вставить следующее условие:

pascalCopy code
if (x > 0) and (y < 0) then
  a := x
else
  a := y * 2;

6. Чтобы найти сумму всех элементов массива X и сохранить ее в переменной S, используйте следующий оператор:

pascalCopy code
S := 0;
for k := 1 to N do
begin
  S := S + X[k];
end;

7. Чтобы найти сумму положительных элементов массива X и сохранить ее в переменной S, используйте следующее условие:

pascalCopy code
if X[k] > 0 then
  S := S + X[k];

8. Чтобы найти сумму элементов массива X, которые делятся на 5, и сохранить ее в переменной S, используйте следующее условие:

pascalCopy code
if X[k] mod 5 = 0 then
  S := S + X[k];