в непустой последовательности целых чисел определить количество смен знака числа (Delphi)

[shalgan]

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

Сочувствую
http://ideone.com/8KSlmy

в смысле ничего не считает :D и еще,не могли бы посоветовать хороший самоучитель книжку?

[BDA]

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

в смысле ничего не считает :D и еще,не могли бы посоветовать хороший самоучитель книжку?

Так ведь считает
Конкретного ничего не посоветую, не читал:
Полезная литература. Паскаль
Литература по Delphi

Надеюсь, Вы вводите сначала все числа через пробел, заканчивая последовательность нулем, и затем нажимаете enter?

[shalgan]

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

Так ведь считает
Конкретного ничего не посоветую, не читал:
Полезная литература. Паскаль
Литература по Delphi

Надеюсь, Вы вводите сначала все числа через пробел, заканчивая последовательность нулем, и затем нажимаете enter?

а чтобы неа визуальное программирование это дело перевести, там серез массив делать?

[BDA]

Ну если данные в memo, например:

var
  dt : TStringList;
  i  : Integer;
begin
  dt := TStringList.Create;
  dt.Delimiter := ' ';
  dt.DelimitedText := memo1.text;
  //for i := 0 to dt.count - 1 do
  //showmessage(dt.strings[i]);
  dt.Free;
end;

Теперь в dt находятся все записанные в мемо через пробел числа (хранятся как строки).

[shalgan]

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

Ну если данные в memo, например:

var
  dt : TStringList;
  i  : Integer;
begin
  dt := TStringList.Create;
  dt.Delimiter := ' ';
  dt.DelimitedText := memo1.text;
  //for i := 0 to dt.count - 1 do
  //showmessage(dt.strings[i]);
  dt.Free;
end;

Теперь в dt находятся все записанные в мемо через пробел числа (хранятся как строки).

спасибо огромное,к завтрашней первой лабораторной работе хоть более менее готов)