Найти номер последней пары соседних элементов с разными знаками

@wmzvov · Регистрация: 12.12.2008

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

помогите решить задачу пожалуста

: найти номер последней пары соседних элементов с разными знаками

@lexus_ilia · 17.12.2008, 22:39

Ну я, как великий телепат, понял что это одномерный массив, если это так, то предлагаю начать проверку с конца, проверку оформить через цикл:

Код

While (p) and (i>1) do

если найдётся пара которая удволетворяет твоим условиям, то p:=False; и всё

@wmzvov · 17.12.2008, 22:53 **[ТС]**

извеняюсь, забыл: найти номер последней пары соседних элементов с разными знаками в масиве А(n)

Добавлено через 54 секунды
спасибо за подсказку ща попробую

@Puporev · 17.12.2008, 23:06

Код

k:=0;
for i:=n downto 1 do
if a[i]*a[i-1]<0 then
   begin
    write('Eta para s nomerami ',i,' ',i-1);
     readln;
       k:=1;
      exit;
    end;
if k=0 then write('Takoj pary net!');
readln
end.

@Evklid · 17.12.2008, 23:15

Код

write('Eta para s nomerami ',i,' ',i-1);
     readln;
       k:=1;
      exit;

Puporev, а зачем вы присваиваете переменной k значение 1 перед выходом из программы вообще?

@Puporev · 17.12.2008, 23:46

А если пару не встретим, то и выхода не будет и к останется =0, о чем и сообщим., это вместо флага.

Добавлено через 1 минуту 6 секунд
Читать надо до конца.

@Sadvakasov · 31.03.2012, 23:13

...

Delphi

      begin
      e:=a[i+1];
      if (e>0) and (a[i]<0) and (e<>0) and (a[i]<>0) and (n-1>i)
      then Edit3.Text:=IntToStr(i+1)+' и '+IntToStr(i+2);
      if (e<0) and (a[i]>0) and (e<>0) and (a[i]<>0) and (n-1>i)
      then Edit3.Text:=IntToStr(i+1)+' и '+IntToStr(i+2);
      end;

...

@wmzvov 0 / 0 / 0 Регистрация: 12.12.2008 Сообщений: 5
		1
	Найти номер последней пары соседних элементов с разными знаками 17.12.2008, 22:29. Показов 5414. Ответов 6 Метки нет (Все метки) помогите решить задачу пожалуста: найти номер последней пары соседних элементов с разными знаками 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	17.12.2008, 22:39	2
	Ну я, как великий телепат, понял что это одномерный массив, если это так, то предлагаю начать проверку с конца, проверку оформить через цикл: Код While (p) and (i>1) do если найдётся пара которая удволетворяет твоим условиям, то p:=False; и всё 0

@wmzvov 0 / 0 / 0 Регистрация: 12.12.2008 Сообщений: 5
	17.12.2008, 22:53 [ТС]	3
	извеняюсь, забыл: найти номер последней пары соседних элементов с разными знаками в масиве А(n) Добавлено через 54 секунды спасибо за подсказку ща попробую 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	17.12.2008, 23:06	4
	Код k:=0; for i:=n downto 1 do if a[i]*a[i-1]<0 then begin write('Eta para s nomerami ',i,' ',i-1); readln; k:=1; exit; end; if k=0 then write('Takoj pary net!'); readln end. 0

@Evklid 25 / 20 / 4 Регистрация: 13.03.2008 Сообщений: 79
	17.12.2008, 23:15	5
	Код write('Eta para s nomerami ',i,' ',i-1); readln; k:=1; exit; Puporev, а зачем вы присваиваете переменной k значение 1 перед выходом из программы вообще? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	17.12.2008, 23:46	6
	А если пару не встретим, то и выхода не будет и к останется =0, о чем и сообщим., это вместо флага. Добавлено через 1 минуту 6 секунд Читать надо до конца. 0

Опции темы