1.5 Тестирование
Вводится массив из трех чисел 0,1 и 2, проверяя корректность работы программы. Программа ведёт себя корректно.
1:
Perestanovka massiva
Ishodniy massiv
2 1 0 2 2 2 0 1 1 0 2 0 1 2 0
Noviy massiv
1 1 1 1 2 2 2 2 2 2 0 0 0 0 0
Задание 6:
8. Дан неупорядоченный массив целых чисел. Удалить в нем все элементы, встречающиеся более 1 раза.
1.1Работа программы
Вводятся исходные данные: массив оператором random.
1.2Назначение переменных
Назначение переменных, используемых в задаче, приведено в таблице 6.
Таблица 6 – Назначение переменных
|
Переменная |
Тип |
Назначение |
|
n |
integer |
Десятичное число |
|
a, b |
integer |
Массивы |
|
i |
integer |
Номер элемента 1 массива |
|
j |
integer |
Номер элемента 2 массива |
|
h |
integer |
Количество повторов |
1.3Блок – схема алгоритма программы
Рис. 4 Блок схема алгоритма программы
1.4 Текст программы
program prim_deistvi_nad_massivami;
const
n=10;
var i, j, h: integer;
a: array [1..n] of integer;
b: array [1..n] of integer;
begin
h:=0;
randomize;
writeln ('Действия над массивами');
writeln ('Исходный массив ');
for i:=1 to n do begin
a [i]:=random(10);
write (a[i]:3,' ');
end;
writeln;
for i:=1 to n do begin
b [i]:=a[i];
end;
writeln;
writeln ('Novii massiv');
for i:=1 to n do begin
h:=0;
for j:=1 to n do
if a[i]=b[j] then
h:=h+1;
if h<2 then write (a[i]:3,' ');
end;
readln;
end.
1.5 Тестирование
Вводится массив, проверяя корректность работы программы. Программа ведёт себя корректно.
1:
Действия над массивами
Исходный массив
10 3 5 4 6 4 2 7 5 3
Novii massiv
10 6 2 7