В одномерном массиве отрицательные элементы, имеющие четный порядковый номер, переписать в начало массива

@ВикторБл · Регистрация: 14.01.2016

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

Пожалуйста помогите! В Турбо Паскале вроде всё понятно, а решить лабораторную не могу...
Задача выглядит так:
В одномерном массиве отрицательные элементы, имеющие
четный порядковый номер, переписать в начало массива.
При этом дополнительных массивов не создавать и ввод массива вручную.
И если можно то с комментариями по перестановки элементовю
Благодарю заранее!

@ZX Spectrum-128 · 14.01.2016, 17:05

Все положительные элементы массива, имеющие четный порядковый номер, переписать в начало массива

@ВикторБл · 15.01.2016, 11:39 **[ТС]**

Благодарю за помощь!
Но проблема не решилась.
Всё те же проблемы в перестановке элементов массива.
Пишет ошибку проверки диапазона...

@ZX Spectrum-128 · 15.01.2016, 17:53

Pascal

const
  n=10;
var
  a:array[1..n] of integer;
  i,j,k,q:integer;
begin
  for i:=1 to n do
    readln(a[i]);
  writeln('Исходный массив: ');
  for i:=1 to n do
    write(a[i],' ');
  writeln;
  j:=1;i:=2;
  while i<=n do
    begin
      if (a[i]<0) then
        begin
          inc(j);
          q:=a[i];
          for k:=i downto j do
            a[k]:=a[k-1];
          a[j-1]:=q;
        end;
        inc(i,2)
    end;
  writeln('Полученный массив: ');
  for i:=1 to n do
    write(a[i],' ');
  readln;
end.

Добавлено через 2 минуты

Сообщение от ВикторБл

Пишет ошибку проверки диапазона...

Никто уже ничего не пишет. Да и раньше не было никакой ошибки. Я только написал ввод ручную и поменял знак.
Программа та же самая.
Так что, что-то вы самостоятельно накосячили.

@ВикторБл · 15.01.2016, 18:42 **[ТС]**

Благодарю за повторную помощь!
А могут быть проблемы из-за того,
что у меня система W7 64-х битная?

@ZX Spectrum-128 · 15.01.2016, 18:52

Вы же написали, что...

Пишет ошибку проверки диапазона...

Вряд ли разрядность системы влияет.
Вы вообще в чем работаете?
Официальный bp7+dosbox (либо какой иной эмулятор msdos)? Или какой-нибудь криворукосклёпанный скулпак?

@ВикторБл · 16.01.2016, 14:37 **[ТС]**

Дистрибутив называется School Pack.
Скачал с RuTracker.
Работаю в DOSBox 0.72, Cpu Cycles BP.
Полностью русифицированный.
Подскажите где взять более уверенную версию?
Заранее благодарен.

@ZX Spectrum-128 · 17.01.2016, 10:31

http://pascal.sources.ru/museum/bp7.htm

@ВикторБл · 17.01.2016, 12:20 **[ТС]**

Оказывается есть разница для BP7 в разрядности W7. Дистрибутив с указанного адреса после установки в моей W7x64 не запускается. Пишет, что он не для 64-х, а для 32-х битной версии. Существует ли BP7 способный правильно работать на W7x64 или придётся перейти на х86?

ФедосеевПавел · 17.01.2016, 13:41

ВикторБл, смотрите.
BP7 прекратил развитие в операционке DOS, и его исполняемые файлы невозможно напрямую запустить в других ОС (ни в Windows, ни в Linux, ни в iOS, ни в Android). Для его запуска в ОС Windows 7 нужно установить виртуальную машину с ОС DOS (DOSBox или другую). Т.к. вы ещё не готовы к работе по настройке виртуальной машины, но вам в школе преподают именно BP7, могу порекомендовать установить современный эквивалент - FreePascal. Причины - те же, что и в Не нажимаются клавиши = и одинарные кавычки с клавиатуры ноутбука в Pascal SchoolPak.

@zheegun · 21.01.2016, 19:50

Сообщение от ZX Spectrum-128

const n=10; var a:array[1..n] of integer; i,j,k,q:integer; begin for i:=1 to n do readln(a[i]); writeln('Исходный массив: '); for i:=1 to n do write(a[i],' '); writeln; j:=1;i:=2; while i<=n do begin if (a[i]<0) then begin inc(j); q:=a[i]; for k:=i downto j do a[k]:=a[k-1]; a[j-1]:=q; end; inc(i,2) end; writeln('Полученный массив: '); for i:=1 to n do write(a[i],' '); readln; end

у меня тоже пишет ОШИБКА проверки диапазона 201, наверно это прога для паскаля АБЦ

@ZX Spectrum-128 · 21.01.2016, 19:58

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

наверно это прога для паскаля АБЦ

Нет, я проверял в FPC в режиме совместимости с TP.

