Какая то ошибка в программе. просит написать в конце ; хотя там должна точка стоять. помогите пожалуйста!!!!

uses Graph;

const
l=300;
h=200;
n0=0;
nl=1.5;
yl=199;
k=(nl-n0)/h;
var
x,y,m,phi: Real;
const
dx=0.05;
sx=2.085;
sy=2.085;
var
grDriver,grMode,i: Integer; c: Char;
lls, xxs: string; ll, xx: Integer;
Temp: array[0..90] of Real;
TempSize: Byte;
function ch(const x: Real): Real;
begin
ch:=(exp(x)+exp(-x))/2;
end;
function ach(const x: Real): Real;
begin
ach:=ln(x+sqrt(x*x-1));
end;
function n(const y: Real): Real;
begin
n:=n0+k*y;
end;
function ReadKeyGr: Integer;
function ReadKey: Char;
var a, b: Integer; s: string;
begin
s:=' '; SetColor(15);
repeat
OutTextXY(440,10,s); c:=ReadKey;
if c=#13 then Break;
if c in ['0'..'9'] then s:=s+c;
until FALSE;
Val (s,a,b); ReadKeyGr:=a;
end;
BEGIN
TempSize:=0;
grDriver:=Detect; InitGraph(grDriver,grMode, 'c:\bp\bgi');
if GraphResult <> grOk then Halt(l);
repeat
ClearDevice;
SetLineStyle(0,0,1); SetColor(15); SetFillStyle(0,0);
Rectangle(Round(sx*0), Round(479+sy*0),Round(sx*1),Round(479-sy*h));
Line(430,410,430,480);Line (430,410,Round(sx*l),410);
OutTextXY(10,10,'ўўҐ¤ЁвҐ гЈ®« «гз  ўе®¤  ў ®Ўа §Ґж=');
SetLineStyle(0,0,3);
inc(TempSize); Temp[TempSize]:=ReadKeyGr*pi/180;
for i:=1 to TempSize do begin
if i=(TempSize) then SetColor(4) else SetColor(2);
phi:=Temp; y:=yl; x:=0;m:=n(yl)*sin(phi);
MoveTo(Round(sx*x), Round(479-sy*y));
while (xh)) then Break;
LineTo(Round(sx*x),Round(479-sy*y));
x:=x+dx;
SetColor(15);
xx:=Round(2*m/k*ach(n(yl)/m));
ll:=Round(2*n(yl)/k*cos(phi));
Str(xx,xxs); xxs:=' X= ' +xxs+ ' MM' ;
Str(ll,lls); lls:=' L= ' +lls+ ' MM' ;
SetTextStyle(DefaultFont, HorizDir, 2);
OutTextXY(445,420,xxs); OutTextXY(445,450,lls);
SetTextStyle(DefaultFont, HorizDir, 1);
OutTextXY(10,20,'Їа®¤®«¦Ёвм (Y/N) ? ' ); c:= ReadKey;
until (c='n') or (c='N');
CloseGraph;
END.

  • Правильно просит: это у вас модуль и он должен заканчиваться точкой, запятой должна заканчиваться функция или процедура внутри модуля.
    uses Graph;

    procedure Name_pr;
    const...
    var...
    begin

    end;
    END.

    Как то так.

  • "for i:=1 to TempSize do begin "

    Этот бегин не закрыт

Вас заинтересует