Стыдно обращаться ещё раз но блин...
var i,j,m,n,l,r : integer;
tab : array [1..50,1..50] of integer;
begin
clrscr;
readln(m);
readln
;
repeat
inc®;
for i:=r to n-r+1 do begin inc(l);tab[i,r]:=l end;
for i:=r+1 to m-r+1 do begin inc(l);tab[n-r+1,i]:=l end;
for i:=n-r downto r do begin inc(l);tab[i,m-r+1]:=l end;
for i:=m-r downto r+1 do begin inc(l);tab[r,i]:=l end;
until l=m*n;
for j:=1 to m do
for i:=1 to n do
begin
write(tab[i,j]:4);
if i=n then writeln;
end;
readln;
end.
это программа матрица по спирали..скажите что значит inc
вот...и ещё одна задачка вычисления корней квадратного уравнения
VAR A,B,C,D,X,Y:REAL;
BEGIN
WRITELN ('VVEDITE A B C');
READLN (A,B,C);
if a=0 then
BEGIN
if b=0 then
begin
if c=0 then
begin writeln('korney net');
readln;
halt;
end;
end;
X:=(-c)/
);
writeln('otvet X=',X:2:2,'');
readln;
Halt(0);
END;
D:=B*B-4*A*C;
IF D>0 THEN
BEGIN
X:=(-B+SQRT(D))/(2*A);
Y:=(-B-SQRT(D))/(2*A);
WRITELN('OTVET X=',X:2:2,' OTVET Y=',Y:2:2,'');
END;
IF D<0 THEN
begin
if a>0 then
writeln('otvet x=',-b/2*a:0:0,'+',sqrt(abs(d))/2*a:0:0,'i',
' ','otvet y=',-b/2*a:0:0,'-',sqrt(abs(d))/2*a:0:0,'i')
else
writeln('otvet x=',-b/2*a:0:0,'-',abs(sqrt(abs(d))/2*a):0:0,'i',
' ','otvet y=',-b/2*a:0:0,'+',abs(sqrt(abs(d))/2*a):0:0,'i')
end;
IF D=0 THEN
BEGIN
X:=(-
/(2*A);
WRITELN ('OTVET X=',X:2:2,'');
END;
READLN;
END.
что значит halt X:2:2(что значит первая двойка а что вторая??) и последний вопрос
по этой же программе
writeln('otvet x=',-b/2*a:0:0,'+',sqrt(abs(d))/2*a:0:0,'i',
' ','otvet y=',-b/2*a:0:0,'-',sqrt(abs(d))/2*a:0:0,'i')
что значат НУЛИ??
