Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 1
Регистрация: 24.04.2012
Сообщений: 38
1

Найти номер первой пары соседних элементов с разными знаками, сумма которых меньше заданного числа

06.06.2012, 07:01. Показов 1718. Ответов 2
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button3Click(Sender: TObject);
var e,h:integer;
begin
  h:=strtoint(Edit6.Text);
  for i:=n downto 1 do
   begin
  e:=a[i+1];
  if ((e>0) and (a[i]<0) and (e<>0) and (a[i]<>0)  and (e+a[i]<h) and (n>i)) or
     ((e<0) and (a[i]>0) and (e<>0) and (a[i]<>0)  and (e+a[i]<h) and (n>1))
  then Edit5.Text:=IntToStr(i)+' и '+IntToStr(i+1);
   end
  end;
e:=a[i+1]; что такое е?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2012, 07:01
Ответы с готовыми решениями:

В одномерном массиве найти номер последней пары соседних элементов, сумма которых больше заданного числа
как найти в одномерном массиве номер последней пары соседних элементов, сумма которых больше...

Найти номер последней пары соседних элементов с разными знаками
Пожалуйста помогите сделать задачу: Дан массив целых чисел, состоящий из 10 элементов. Заполнить...

Найти номер последней пары соседних элементов с разными знаками
procedure TForm1.Button2Click(Sender: TObject); var i,j,s,max,k,p:integer; flag:boolean; begin...

Найти номер последней пары соседних элементов с разными знаками
помогите решить задачу пожалуста:help:: найти номер последней пары соседних элементов с разными...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30923 / 20234 / 7887
Регистрация: 22.10.2011
Сообщений: 35,121
Записей в блоге: 6
06.06.2012, 15:28 2
Цитата Сообщение от xanitrol Посмотреть сообщение
что такое е?
Второе число в проверяемой паре. Кстати, условие совершенно сумасшедшее. Достаточно вот такого:

Delphi
1
2
3
4
5
6
7
8
for i := n downto 2 do
begin
   e:=a[i-1];
   if (a[i] * e < 0) and (a[i] + e < h) then // a[i]*e < 0 только когда одно положительное, другое отрицательное и оба не нули
   begin
      Edit1.Text:=IntToStr(i)+' и '+IntToStr(i-1);
   end
end;
1
NPC
151 / 145 / 22
Регистрация: 10.01.2012
Сообщений: 390
06.06.2012, 17:50 3
Цитата Сообщение от UI Посмотреть сообщение
Кстати, условие совершенно сумасшедшее
И правда...как это я так сглупил ... ...ой, не могу ... минус на минус ...

Добавлено через 12 минут
О...а это не совсем как у меня было...Но про минус на минус ...как это я забыл?
Цитата Сообщение от xanitrol Посмотреть сообщение
if ((e>0) and (a[i]<0) and (e<>0) and (a[i]<>0) and (e+a[i]<h) and (n>i)) or
((e<0) and (a[i]>0) and (e<>0) and (a[i]<>0) and (e+a[i]<h) and (n>1))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2012, 17:50

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти номер последней пары соседних элементов массива с разными знаками
Исходный массив должен быть выведен на экран. Все преобразования производить с исходным массивом....

Найти номер последней пары соседних элементов массива с разными знаками
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: −...

Найти номер последней пары соседних элементов массива с разными знаками
1 Исходный массив должен быть выведен на экран. 2 Все отдельные операции оформлять через...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.