Вариант 1

1. Формат и алгоритм выполнения оператора выбора Case, Привести пример использования.

2. Дан массив А, состоящий из n-натуральных чисел. Найти элемент массива, сумма цифр которого наибольшая.

Вариант 2

1. Формат и алгоритм выполнения условного оператора If, Привести пример использования.

2. Дана действительная квадратная матрица порядка n. Найти сумму элементов, расположенных в заштрихованной части матрицы

Вариант 3

1. Формат и алгоритм выполнения оператора цикла While, Привести пример использования.

2. Дана действительная квадратная матрица порядка n. Найти сумму элементов, расположенных в заштрихованной части матрицы

Вариант 4

1. Формат и алгоритм выполнения оператора цикла For, Привести пример использования

2. Дана действительная квадратная матрица порядка n. Найти сумму элементов, расположенных в заштрихованной части матрицы

Вариант 5

1. Формат и алгоритм выполнения оператора цикла Repeat, Привести пример использования

2. Дана действительная квадратная матрица порядка n. Найти сумму элементов, расположенных в заштрихованной части матрицы

Вариант 6

1. Заменить приведенный ниже оператор Case другими операторами.

Case m of

1,2,12:write(’Зима’);

3..5:write(’ Весна’);

6..8:write(’Лето’);

9..11:write(’Осень’);

End;

2. Дана последовательность х₁,х₂,…,х_n. Найти наибольший по модулю элемент последовательности с указанием его номера.

Вариант 7

1. Заменить приведенные ниже операторы цикла For операторами While.

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j]:6);

writeln;

end;

2. Даны координаты x_i и y_i n-точек на плоскости. Подсчитать общее количество точек, лежащих в первой и третьей четвертях.

Вариант 8

1. Чему равно значение переменной Y после выполнения фрагмента программы ?

function f(n:byte):longint;

begin

if n<3 then

f:=1

else

f:=f(pred(n))*n

end;

Y:=f(5);

2. Даны две последовательности а₁, а₂,…,а_n и b₁,b₂,…,b_n. Проверить, правда ли, что все а_i > b_i для i=1,2,…,n.

Вариант 9

1. В приведенном фрагменте программы транспонирования квадратной матрицы допущена ошибка. исправьте ее.

for i:=1 to n do

for j:=1 to n do

a[I,j]:=a[j,i];

2. Проверить является ли данная числовая последовательность а₁, a₂,..., a_n возрастающей.

Вариант 10

1. Перечислите стандартные процедуры языка Паскаль над строками, их формат и правила выполнения.

2. Дана последовательность действительных чисел a₁, a₂,...,a_n. Найти сумму членов, удовлетворяющих условию |a_k|>k.

Вариант 11

1. Перечислите стандартные функции языка Паскаль над строками, их формат и правила выполнения.

2. Дана последовательность действительных чисел a₁, a₂,...,a_n. Найти сумму членов, удовлетворяющих условию |a_k|>k.

Вариант 12

1. Определить, что будет выведено на экран:

type

vect=array[1..2] of real;

var

a:vect;

i:integer;

procedure R(var k:integer;var x:real);

begin

k:=2; x:=0;

end;

begin

a[1]:=1; a[2]:=2;

i:=1; R(i,a[i]);

write(a[1]:8:1,a[2]:8:1);

end.

2. Проверить является ли данная числовая последовательность а₁, a₂,..., a_n постоянной (все члены равны между собой).

Вариант 13

1. Заменить приведенные ниже операторы цикла For операторами Repeat.

for i:=n downto 1 do

begin

for j:=1 to m do

write(a[i,j]:6);

writeln;

end;

2. Проверить является ли данная числовая последовательность а₁, a₂,..., a_n неубывающей.

Вариант 14

1. Перечислить операции над множествами в языке Паскаль. Объяснить правила их выполнения.

2. Сложить две треугольные матрицы порядка n, у которых только элементы над главной диагональю отличны от нуля.

Вариант 15