"Дано n вещественных чисел. Определить сколько из них больше своих соседей, т.е. предыдущего и последующего."

@сezar · Регистрация: 23.10.2010

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

"Дано n вещественных чисел. Определить сколько из них больше своих соседей, т.е. предыдущего и последующего." помоги плиз)

@igoriy · 24.11.2010, 12:26

как числа заданы - столбиком ,в строчку, где лежат - в файле, задаются вручную, чем разделяются и т д. Чтобы помочь надо знать прежде всего

@igoriy · 24.11.2010, 13:35

вот исходник и код
числа я расположил в файле столбиком

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 list: Tstrings;
 i, key: integer;
begin
 i:= 0;
 key:= 0;
 list:= TStringlist.Create;
 list.LoadFromFile(ExtractFilePath(Application.ExeName)+'test.txt');
 while List.Count >= i + 2 do
   begin
     if (list.Strings[i+1] > list[i]) and (list.Strings[i+1]> list.Strings[i+2] )
      then key:= key+1;
      i:= i+1;
   end;
   list.Free;
   Label1.Caption:= IntToStr(key);
end;

@сezar · 24.11.2010, 15:40 **[ТС]**

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

как числа заданы - столбиком ,в строчку, где лежат - в файле, задаются вручную, чем разделяются и т д. Чтобы помочь надо знать прежде всего

числа заданы строчкой,задаються вручную и n=20

Добавлено через 1 час 9 минут

@igoriy · 24.11.2010, 15:45

разделителями что служит, куда вводишь?

@сezar · 24.11.2010, 15:53 **[ТС]**

ну я как понял надо вводить в edit)

@igoriy · 24.11.2010, 15:57

ты в edit сразу все вводишь?

@сezar · 24.11.2010, 15:58 **[ТС]**

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

ты в edit сразу все вводишь?

получаеться в разные edit их 20 должно быть)) А можно разве в 1 вводить?

@igoriy · 24.11.2010, 16:00

ну почему нельзя - допустим ввел одно кнопочку нажал оно запомнилось - вводишь другое и т д

@сezar · 24.11.2010, 16:02 **[ТС]**

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

ну почему нельзя - допустим ввел одно кнопочку нажал оно запомнилось - вводишь другое и т д

А ты сможеш два варианта сделать? 1)20 edit
2) который ты сказал)))
А то чет я запутался как надо))
Заранее спасибо если не затруднит)

@igoriy · 24.11.2010, 16:03

ну тады пока не отвлекай

@сezar · 24.11.2010, 16:04 **[ТС]**

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

ну тады пока не отвлекай

Ну зделай тогда хотябы с 20 edit плиз

@igoriy · 24.11.2010, 16:06

поэтому и не сказал - потому как дельфю открываю

@сezar · 24.11.2010, 16:07 **[ТС]**

Спасибо)

@igoriy · 24.11.2010, 16:47

вот вводишь в edit - нажимаешь запомнить ну а потом выполнить.
а вот 20 edit ставит ломы - впринципе алгоритм то один и тот же

@сezar · 24.11.2010, 16:54 **[ТС]**

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

вот вводишь в edit - нажимаешь запомнить ну а потом выполнить.
а вот 20 edit ставит ломы - впринципе алгоритм то один и тот же

спасибо

@~~pavelr~~ · 24.11.2010, 19:55

А массивом,заполняемым рандомно и выводимом в StringGrid,неужто сложнее?

@сezar 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 42
	24.11.2010, 16:07 [ТС]	14
	Спасибо) 0

@~~pavelr~~ Заблокирован
	24.11.2010, 19:55	17
	А массивом,заполняемым рандомно и выводимом в StringGrid,неужто сложнее? 1

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	24.11.2010, 12:26	2
	как числа заданы - столбиком ,в строчку, где лежат - в файле, задаются вручную, чем разделяются и т д. Чтобы помочь надо знать прежде всего 1

@сezar 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 42
	24.11.2010, 15:40 [ТС]	4
	Сообщение от igoriy как числа заданы - столбиком ,в строчку, где лежат - в файле, задаются вручную, чем разделяются и т д. Чтобы помочь надо знать прежде всего числа заданы строчкой,задаються вручную и n=20 Добавлено через 1 час 9 минут 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	24.11.2010, 15:45	5
	разделителями что служит, куда вводишь? 1

@сezar 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 42
	24.11.2010, 15:53 [ТС]	6
	ну я как понял надо вводить в edit) 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	24.11.2010, 15:57	7
	ты в edit сразу все вводишь? 1

@сezar 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 42
	24.11.2010, 15:58 [ТС]	8
	Сообщение от igoriy ты в edit сразу все вводишь? получаеться в разные edit их 20 должно быть)) А можно разве в 1 вводить? 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	24.11.2010, 16:00	9
	ну почему нельзя - допустим ввел одно кнопочку нажал оно запомнилось - вводишь другое и т д 1

@сezar 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 42
	24.11.2010, 16:02 [ТС]	10
	Сообщение от igoriy ну почему нельзя - допустим ввел одно кнопочку нажал оно запомнилось - вводишь другое и т д А ты сможеш два варианта сделать? 1)20 edit 2) который ты сказал))) А то чет я запутался как надо)) Заранее спасибо если не затруднит) 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	24.11.2010, 16:03	11
	ну тады пока не отвлекай 1

@сezar 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 42
	24.11.2010, 16:04 [ТС]	12
	Сообщение от igoriy ну тады пока не отвлекай Ну зделай тогда хотябы с 20 edit плиз 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	24.11.2010, 16:06	13
	поэтому и не сказал - потому как дельфю открываю 1

@сezar 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 42
	24.11.2010, 16:54 [ТС]	16
	Сообщение от igoriy вот вводишь в edit - нажимаешь запомнить ну а потом выполнить. а вот 20 edit ставит ломы - впринципе алгоритм то один и тот же спасибо 0