Ошибка при выводе процедуры на счет положительных и отрицательных элементов - Pascal
Формулировка задачи:
Доброго вечера,не могу разобраться с ошибкой в коде:
Собственно сама ошибка в строке Unit1: kolvox(x,n-1,ox,px);
"[Error] Unit1.pas(36): Not enough actual parameters"
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,unit2; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var x:mass; i,n,ox,px:integer; begin n:=memo1.lines.Count; for i:=0 to n-1 do x[i]:=strtoint(memo1.Lines[i]); kolvox(x,n-1,ox,px); edit1.text:=(inttostr(ox)+' '+inttostr(px)); end; end.
unit Unit2; interface type mass=array[0..100] of integer; procedure kolvoX(x:mass;n,i:integer;var ox,px:integer); implementation procedure kolvoX(x:mass;n,i:integer;var ox,px:integer); begin ox:=0; px:=0; for i:=0 to n do begin if x[i]<0 then ox:=ox+1 else px:=px+1; end;end; end.
Решение задачи: «Ошибка при выводе процедуры на счет положительных и отрицательных элементов»
textual
Листинг программы
kolvox(x,n-1,ox,px); // вызываемая процедура procedure kolvoX(x:mass;n,i:integer;var ox,px:integer); //описанная в модуле
Объяснение кода листинга программы
kolvox(x,n-1,ox,px);
procedure kolvoX(x:mass;n,i:integer;var ox,px:integer);
- В коде вызывается процедура
kolvox
с параметрамиx
,n-1
,ox
,px
. - Описанная процедура
kolvoX
принимает массивx
и целочисленные переменныеn
,i
и имеет два параметра, переданных по ссылкеox
иpx
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д