В процедуре удалить из исходного массива элементы с четными индексами

@freakazoid1 · Регистрация: 25.10.2016

Author24 — интернет-сервис помощи студентам

- Ввести произвольную размерность одномерного массива в интервале 1..10.
- Ввести данные (тип данных указан в вариантах) с клавиатуры в виде «Х[i]=», где i – индекс элемента.
- После окончания ввода для контроля данных вывести на экран массив.
- Обработать данные в подпрограмме (тип подпрограммы и способ обработки указан в вариантах) и вывести результат.
- Ввод данных и вывод результатов на экран должны производиться в головной программе, все вычисления – в подпрограммах. Оформить подпрограммы в отдельном модуле. Подключить модуль к головной программе.
- Все символьные элементы считать вводимыми только в нижнем регистре.
- Если результатами вычислений являются вещественные числа, то выводить их с точностью до 1-го знака после точки.

Массив символов. В процедуре удалить из исходного массива элементы с четными индексами. Первый элемент массива считать элементом с индексом 1. Размерность итогового массива должна уменьшиться.

Помогите срочно, пожалуйста

Не знаю на верном пути иду или нет, но вот все,что пока написано

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

Pascal

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.

@bormant · 25.10.2016, 07:44

В модуль lab5m поместите процедуру

Pascal

procedure RemoveEvenIdx(var a: array of Integer; 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;

В программе объявите массив, введите его, выведите, вызовите RemoveEvenIdx, снова выведите массив.

Pascal

uses lab5m;
const mn=10;
var
  a: array [1..mn] of Integer;
  n, i: Integer;
begin
  repeat Write('N [1..',mn,']: '); ReadLn(n); until n in [1..10];
  Write('Элементы: '); for i:=1 to n do Read(a[i]); ReadLn;
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  RemoveEvenIdx(a,n);
  Write('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn;
end.

@freakazoid1 · 25.10.2016, 10:27 **[ТС]**

Не получается, можете сразу конечный результат написать?

@bormant · 25.10.2016, 12:31

Могу. Не буду, продолжайте пробовать. Что именно не получается?

Добавлено через 1 минуту
PS. Тип элемента массива не забудьте на Char поменять.

Добавлено через 1 минуту
Болванка модуля выглядит так:

Pascal

unit lab5m;
interface
{...}
implementation
{...}
end.

@freakazoid1 · 25.10.2016, 14:52 **[ТС]**

Введите размерность массива (1...10):
4
Введите числа
M[1]=2
M[2]=6
M[3]=4
M[4]=5
Массив=[2,6,4,5,0,0,0,0,0,0]
ogram.Main()[END]

Вот это выдает программа, все написал как вы, процедура ничего не выполняет

Pascal

uses lab5m;
var
  a: M;
  n, i: Integer;
begin
   writeln('Введите размерность массива (1...10):');
  read(n);
   if n>10 then writeln('Ошибка') else
 writeln('Введите числа');
   for i:=1 to n do
    begin
     write('M[',i,']=');
     read(a[i]);
    end;
   write('Массив=', a);
   writeln;
  RemoveEvenIdx(a,n);
  writeln;
  Write('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn;
end.

Pascal

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.

@bormant · 25.10.2016, 17:30

Тем не менее, отличия видны невооруженным глазом. Попробуйте устранить их и посмотреть на результат.

@freakazoid1 · 25.10.2016, 17:35 **[ТС]**

различия были в вводе информации, все же у вас были небольшие ошибки или недочеты не знаю как это назвать, но у меня все получилось, спасибо за помощь

@bormant · 26.10.2016, 17:46

Сообщение от freakazoid1

все же у вас были небольшие ошибки или недочеты

Вы ошибаетесь, или пример ошибки/недочета в студию.

Прогон:

Код

N [1..10]: 5
Элементы: 1 2 3 4 5
A = 1 2 3 4 5
A'= 1 3 5

Прогон:

Код

N [1..10]: 6
Элементы: 1 2 3 4 5 6
A = 1 2 3 4 5 6
A'= 1 3 5

Добавлено через 4 минуты
И после замены Integer на Char:
Прогон:

Код

N [1..10]: 5
Элементы: 12345
A = 1 2 3 4 5
A'= 1 3 5

Прогон:

Код

N [1..10]: 6
Элементы: 123456
A = 1 2 3 4 5 6
A'= 1 3 5

В процедуре удалить из исходного массива элементы с четными индексами

Решение

Решение

@freakazoid1 0 / 0 / 0 Регистрация: 25.10.2016 Сообщений: 24
	25.10.2016, 10:27 [ТС]	3
	Не получается, можете сразу конечный результат написать? 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	25.10.2016, 17:30	6
	Тем не менее, отличия видны невооруженным глазом. Попробуйте устранить их и посмотреть на результат. 1

@freakazoid1 0 / 0 / 0 Регистрация: 25.10.2016 Сообщений: 24
	25.10.2016, 17:35 [ТС]	7
	различия были в вводе информации, все же у вас были небольшие ошибки или недочеты не знаю как это назвать, но у меня все получилось, спасибо за помощь 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	26.10.2016, 17:46	8
	Сообщение было отмечено Памирыч как решение Решение Сообщение от freakazoid1 все же у вас были небольшие ошибки или недочеты Вы ошибаетесь, или пример ошибки/недочета в студию. Прогон: Код N [1..10]: 5 Элементы: 1 2 3 4 5 A = 1 2 3 4 5 A'= 1 3 5 Прогон: Код N [1..10]: 6 Элементы: 1 2 3 4 5 6 A = 1 2 3 4 5 6 A'= 1 3 5 Добавлено через 4 минуты И после замены Integer на Char: Прогон: Код N [1..10]: 5 Элементы: 12345 A = 1 2 3 4 5 A'= 1 3 5 Прогон: Код N [1..10]: 6 Элементы: 123456 A = 1 2 3 4 5 6 A'= 1 3 5 0