Присваивание n к edit

[t10yj]

Добрый день. Требуется чтобы значение n=88
бралось из Edit1. т.е. число

будет не корректно

n=StrToInt(Edit1.Text);

procedure TForm1.Button1Click(Sender: TObject);
const
n=88;
var
m:array[1..n] of integer;
i,k:integer;
begin

randomize;
for I := 1 to length(m) do m[i]:=randomrange(-100,100);

k:=0;
for I := 1 to length(m) do begin
                        if m[i]<0 then inc(k) else break;
                           end;

  Memo1.Lines.Add('Ïîñëåäîâàòåëüíîñòü èç '+inttostr(n)+' íà÷èíàåòñÿ ñ '+inttostr(k)+' îòðèöàòåëüíûõ ÷èñåë.');
end;

[t10yj]

надо правочка кода

[evg_m]

n := StrToInt(Edit1.Text);

[t10yj]

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

n := StrToInt(Edit1.Text);

Так уже писал и по разному. Ошибки.

[Error] Unit1.pas(32): '=' expected but ':=' found
[Error] Unit1.pas(32): Constant expression expected
[Error] Unit1.pas(34): Low bound exceeds high bound

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
n:=StrToInt(Edit1.Text);
var
m:array[1..n] of integer;
i,k:integer;
begin

// çàïîëíåíèå ìàññèâà
randomize;
for I := 1 to length(m) do m[i]:=randomrange(-100,100);
// ïðîâåðÿåì  óñëîâèå
k:=0;
for I := 1 to length(m) do begin
                        if m[i]<0 then inc(k) else break;
                           end;

  Memo1.Lines.Add('Ïîñëåäîâàòåëüíîñòü èç '+inttostr(n)+' íà÷èíàåòñÿ ñ '+inttostr(k)+' îòðèöàòåëüíûõ ÷èñåë.');
end;

end.

[Аватар]

А зачем константой объявил? Объявляй переменной и присваивай

[evg_m]

так ПЕРЕМЕННАЯ должна быть объявлена, там где она используется.
и КОМПИЛЯТОР не может посчитать то чего он не знает.

 const 
 n:=StrToInt(Edit1.Text); 
var 
  n: integer;
begin
  n:=StrToInt(Edit1.Text);

[Serge_Bliznykov]

t10yj
либо используйте статический массив ЗАВЕДОМО БОЛЬШЕГО размера:

procedure TForm1.Button1Click(Sender: TObject);
const
MaxN=1000;
var
  m:array[1..MaxN] of integer;
  i,k,n:integer;
begin
  n := StrToInt(Edit1.Text);
  if (n<1) or (n>MaxN) then begin
    ShowMessage('Неверный размер массива, введите N от 1 до '+StrToInt(MaxN));
    Exit
  end;

  randomize;

  for I := 1 to n do m[i]:=randomrange(-100,100);
  k:=0;
  for I := 1 to n do begin
                        if m[i]<0 then inc(k) else break;
......

или использовать динамические массивы:

procedure TForm1.Button1Click(Sender: TObject);
var
  m:array of integer;
  i,k,n:integer;
begin
  n := StrToInt(Edit1.Text);
  SetLength(m, n);

  randomize;

  for I := 0 to n-1 do m[i]:=randomrange(-100,100);
  k:=0;
  for I := 0 to n-1 do begin
                        if m[i]<0 then inc(k) else break;
......

обратите внимание, что динамические массивы индексируются от НУЛЯ

[t10yj]

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

t10yj
либо используйте статический массив ЗАВЕДОМО БОЛЬШЕГО размера:

procedure TForm1.Button1Click(Sender: TObject);
const
MaxN=1000;
var
  m:array[1..MaxN] of integer;
  i,k,n:integer;
begin
  n := StrToInt(Edit1.Text);
  if (n<1) or (n>MaxN) then begin
    ShowMessage('Неверный размер массива, введите N от 1 до '+StrToInt(MaxN));
    Exit
  end;

  randomize;

  for I := 1 to n do m[i]:=randomrange(-100,100);
  k:=0;
  for I := 1 to n do begin
                        if m[i]<0 then inc(k) else break;
......

или использовать динамические массивы:

procedure TForm1.Button1Click(Sender: TObject);
var
  m:array of integer;
  i,k,n:integer;
begin
  n := StrToInt(Edit1.Text);
  SetLength(m, n);

  randomize;

  for I := 0 to n-1 do m[i]:=randomrange(-100,100);
  k:=0;
  for I := 0 to n-1 do begin
                        if m[i]<0 then inc(k) else break;
......

обратите внимание, что динамические массивы индексируются от НУЛЯ

Спасибо всем!!
Более менее разобрался)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  m: array of integer;
  i, k, n: integer;
begin
  n := StrToIntDef(Edit1.Text, 0);
  SetLength(m, n);
 
  randomize;
  for i := 1 to length(m) do
    m[i] := randomrange(-100, 100);
  k := 0;
  for i := 1 to length(m) do
  begin
    if m[i] < 0 then
      inc(k)
    else
      break;
  end;
Memo1.Lines.Add('Последовательность из '+inttostr(n)+' начинается с '+inttostr(k)+' отрицательных чисел.');
end; 


end.

[Serge_Bliznykov]

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

Более менее разобрался)

нет, не разобрались!


Это НЕВЕРНО!

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

for i := 1 to length(m) do
m[i] := randomrange(-100, 100);
k := 0;
for i := 1 to length(m) do

нужно:

for i := 0 to length(m)-1 do
    m[i] := randomrange(-100, 100);
  k := 0;
  for i := 0 to length(m)-1 do

разницу видно или указать прямо?

[kropotkina-alice]

Сергей, вы уже дали решение в дубле этой темы:
http://www.programmersforum.ru/showthread.php?t=303207