ФедосеевПавел · 21.01.2016, 20:24

zheegun, попробуйте выполнить программу по шагам и посмотреть, какая переменная в какой строке вызывает ошибку.
И ещё - приложите именно вашу программу, а не цитату. Т.к. я также скомпилировал и неоднократно запускал программу из #2 и сообщение о какой либо ошибке не подтверждаю.

@ВикторБл 0 / 0 / 0 Регистрация: 14.01.2016 Сообщений: 9
		1
	В одномерном массиве отрицательные элементы, имеющие четный порядковый номер, переписать в начало массива 14.01.2016, 15:09. Показов 1804. Ответов 12 Метки нет (Все метки) Пожалуйста помогите! В Турбо Паскале вроде всё понятно, а решить лабораторную не могу... Задача выглядит так: В одномерном массиве отрицательные элементы, имеющие четный порядковый номер, переписать в начало массива. При этом дополнительных массивов не создавать и ввод массива вручную. И если можно то с комментариями по перестановки элементовю Благодарю заранее! 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	14.01.2016, 17:05	2
	Все положительные элементы массива, имеющие четный порядковый номер, переписать в начало массива 0

@ВикторБл 0 / 0 / 0 Регистрация: 14.01.2016 Сообщений: 9
	15.01.2016, 11:39 [ТС]	3
	Благодарю за помощь! Но проблема не решилась. Всё те же проблемы в перестановке элементов массива. Пишет ошибку проверки диапазона... 0

@ВикторБл 0 / 0 / 0 Регистрация: 14.01.2016 Сообщений: 9
	15.01.2016, 18:42 [ТС]	5
	Благодарю за повторную помощь! А могут быть проблемы из-за того, что у меня система W7 64-х битная? 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	15.01.2016, 18:52	6
	Вы же написали, что... Пишет ошибку проверки диапазона... Вряд ли разрядность системы влияет. Вы вообще в чем работаете? Официальный bp7+dosbox (либо какой иной эмулятор msdos)? Или какой-нибудь криворукосклёпанный скулпак? 0

@ВикторБл 0 / 0 / 0 Регистрация: 14.01.2016 Сообщений: 9
	16.01.2016, 14:37 [ТС]	7
	Дистрибутив называется School Pack. Скачал с RuTracker. Работаю в DOSBox 0.72, Cpu Cycles BP. Полностью русифицированный. Подскажите где взять более уверенную версию? Заранее благодарен. 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	17.01.2016, 10:31	8
	http://pascal.sources.ru/museum/bp7.htm 0

@ВикторБл 0 / 0 / 0 Регистрация: 14.01.2016 Сообщений: 9
	17.01.2016, 12:20 [ТС]	9
	Оказывается есть разница для BP7 в разрядности W7. Дистрибутив с указанного адреса после установки в моей W7x64 не запускается. Пишет, что он не для 64-х, а для 32-х битной версии. Существует ли BP7 способный правильно работать на W7x64 или придётся перейти на х86? 0

ФедосеевПавел Модератор 8536 / 4388 / 1651 Регистрация: 01.02.2015 Сообщений: 13,638 Записей в блоге: 9
	17.01.2016, 13:41	10
	ВикторБл, смотрите. BP7 прекратил развитие в операционке DOS, и его исполняемые файлы невозможно напрямую запустить в других ОС (ни в Windows, ни в Linux, ни в iOS, ни в Android). Для его запуска в ОС Windows 7 нужно установить виртуальную машину с ОС DOS (DOSBox или другую). Т.к. вы ещё не готовы к работе по настройке виртуальной машины, но вам в школе преподают именно BP7, могу порекомендовать установить современный эквивалент - FreePascal. Причины - те же, что и в Не нажимаются клавиши = и одинарные кавычки с клавиатуры ноутбука в Pascal SchoolPak. 0

@zheegun 0 / 0 / 0 Регистрация: 09.01.2016 Сообщений: 1
	21.01.2016, 19:50	11
	Сообщение от ZX Spectrum-128 const n=10; var a:array[1..n] of integer; i,j,k,q:integer; begin for i:=1 to n do readln(a[i]); writeln('Исходный массив: '); for i:=1 to n do write(a[i],' '); writeln; j:=1;i:=2; while i<=n do begin if (a[i]<0) then begin inc(j); q:=a[i]; for k:=i downto j do a[k]:=a[k-1]; a[j-1]:=q; end; inc(i,2) end; writeln('Полученный массив: '); for i:=1 to n do write(a[i],' '); readln; end у меня тоже пишет ОШИБКА проверки диапазона 201, наверно это прога для паскаля АБЦ 0

	21.01.2016, 20:24

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	21.01.2016, 19:58	12
	Сообщение от zheegun наверно это прога для паскаля АБЦ Нет, я проверял в FPC в режиме совместимости с TP. 0