1

Тема: Перебудувати з динамічними даними

Дали лабу на динамічні дані, алгоритм зробив без застосування динамічних даних бо не до кінця розумію як працювати з ними. Буду вдячний за пояснення та частинку коду)

procedure TForm1.Button1Click(Sender: TObject);
var
  john:array[1..50] of integer;
  jane:array[1..50] of integer;
  u, y, first, last, count, n, l, h, hui, v:integer;
begin
  memo1.clear;
  memo2.clear;
  n:=StrToInt(Edit1.Text);
  randomize;
  for count:=1 to n do
  begin
    john[count]:=random(10)-5;
    Memo1.Lines.Add(inttostr(john[count]));
  end;
  for h:=1 to n do
      if john[h]<0 then
         begin
              first:=h;
              break;
         end;
  for l:=n downto 1 do
      if john[l]<0 then
         begin
              last:=l;
              break;
         end;
u:=0;
y:=0;
  for u:=first to last do
      begin
           y:=y + john[u];
      end;
  edit2.text:=inttostr(y);
end;
end.

2

Re: Перебудувати з динамічними даними

По-перше, писати програму з чужого коду без завдання - це значно складніше, ніж писати з завдання без коду.
А по-друге, у вас тут є динамічні дані, і ви ними спокійно користуєтеся.  Memo1.Lines - фактично, динамічний масив рядків (з трохи специфічними функціями додавання і т.д., на кшталт Add).

3

Re: Перебудувати з динамічними даними

В завданні говорилось знайти суму елементів між першим і останнім від’ємними елементами. Але це треба було динамічно створюючи масив і вказівники і тд. От надіявся на вашу допомогу)

koala написав:

По-перше, писати програму з чужого коду без завдання - це значно складніше, ніж писати з завдання без коду.
А по-друге, у вас тут є динамічні дані, і ви ними спокійно користуєтеся.  Memo1.Lines - фактично, динамічний масив рядків (з трохи специфічними функціями додавання і т.д., на кшталт Add).

4

Re: Перебудувати з динамічними даними

budlokoder
Динамічні масиви: delphibasics.ru/Array.php helpapi.narod.ru/OsnovDelphi/072.htm
Чи у вас якісь конкретні питання?

5

Re: Перебудувати з динамічними даними

Не зовсім те, що я чекав, але й за це дякую)

Torbins написав:

budlokoder
Динамічні масиви: delphibasics.ru/Array.php helpapi.narod.ru/OsnovDelphi/072.htm
Чи у вас якісь конкретні питання?

6

Re: Перебудувати з динамічними даними

А чого чекали, вказівники? Є й про них стаття: transl-gunsmoker.ru/2009/09/blog-post.html, але з динамічними масивами усе набагато простіше і красивіше.