Модули.

[dimka123]

Ребята ,помогите найти причину ошибки
help.rar
1. файл VVod.pas - ввод и вывод масива файл под модуль
2-файл stat.pas-расчет формул так же модуль
3-файл Программа-это уже сама программа с вызовов этих модулей .
НО
пишет ошибку в readvek и writevek дальше не проверял.....хотя....
если запустить программу "оригинал" то она работает!!(это основа,я ее взял под изменения для модулей и т.д)
использую Паскаль ABC.NET. модули видит !!

[Dush]

а что за ошибка?

[dimka123]

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

а что за ошибка?

Программа.pas(8) : Неправильный тип параметров подпрограммы
в строках readvec и writevec
Запустите и посмотрите
НО модуль написан без ошибок, т.е. он готов к использованию...проблема уже в проге..но ее не должно быть там(

[Serge_Bliznykov]

для начала уберите из "Программа.pas"
помеченную красным строчку:

Uses VVod,stat;
type vec = array[1..100]of real;
Var x,y,z:vec;
    mx,my,Sx,Sy,rxy,c:real;
    n:integer;
  begin;{//начало программы }

далее.
в модуле VVod
вы передаёте т.н. "массивы открытого типа"

Procedure readvec(n:integer;namevec:string; Var x:array of real); 
Procedure writevec(n:integer;namevec:string;Var x:array of real);

НедоПаскаль ABC, похоже, не понимает массивы такого типа!

[Serge_Bliznykov]

после таких корректировок запустилось:
VVod.pas

unit VVod;

interface
uses Stat;

procedure readvec(n: integer; namevec: string; var x: vec);
procedure writevec(n: integer; namevec: string; var x: vec);

implementation

procedure readvec(n: integer; namevec: string; var x: vec);
var i: integer;
begin;
  for i := 1 to n do
  begin;
    writeln('namevec', '[', i: 3, ']=');
    readln(x[i]);
  end;
end;

procedure writevec(n: integer; namevec: string; var x: vec);
var i: integer;
begin;
  for i := 1 to n do
    writeln('namevec', '[', i: 3, ']=', x[i]: 10: 5);
end;

end.

stat.pas

unit stat;
interface
type vec = array[1..100] of real;

function Summa(n: integer; x: vec): real;
function MO(n: integer; x: vec): real;
function KOR(n: word; x, y: vec): real;
function mulvec(n: word; x, y: vec): real;
procedure FZ(n: word; x, y: vec; r, C: real; var Z: vec);

implementation

function Summa(n: integer; x: vec): real;
var i: integer; S: real;
begin;
  S := 0;
  for i := 1 to n do
    S := S + x[i];
  Summa := S;
end; //конец функции Сумма

function MO(n: integer; x: vec): real;
begin
  MO := Summa(n, x) / n;
end; //конец функции мат.ожидания

function SKO(n: integer; var x: vec): real;
var i: integer; m, s: real;
begin;
  m := MO(n, x);
  for i := 1 to n do
    x[i] := sqr(x[i] - m);
  SKO := sqrt(Summa(n, x) / n);
end; //конец функции СКОz

function KOR(n: word; x, y: vec): real;
var mx, my: real; i: integer; Sx, Sy: real;
  xy: vec;
begin;
  mx := MO(n, x);
  my := MO(n, y);
  Sx := SKO(n, x);
  Sy := SKO(n, y);
  for i := 1 to n do
  begin
    xy[i] := (x[i] - mx) * (y[i] - my)
  end;
  KOR := Summa(n, xy) / (Sx * Sy);
end; //конец функции KOR

function mulvec(n: word; x, y: vec): real;
var i: integer; C: real;
begin;
  C := 0;
  for i := 1 to n do
    C := C + (x[i] * y[i]);
  mulvec := C
end; //клнец функции mulvec

procedure FZ(n: word; x, y: vec; r, C: real; var Z: vec);
var i: integer;
begin;
  for i := 1 to n do
    Z[i] := C * (x[i] + y[i]) - r * (x[i] - y[i])
end;

end.

Программа.pas

uses VVod, stat;
var x, y, z: vec;
  mx, my, Sx, Sy, rxy, c: real;
  n: integer;
begin; //начало программы
  write('n='); readln(n);
  readvec(n, 'X', x);
  readvec(n, 'Y', y);
  mx := MO(n, x);
  my := MO(n, y);
  Sx := SKO(n, x);
  Sy := SKO(n, y);
  rxy := KOR(n, x, y);
  C := mulvec(n, x, y);
  FZ(n, x, y, rxy, C, Z);
  writeln('ывод результатов');
  writevec(n, 'Z', z);
  writeln('MO(x)=', mx: 10: 5);
  writeln('MO(y)=', my: 10: 5);

  writeln('SKO(x)=', Sx: 10: 5);
  writeln('SKO(y)=', Sy: 10: 5);
  writeln('C=', C: 10: 5);
  writeln('r(x.y)=', rxy: 10: 5);
end.

[dimka123]

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

после таких корректировок запустилось:
VVod.pas

unit VVod;

interface
uses Stat;

.

а зачем в модуле VVod использовать еще и модуль stat? если в интерфейсе мы пишем то что будем использовать в данном случае процедуры ввода и вывода

[Serge_Bliznykov]

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

а зачем в модуле VVod использовать еще и модуль stat? если в интерфейсе мы пишем то что будем использовать в данном случае процедуры ввода и вывода

чтобы это код

uses Stat;

procedure readvec(n: integer; namevec: string; var x: vec);
procedure writevec(n: integer; namevec: string; var x: vec);

отработал нормально.
Ведь именно в stat описан ип vec