6. Условный оператор Часть I

1. Чему будет равна переменная y после выполнения следующих операторов:

   a) x:=5; y:=0; if x>0 then y:=1;	b) x:=-10; y:=1; if x>0 then y:=3; y:=2*y;
   c) x:=10; y:=0; if x>0 then y:=1 else y:=2;	d) x:=10; y:=0; if x>0 then y:=1 else y:=2;
   e) x:=-10; y:=1; if x>0 then begin y:=3; y:=2*y; end;	f) x:=10; if (x>0) and (x<5) then begin y:=2; y:=10*y; end else begin y:=5; y:=20-y; end;

2. Верны ли операторы:

   a) if x>0 then x:=2 else; y:=x+1;	d) if 1<x and x<2 then begin x:=x+1; y:=0 end; else begin x:=0; y:=y+1 end;
   b) if odd(k) then else k:=0;
   c) if 1<x<2 then x:=x+1; y:=0; else x:=0; y:=y+1;

3. Написать операторы, реализующие данные блок-схемы:

   a ) a:=max(x, y);	c ) k:=номер четверти (x, y)
   b ) a:=max(x, y); b:=min(x, y)

4. Какое значение будет иметь переменная z после выполнения операторов

z:=0; if x>0 then if y>0 then z:=1 else z:=2;

при следующих значениях переменных x и y:

a) x=y=1; b) x=1, y=-1; c) x=-1, y=1.

5. Записать указанное действие в виде одного условного оператора:

6. Написать программы для решения следующих задач:

   значения переменных a, b и c поменять местами так, чтобы оказалось

7. Написать программу: даны числа a, b и c ( ). Найти вещественные корни уравнения . Если корней нет, то сообщить об этом.

Часть II

1. Допустимы ли в Паскале следующие составные операторы?

a) begin end; b) begin x:=0 end; c) begin ; end.

2. Для вещественных x, y, z вычислить

3. Даны целые k, l. Если числа не равны, то заменить каждое из них на max(k, l), а если равны, то заменить нулями.

4. Записать действие в виде одного условного оператора:

5. Написать программу: даны произвольные числа a, b, c. Если нельзя построить треугольник с такими длинами сторон – напечатайте 0, иначе напечатать 3, 2, 1 в зависимости от того, равносторонний это треугольник, равнобедренный или какой-либо иной. Для справки: условия существования треугольника: .

6. Дано число x. Напечатать в порядке возрастания значения cos(x), 1+|x|, .

7. Циклы с заданным числом итераций Часть I

1. Определить значение переменной s после выполнения следующих операторов. Ответ пояснить.

   1. s:=0; for i:=1 to 5 do s:=s+i;

   2. s:=0; for i:=1 to 10 do if odd(i) then s:=s+i;

   3. s:=0; for i:=-3 to 3 do begin if i<0 then k:=-i else k:=i; s:=s+k; end;

   4. s:=100; for i:=5 downto 2 do s:=s div i;

2. Определить значение переменной s после выполнения следующих операторов. Ответ пояснить.

   1. s:=1; n:=1; for i:=2 to n do s:=s+1/i

   2. s:=110; for i:=4 downto 2 do s:=s div i;

3. var k, i:integer; x, y:real;

Найти ошибки в следующем фрагменте программы:

1. y:=0; for x:=0.1 to 0.9 do y:=y+sin(x);

2. k:=81; y:=1; for i:=1 to sqrt(k) do y:=2*y;

3. k:=0; for i:=1 to 9 do k:=k+sqr(i); k:=k*i;

4. k:=1; for i:=1 to 64 do begin i:=2*i; k:=k+i end.

1. Сколько раз будет выполняться тело следующего оператора цикла?

k:=0; for i:=1 to k+3 do k:=k+1;

5. Программа. Дано 100 вещественных чисел.

   1. Вычислить максимальное из них;

   2. Вычислить разность между максимальным и минимальным из них.

6. Программа. Имеется целое k>0. Вычислить k-й член последовательности {x}, где x₁=1 и x_n=nx_n-1 +1/n при n=2, 3, 4...

7. Программа. Вычислить: y=sin1+sin1.1+sin1.2+...+sin2

8. Программа. Вычислить:

9. Программа. Дано 100 вещественных чисел. Определить, образуют ли они возрастающую последовательность.

10. Программа. Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей.