задача на одномерный массив (delphi)

[grom333]

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

procedure TForm1.Button2Click(Sender: TObject);
var
i,n,k,c:integer;b:boolean;
begin
edit3.text:='';b:=true;
for i:=0 to n-1 do begin
 if (a[i]<0) and b then  begin a[i]:=abs(a[0]);b:=false;end;
  edit3.text:=edit3.text+'    '+inttostr(a[i]);
end;
end;

Имхо так надежнее.


Потому что у тебя массив финализированный: a: array[0..19] of integer;
А тебе сказали что нужен динамический в 8 посте.

В голову не раз не приходило правдивость писать без true.

and b then

))
Спасибо, учту на будущее.

[Toxi]

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

...
 if (a[i]<0) and b then  begin a[i]:=abs(a[0]);b:=false;
...

делфи виснет и выкидывает на эту строчку

[d3qoot]

  
var
   a:array of integer;
   i,k:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
setlength(a,strtoint(edit1.Text));
for i:=0 to length(a)-1 do
a[i]:=random(20)-10;
for i:=0 to length(a)-1 do
  if a[i]=abs(a[i]) then
  else
  k:=i;
a[k]:=abs(a[0]);
end;

end.

[Stilet]

и выкидывает

Обалдеть рассказал... И почему вся школота думает что вокруг все мутанты-телепаты...

[Toxi]

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

Обалдеть рассказал... И почему вся школота думает что вокруг все мутанты-телепаты...

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

[ACE Valery]

Не обязательно знать программирование, чтобы переписать сюда текст ошибки, с которой Делфи выкидывает на эту строку.

[Toxi]

Сообщение от ACE Valery

Не обязательно знать программирование, чтобы переписать сюда текст ошибки, с которой Делфи выкидывает на эту строку.

да я понимаю, не знаю как объяснить эту ошибку

[ACE Valery]

не помню паскаль, но кажется, такие ошибки возникают, когда заходите за границу массива. Разве в паскале массив не с первого индекса начинается, а с нулевого?

[whatever]

Динамические начинаются с нуля.
Toxi, напиши свой код полностью, диагноз по картинке ставить затруднительно, а из предыдущих сообщений непонятно, на каком варианте ты остановился. Если на динамическом массиве, то, возможно, setlength(a,n) забыл. Если статический, то каким-то другим образом за границы выходишь.

[Toxi]

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

Динамические начинаются с нуля.
Toxi, напиши свой код полностью, диагноз по картинке ставить затруднительно, а из предыдущих сообщений непонятно, на каком варианте ты остановился. Если на динамическом массиве, то, возможно, setlength(a,n) забыл. Если статический, то каким-то другим образом за границы выходишь.

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
begin
randomize;
n:=strtoint (edit1.text);
randomize;
setlength(a,n);
edit2.Text:='';
for i:=0 to n-1 do
begin
a[i]:=random (20)-10;
edit2.text:=edit2.Text+'    '+inttostr(a[i]);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,n,k,c:integer;
begin
for i:=0 to n-1 do
begin
 if a[i]<0 then
 begin
 k:=i;
 end;
 end;
 a[k]:=abs(a[0]);
 edit3.text:='';
 for i:=0 to n-1 do
 edit3.text:=edit3.text+'    '+inttostr(a[i]);
 end;
end.

массив динамический
вот на этом варианте остановился
ошибки:
[Error] Unit1.pas(37): Incompatible types
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'