Модуль

[ponchikpk]

подскажите в чем у мя ошибки.. пишу модуль для курсовой

unit process;

interface
uses crt;
const n=100;
type masvalue=array[1..n] of real;
procedure CalculationValues(a,b:real; x,y:masvalue);
procedure YMaxMin(ymax,ymin:real; y:masvalue);
procedure DrawMenu(k:integer);
procedure Menu;

implementation
function f(x:real):real;
BEGIN
f:=sin(x);
END;

procedure CalculationValues;
var i:integer;
BEGIN
for i:=1 to n do
  begin
  x[i]:=a+(b-a)/(n-1)*(i-1);
  y[i]:=f(x[i]);
  end;
END;

procedure YMaxMin;
var i:integer;
BEGIN
CalculationValues(a,b,x,y);         <=Вот здесь пишет unknoun indifirent
ymax:=y[1];
ymin:=y[1];
for i:=2 to n do
  begin
  if y[i]>ymax then ymax:=y[i];
  if y[i]<ymin then ymin:=y[i];
  end;
END;

procedure DrawMenu;
var i:integer;
MenuMas:array[1..4] of string;
BEGIN
MenuMas[1]:='Vvod dannih';
MenuMas[2]:='Graphik';
MenuMas[3]:='Model';
MenuMas[4]:='Vihod';
for i:=1 to 4 do
  begin
  if i=k then
    begin
    textcolor(red);
    writeln(MenuMas[i]);
    end
  else
    begin
    textcolor(white);
    writeln(MenuMas[i]);
    end;
  end;
END;

procedure Menu;
var k:integer;
key:char;
BEGIN
k:=1;
while true do
  begin
  key:=readkey;
  case key of
    #80:
      begin
      if k<4 then inc(k);
      DrawMenu(k);
      end;
    #72:
      begin
      if k>1 then dec(k);
      DrawMenu(k);
      end;
    #13:
      begin
      case k of
        1:                    
        2:                  здесь значения еще не дописаны
        3:
        4:
      end;
  end;
END;

[Stilet]

CalculationValues(a,b,x,y); <=Вот здесь пишет unknoun indifirent

У тебя я не увидел обьявление x y.
Поставь где нужно var x,y:masvalue

здесь значения еще не дописаны

Ну это ты сам как-нибудь....

[ponchikpk]

Поставь где нужно var x,y:masvalue

он на что то другое ругается почему то(( курсор на переменной "а" стоит

мне в конце самом выдает при компиляции "Unexpected end of file" (неожиданный конец файла) что там сделать надо?

[Stilet]

Модуль должен заканчиваться на END.

он на что то другое ругается почему то(( курсор на переменной "а" стоит

Аналогично. либо переменные обьявить либо вместо них поставить числа.

[ponchikpk]

Аналогично. либо переменные обьявить либо вместо них поставить числа.

a и b же не меняются.. поставить как внутренние переменные внутри YMaxMin?

[slips]

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

a и b же не меняются.. поставить как внутренние переменные внутри YMaxMin?

У тебя 4 переменный которые ты должен передать либо ты их объявляешь

procedure YMaxMin(ymax,ymin:real; y:masvalue);
var x:masvalue; // вот эту переменную нужно объявить или как и y - передать в процедуру !!!
     i:integer;
BEGIN
CalculationValues(ymax,ymin,x,y);

либо объявляешь как глобальные.
либо объявляешь как константы - если они во время жизни всей программы не должны изменяться.

[Stilet]

поставить как внутренние переменные внутри YMaxMin?

А откуда мы знаем что тебе надо?