В процедуре удалить из исходного массива элементы с четными индексами - Turbo Pascal
Формулировка задачи:
- Unit modulelab5;
- Interface
- implementation
- var
- mas: array [1..10] of char;
- i,j,n: integer;
- begin
- j:=0;
- n:=0;
- For i:= 1 to 10 do
- begin
- If (mas[i] mod 2 =0) then
- if (i mod 2 = 0) then
- program lab5;
- uses modulelab5, crt;
- var
- a:mas;
- i,j, n: integer;
- begin
- writeln('Введите размерность массива (1...10):');
- read(n);
- if n>10 then writeln('Ошибка') else
- writeln('Введите числа');
- for i:=1 to n do
- begin
- write('a[',i,']=');
- read(a[i]);
- end;
- write('Массив=',a);
- for i:=1 to n do
- write(a[i]:3);
- for i:=n downto 1 do
- if (i mod 2 = 0) then
- begin
- for j:=i to n-1 do
- a[j]:=a[j+1];
- n:=n-1;
- end;
- writeln;
- for i:=1 to n do
- write(a[i]:3);
- readln;
- end.
Решение задачи: «В процедуре удалить из исходного массива элементы с четными индексами»
- unit lab5m;
- Interface
- type
- M = array[1..10] of integer;
- procedure RemoveEvenIdx(var a:M; var n: integer);
- implementation
- procedure RemoveEvenIdx(var a: M; var n: integer);
- var i, j: Integer;
- begin
- i:=0; j:=0;
- while j<n do begin
- a[i]:=a[j]; Inc(i); Inc(j,2);
- end; n:=i;
- end;
- end.
Объяснение кода листинга программы
В данном коде описывается процедура RemoveEvenIdx
, которая принимает два аргумента: переменную a
типа M
, представляющую исходный массив, и переменную n
типа integer
, представляющую количество элементов в массиве.
Внутри процедуры используются две переменные i
и j
типа Integer
. Переменная i
инициализируется значением 0, а переменная j
- значением 0. Затем происходит цикл while, который выполняется до тех пор, пока значение переменной j
меньше значения переменной n
.
Внутри цикла происходит обмен элементов массива с индексами i
и j
. После каждого обмена значения переменных i
и j
инкрементируются на единицу. Значение переменной n
также инкрементируется на единицу после каждого обмена.
После завершения цикла значение переменной n
будет равно значению переменной i
, то есть количество нечетных элементов в массиве.
Таким образом, данная процедура удаляет элементы с четными индексами из исходного массива.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д