Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Носовместимость типов в процедуре
долго долго смотрю и невтупляю, где же у меня несовместимость типов идет ? angry
программа такова

Program var12;
Uses intrfc,crt;
const h= 52;
type mas = array [1..h] of real;
xkov = array [1..h,1..h] of real;
mass = array [1..h] of integer;

var n,k:integer; var m:mass;
var summ,xsr:mas;var wspom:massiv;
var x:xkov;
kov,c: real;

procedure vvod( var n,k:integer; var m:mass);
Var i: integer;
Begin
Writeln ('vvedite chislo dadchikov (kanalov oprosa)' );
readln(k);
writeln ('vvedite nomera dadsikov M1...Mk');
For i:=1 to k do
readln (m[i]);
writeln ('vvedite N, chislo siklov oprosa dadsikov' );
readln(N);
end;

procedure rashet( var k: integer; var m:mass; var xrs,summ:mas; var wspom:massiv; var c,kov: real; var x: xkov);
Var a,b: integer;
Begin

for b:=1 to n do begin
For a:=1 to k do
begin
summ[a]:=0;
OPROS (m[a],x[a,b],wspom);
writeln ('chikl n = ,',n, 'kanal m =',m[a],' izmerenie x=',x[a,b]:5:2);
summ[a]:=x[a,b]+summ[a];
xsr[a]:=summ[a]/n;
writeln ('xsr[',a,'] = ',xsr[a]);

kov:=(x[a,b]-xsr[a])*(x[a,b]-xsr[a])+kov;

end;

end;
c:=kov/n;
writeln ('c = ',c);
readln;

end;

begin
vvod(N,k,m);
rashet(k,m,xsr,c,wspom,kov);
end.

подчеркивает переменные c wspom kov в пред последней строчке.

еще есть приложение intrfc. могу выложить, но не вижу смысла. тип massiv описан как раз в подпрограмме intrfc.
заранее спасибо smile

Добавлено (01.06.10, 19:07)
---------------------------------------------
все спасибо разобрался

1 | Автор: Gdm172 | 2010-06-01, 19:07   |  Репутация: [ + 0 ]
У тебя даже количество параметров не совпадает. Сравни эти две строчки из твое программы:

procedure rashet( var k: integer; var m:mass; var xrs,summ:mas; var wspom:massiv; var c,kov: real; var x: xkov);

rashet(k,m,xsr,c,wspom,kov);

2 | Автор: admin | 2010-06-02, 15:07   |  Репутация: [ + 22 ]
  • Страница 1 из 1
  • 1
Поиск: