отладка кода

[shalgan]

добрый день, помогите пожалуйста отладить код

type
mas=array[1..100]of integer;
function sw(a:mas; b:integer):integer;
var
i,n,g:integer;
begin
g:=0;
for i:=1 to n do begin
if a[i]>0 then begin a[i]:=0;sw:=g;end;end;end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:array[1..100] of integer;
n,i:integer;
begin
n:=memo1.Lines.Count;
for i:=1 to n do begin
  x[i]:=strtoint(memo1.Lines[i-1]);
  y[i]:=strtoint(memo2.Lines[i-1]);
end;
memo3.Lines.Add(inttostr(sw(x,n)));
memo4.Lines.Add(inttostr(sw(y,n)));
end;

end.

ошибку выдает в "memo3.Lines.Add(inttostr(sw(x,n))) ;"

[Serge_Bliznykov]

вместо

var 
x,y:array[1..100] of integer;

напишите:

var
x,y: mas;

впрочем, функция sw непонятно что делает (точнее - не делает),
поэтому дальше надо с ней разбираться.
и уж, как минимум, выкиньте из функции n и сделайте цикл до b:

  function sw(a: mas; b: integer): integer;
  var
    i, g: integer;
  begin
    g := 0;
    for i := 1 to b do begin
...

Кстати, а что подразумевалось должна возвращать функция sw?
И зачем она пытается изменить переданный ей массив?! (впрочем, безрезультатно, но пытается же!!)

[shalgan]

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

вместо

напишите:

var
x,y: mas;

впрочем, функция sw непонятно что делает (точнее - не делает),
поэтому дальше надо с ней разбираться.
и уж, как минимум, выкиньте из функции n и сделайте цикл до b:
[code]
function sw(a: mas; b: integer): integer;
var
i, g: integer;
begin
g := 0;
for i := 1 to b do begin

программа уже запустилась, но теперь вот это Безымянный.jpg

[shalgan]

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

вместо

напишите:

var
x,y: mas;

впрочем, функция sw непонятно что делает (точнее - не делает),
поэтому дальше надо с ней разбираться.
и уж, как минимум, выкиньте из функции n и сделайте цикл до b:

  function sw(a: mas; b: integer): integer;
  var
    i, g: integer;
  begin
    g := 0;
    for i := 1 to b do begin
...

Кстати, а что подразумевалось должна возвращать функция sw?
И зачем она пытается изменить переданный ей массив?! (впрочем, безрезультатно, но пытается же!!)

должна заменять все положительные элементы нулями

[Serge_Bliznykov]

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

должна заменять все положительные элементы нулями

добавьте ключевое слово var перед параметром, где Вы массив передаёте.

У Вас функция возвращает какое-то целое число (ну, там мусор, но не суть).вопрос - А что функция ДОЛЖНА по вашему вернуть?



избегайте излишнего цитирования - оставляйте в цитате только то, что Вам необходимо для ответа!

[shalgan]

вопрос - А что функция ДОЛЖНА по вашему вернуть?

Массив с нулями,без положит.чисел

[Serge_Bliznykov]

Вы меня не понимаете.
у Вас функция типа integer
она возвращает ЧИСЛО (одно число)
Что это за число?!
Для чего Вы написали:

memo3.Lines.Add(inttostr(sw(x,n)));

чтобы в memo3 что за число увидеть?!!

сдаётся мне, что Вам нужна не функция, а ПРОЦЕДУРА!!

type
  mas = array[1..100] of integer;
  procedure sw(var a: mas; NMas: integer);
  var  i: integer;
  begin
    for i := 1 to NMas do 
      if a[i] > 0 then a[i] := 0
   end;
....

вызов
  sw(x,n);

[shalgan]

type
  mas = array[1..100] of integer;
  procedure sw(var a: mas; NMas: integer);
  var  i: integer;
  begin
    for i := 1 to NMas do 
      if a[i] > 0 then a[i] := 0
   end;
....

вызов
  sw(x,n);

Хмм, Спасибо большое, в этом полугодии с процедурами вообще не работали,кроме procedure TForm1.Button1Click(Sender: TObject); поэтому функции более понятные)

[Serge_Bliznykov]

процедуры, это то же самое, что и функции, только функция возвращает значение, а процедура - нет.

например.

  z : = sin(x); {sin(x) - это функция, возвращает вещественное число}
   
  Delete(s, 1, 1); { Delete - это процедура}

p.s. тему можно закрывать?

[shalgan]

p.s. тему можно закрывать?[/COLOR][/I][/QUOTE] да