Лабораторная работа № 11. Линейные массивы. Задачи на вставку/удаление элементов Вариант 1.
Содержание
Практика
Объем
6 лист.
Год написания
Данной работы в готовом виде нет. Вы можете заказать написание работы под вашу тему.
ЗАКАЗАТЬ
Описание работы
Работа пользователя Canadets
I. Дана программа, решающая определенную задачу.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
1. Type LinMass = array [1..1000] of Integer;
Var A : LinMass; N, i, j : Integer;
begin
Write('Количество элементов массива: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[i]);
End;
i:=1;
while i <= n do
if A[i] mod 2 <> 0
then begin
for j:=n downto i+1 do A[j+1]:=A[j];
n:=n+1;
a[i+1]:=a[i];
i:=i+2
end
else i:= i+1;
For I := 1 To N Do write(a[i]:6);
end.
II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
Var A : LinMass; N, i, j : _______; B, C: ________;
begin
Write('Количество элементов массива: '); ReadLn(N);
Write('Границы диапазона: '); ReadLn(_____);
For I := 1 To ____ Do
Begin
Write('Введите A[', I, '] '); ReadLn(____);
End;
i:=1;
while i <= n do
if (A[i]>____) and (A[i]<____) and (A[i]_____)
then begin
for j:=i+1 to n do A[j-1]:=A[j];
n:=n-1
end
else i:= i+1;
For I := 1 To N Do
write(a[i]:6);
end.
III. Решить задачу на вставку в массив. Привести несколько тестовых наборов данных для проверки работоспособности программы.
1. Дан целочисленный линейный массив. Вставить в него заданное число после первого отрицательного элемента.
IV. Решить задачу на удаление элемента/элементов из массива. Привести несколько тестовых наборов данных для проверки работоспособности программы.
Решены все задачи на Pascal
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
1. Type LinMass = array [1..1000] of Integer;
Var A : LinMass; N, i, j : Integer;
begin
Write('Количество элементов массива: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[i]);
End;
i:=1;
while i <= n do
if A[i] mod 2 <> 0
then begin
for j:=n downto i+1 do A[j+1]:=A[j];
n:=n+1;
a[i+1]:=a[i];
i:=i+2
end
else i:= i+1;
For I := 1 To N Do write(a[i]:6);
end.
II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
- Дан линейный массив. Изменить массив, вычеркнув из него все элементы, попадающие в диапазон от В до С и кратные 5.
Var A : LinMass; N, i, j : _______; B, C: ________;
begin
Write('Количество элементов массива: '); ReadLn(N);
Write('Границы диапазона: '); ReadLn(_____);
For I := 1 To ____ Do
Begin
Write('Введите A[', I, '] '); ReadLn(____);
End;
i:=1;
while i <= n do
if (A[i]>____) and (A[i]<____) and (A[i]_____)
then begin
for j:=i+1 to n do A[j-1]:=A[j];
n:=n-1
end
else i:= i+1;
For I := 1 To N Do
write(a[i]:6);
end.
III. Решить задачу на вставку в массив. Привести несколько тестовых наборов данных для проверки работоспособности программы.
1. Дан целочисленный линейный массив. Вставить в него заданное число после первого отрицательного элемента.
IV. Решить задачу на удаление элемента/элементов из массива. Привести несколько тестовых наборов данных для проверки работоспособности программы.
- 1. Дан целочисленный линейный массив. Удалить из него k-й элемент, если этот элемент — четное число, в противном случае удалить (k+1)-й.
Решены все задачи на Pascal