Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.01.2012, 18:26   #1
Yuuuu
Пользователь
 
Регистрация: 26.01.2012
Сообщений: 16
По умолчанию определить если 2 пары соседних элементов с одинаковыми знаками

Помогите, пожалуйста, с задачкой.

Определить есть ли 2 пары соседних элементов с одинаковыми знаками(задача на одномерные массивы)

Спасибо!

Последний раз редактировалось Yuuuu; 26.01.2012 в 18:52.
Yuuuu вне форума Ответить с цитированием
Старый 26.01.2012, 18:54   #2
Inv1s
Форумчанин
 
Аватар для Inv1s
 
Регистрация: 06.11.2011
Сообщений: 214
По умолчанию

Еще приписывай язык на котором надо? мы не умеем угадывать.
А если по алгоритму, то умножай число на следующее и проверяй > 0 ли оно и все.
Если да то выход из цикла и выход из программы
Помог, нажми на весы
html, js, php, С++, С#, OpenGl, DirectX, XNA, HLSL
Inv1s вне форума Ответить с цитированием
Старый 26.01.2012, 18:55   #3
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

Код:
flag:= false;
for i:=1 to n - 1 do
if (a[i] > 0 and a[i+1] > 0) or (a[i] < 0 and a[i] < 0) then
begin
flag:= true;
break;
end;
if flag then
writeln('есть')
else
writeln('нету');
Hacker19_90.... 2 пары.. согласен... чуток не хватает...
тогда так...:

Код:
index:=0;
for i:=1 to n - 1 do
if (a[i] > 0 and a[i+1] > 0) or (a[i] < 0 and a[i] < 0) then
begin
inc(index);
if index = 2 then
break;
end;

if index = 2 then
writeln('есть')
else
writeln('нету');
пишу код не только за печеньки

Последний раз редактировалось VIK_aka_TOR; 26.01.2012 в 19:09.
VIK_aka_TOR вне форума Ответить с цитированием
Старый 26.01.2012, 18:57   #4
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
Код:
flag:= false;
for i:=1 to n - 1 do
if (a[i] > 0 and a[i+1] > 0) or (a[i] < 0 and a[i] < 0) then
begin
flag:= true;
break;

if flag then
writeln('есть')
else
writeln('нету');
end;
Ок! А где здесь проверка на
Цитата:
Определить есть ли 2 пары соседних элементов
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 26.01.2012, 20:59   #5
Yuuuu
Пользователь
 
Регистрация: 26.01.2012
Сообщений: 16
По умолчанию

Спасибо! Не хочу показаться глупым, но в строке var что писать?

p.s. не пугайтесь тупости отечественных программистов - 9 класс как ни как)))
Yuuuu вне форума Ответить с цитированием
Старый 26.01.2012, 21:04   #6
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
не пугайтесь тупости отечественных программистов
А вот это оскорбление между прочем!

Код:
const
    n = 5;
var
    index, i: integer;;
    a:array[1..n] of integer;
вроде всё? или что-то забыли
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 26.01.2012, 21:11   #7
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

да кстати
VIK_aka_TOR
Цитата:
Код:
index:=0;
for i:=1 to n - 1 do
if (a[i] > 0 and a[i+1] > 0) or (a[i] < 0 and a[i] < 0) then
begin
inc(index);
if index = 2 then
break;
end;

if index = 2 then
writeln('есть')
else
writeln('нету');
У меня вызывает сомнение!
Вот смотрите допустим у нас массив их 3 элементов
например
1 2 3
После первого прогона цикла мы узнаём,
что у нас есть одна пара это 1 и 2
на втором шаге получается, что есть ещё одна пара это 2 и 3! Логично!
Но выходит так что второй элемент массива у нас вхолит и в первую пару и во вторую!
А вот это правильно?
просто мне казалось что один и тот же элемент(я повторюсь ЭЛЕМЕНТ а не число) не может входить в разные пары!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 26.01.2012, 21:16   #8
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
да кстати
VIK_aka_TOR

У меня вызывает сомнение!
Вот смотрите допустим у нас массив их 3 элементов
например
1 2 3
После первого прогона цикла мы узнаём,
что у нас есть одна пара это 1 и 2
на втором шаге получается, что есть ещё одна пара это 2 и 3! Логично!
Но выходит так что второй элемент массива у нас вхолит и в первую пару и во вторую!
А вот это правильно?
просто мне казалось что один и тот же элемент(я повторюсь ЭЛЕМЕНТ а не число) не может входить в разные пары!
ну... в задании этого не было... данный нюанс преподы любят подковырнуть и в случае чего внимание на этом заостряют... но так как данный нюанс оглашен не был... то пологаю и такого решения достаточно... если учитывать что нельзя... то да... будет немного веселее код... но лишь немного)
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Старый 26.01.2012, 21:18   #9
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

так что ТС...
предупрежден значит вооружён!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 26.01.2012, 21:20   #10
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
так что ТС...
предупрежден значит вооружён!
не всю же работу за спасибо выполнять)... нужно и им оставить пищу для раздумий)
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти номер первой пары соседних элементов с разными знаками, сумма которых меньше заданного числа sofiya Помощь студентам 4 20.02.2011 23:05
Найти номер последней пары соседних элементов с разными знаками Albert341 Общие вопросы Delphi 2 23.12.2010 10:12
Определения частоты пары соседних символов в каждой строке и формирования файла частот построчно ивт Паскаль, Turbo Pascal, PascalABC.NET 11 07.12.2008 20:52
Определения частоты пары соседних символов в каждой строке и формирования файла частот построчно ивт Паскаль, Turbo Pascal, PascalABC.NET 0 05.12.2008 20:09