Контрольная работа
Вариант 1
1. Составить алгоритм, программу и блок схему для выражения:
.
Проверить при: а) х = -2,1; б) х = 8.
2. Составить программу для решения задачи: задайте целое число; определите, кратно ли оно 10.
Вариант 2
1. Составить алгоритм, программу и блок схему для выражения:
.
Проверить при: а) х = 5; б) х = -3,4.
Составить программу для решения задачи: задайте целое число; определите, является ли оно нечетным.
Вариант 3
Составить алгоритм, программу и блок схему для выражения:
.
Проверить при: а) х = 7,8; б) х = -1.
Составить программу для решения задачи: задайте целое число; определите, кратно ли оно 5.
Вариант 4
1. Составить алгоритм, программу и блок схему для выражения:
.
Проверить при: а) х = 4,5; б) х = -8.
2. Составить программу для решения задачи: задайте целое число; определите, кратно ли оно 7.
Одномерные массивы
1. Продолжите фразу или запишите ответ на поставленный вопрос.
1) Инициализация массива - ____________________________
2) Индекс элемента массива - ____________________________
3) Как правильно задать переменную типа массив?
Туре <идентификатор>= array [<тип индекса>] of <тип компонент>;
Var <идентификатор>: array [<тип индекса>] of <тип компоненту>;
<идентификатор>: array [<тип индекса>];
4) Можно ли использовать для задания переменной индекса массива типы Integer и Real?
5) Массив – __________________________________________ .
6) Как задать тип «массив».
Туре <имя типа>=аггау[1 ..n, 1 ..m] of <тип элемента>;
Var <имя типа>=аггау[1..n, l..m] of <тип элемента>;
Туре <имя типа>= set of <базовый тип>;
2. Запишите объявление массива D из 5 элементов вещественного типа.
3. Запишите фрагмент программного кода на языке Паскаль: «Вывода массива В[n] (где n – количество элементов массива) на экран в строку».
4. Какие из приведенных описаний одномерных массивов правильны?
1) var dim:array [-1. .1] of real;
2) type rnas=array [char] of char;
var beta:mas;
3) type massiv=array['A'..'D']; var a,b:massiv;
4) var k:integer; pak:array[l..k] of integer;
5) const n=50; type mas=array[0..n-l] of real;
var p,r,s,t:mas;
5. Сформулировать задачу, решаемую в предложенном фрагменте программы, где a [i] – элемент массива размерности N. Определить значение массива В, если N = 5, А = (4, 5, 6, 7,8):
f
or
i:=l to n do b[i]:=a[n-i+l];
6. Запишите на языке Паскаль действия, заданные следующим алгоритмом и поясните, что выполняет данный алгоритм (рис. 10).
7. Найти значение переменной К после выполнения программы.
Program Z3_7;
Var A: array[1..6] of integer;
i, k: integer;
begin
for i≔1 to 6 do
A[i]≔(I*9) mod 7;
k≔0;
for i≔1 to 6 do
if A[A[i]]<I then k≔k+1;
write(k);
end.
8. Решите задачу (составьте блок-схему, программу на языке паскаль, выполните тестирование).
Дан одномерный массив Z[N], где значения элементов массива и их количество N вводятся с клавиатуры. Определите максимальный элемент массива и его порядковый номер. Затем отсортируйте массив любым способом. На экран необходимо вывести: исходный массив, значение максимального элемента и его порядковый номер, отсортированный массив.