Лабораторная работа № 11. Линейные массивы. Задачи на вставку/удаление элементов Вариант 9. Pascal
Описание работы
Работа пользователя И. Нестеров
I. Дана программа, решающая определенную задачу.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
9. 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
begin
for j:=n downto i+1 do A[j+1]:=A[j];
n:=n+1;
a[i+1]:=0;
i:=i+2
end;
For I := 1 To N Do write(a[i]:6);
end.
I. Дана программа, решающая определенную задачу.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
9. 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
begin
for j:=n downto i+1 do A[j+1]:=A[j];
n:=n+1;
a[i+1]:=0;
i:=i+2
end;
For I := 1 To N Do write(a[i]:6);
end.
III. Решить задачу на вставку в массив. Привести несколько тестовых наборов данных для проверки работоспособности программы.
9. Дан целочисленный линейный массив. Вставить число a между всеми соседними элементами, имеющими одинаковое количество цифр.
IV. Решить задачу на удаление элемента/элементов из массива. Привести несколько тестовых наборов данных для проверки работоспособности программы.
9. Дан целочисленный линейный массив. Удалить из него все элементы, кратные 3 или 5.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
9. 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
begin
for j:=n downto i+1 do A[j+1]:=A[j];
n:=n+1;
a[i+1]:=0;
i:=i+2
end;
For I := 1 To N Do write(a[i]:6);
end.
I. Дана программа, решающая определенную задачу.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
9. 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
begin
for j:=n downto i+1 do A[j+1]:=A[j];
n:=n+1;
a[i+1]:=0;
i:=i+2
end;
For I := 1 To N Do write(a[i]:6);
end.
III. Решить задачу на вставку в массив. Привести несколько тестовых наборов данных для проверки работоспособности программы.
9. Дан целочисленный линейный массив. Вставить число a между всеми соседними элементами, имеющими одинаковое количество цифр.
IV. Решить задачу на удаление элемента/элементов из массива. Привести несколько тестовых наборов данных для проверки работоспособности программы.
9. Дан целочисленный линейный массив. Удалить из него все элементы, кратные 3 или 5.