Массив( динамика, файлы) Опции

[punkska]

Lab3.pas

 program laba2;
uses Crt;
type
 Mas=array[1..1] of integer;
 dinmas=^mas;
var
 n:integer;
 A:dinmas;
{$I A01.inc}
{$I A02.inc}
{$I A03.inc}
{$I DUMP.inc}
begin
clrscr;
writeln('LABA 2');
writeln('+--------------+');
writeln('YC/\OBUE:');
writeln('Найти номер первого минимального элемента среди элементов больших T1,');
writeln('расположенных правее первого элемента равного T2 Упорядочить по неубыванию');
writeln('+---------------+');
writeln;

n:=takesize;
GetMem(A,sizeof(real)*n);
EnterMassive(A,n);
showMassive(A,n);

showResults(findmin(A,n));
{showResults(dump1(A,n));}

sorting(A,n);
showMassive(A,n);

writeln('+---------------+');
Freemem(A,sizeof(real)*n);
writeln('THE END.');
readln;
end. 

A01.inc

function takesize:integer;
var
 i:integer;
begin
 writeln('KO/\U4ECTBO ELEMEHTOB MACCUBA:');
 repeat
  readln(i);
 until i>0;
 takesize:=i;
end;

procedure EnterMassive(var A:dinmas; const n:integer);
var
 i:integer;
begin
 writeln;
 writeln('BBEgUTE MACCUB:');
 i:=0;
 repeat
  i:=i+1;
  write(i,' element = ');
  readln(A^[i]);
 until i=n;
end;

A03.inc

procedure ShowMassive(var A:dinmas; const n:integer);
var
 i:integer;
begin
 writeln;
 writeln('BBEgEHHb|U MACCUB:');
 i:=0;
 repeat
  i:=i+1;
  write(A^[i],' ');
 until i=n;
 writeln;
end;

procedure showResults(doJob:integer);
begin
 writeln;
 if( doJob=0 ) then
  writeln('takix elementov net')
 else
  writeln('number <0 = ',doJob);
 writeln;
end;

A02.pas

procedure sorting(var A:dinmas; const n:integer);
var
 j,i:integer;
 endof:boolean;
 add:integer;
begin
 writeln;
 writeln('COPTUPOBKA MACCUBA...');
 for i:=2 to n do
 begin
  j:=i;
  endof:=true; 
  while( j>1 ) and endof do
   if (A^[j]<A^[j-1]) then
   begin
    add:=A^[j-1];


function findmin(var A:dinmas; const n:integer):integer;

помогите с функцией findmin ..а то что-то не идёт....

[punkska]

ммм ни как не пойму...

вот подпрвил...тепрь и сортировка и нахождение минимального не работают=(
Посмотрите опытным глазом на код

Исходный код

program laba2;
uses Crt;
type
Mas=array[1..1] of integer;
dinmas=^mas;
function takesize:integer;
var
i:integer;
begin
writeln('KO/\U4ECTBO ELEMEHTOB MACCUBA:');
repeat
readln(i);
until i>0;
takesize:=i;
end;

procedure EnterMassive(var A:dinmas; const n:integer);
var
T1,T2:integer;
i:integer;
begin
Writeln ('Vvedite T1');
Readln(T1);
Writeln ('Vvedite T1');
Readln(T2);
writeln;
writeln('BBEgUTE MACCUB:');
i:=0;
repeat
i:=i+1;
write(i,' element = ');
readln(A^[i]);
until i=n;
end;

procedure sorting(var A:dinmas; const n:integer);
var
j,i:integer;
endof:boolean;
add:integer;
begin
writeln;
writeln('COPTUPOBKA MACCUBA...');
for i:=2 to n do
begin
j:=i;
endof:=true; {leave for?}
while( j>1 ) and endof do
if (A^[j]<A^[j-1]) then
begin
add:=A^[j-1];
A^[j-1]:=A^[j];
A^[j]:=add;
j:=j-1;
end
else
endof:=false;
end;
end;

procedure ShowMassive(var A:dinmas; const n:integer);
var
i:integer;
begin
writeln;
writeln('BBEgEHHb|U MACCUB:');
i:=0;
repeat
i:=i+1;
write(A^[i],' ');
until i=n;
writeln;
end;

procedure showResults(doJob:integer);
begin
writeln;
if( doJob=0 ) then
writeln('takix elementov net')
else
writeln('number <0 = ',doJob);
writeln;
end;

procedure FindMin(A : DinMas; const n : integer; T1,T2 : integer) ;
var
i : integer;
begin
i := 1;
while (A^[i] <> T2) and (i <= n) do inc(i);
if i > n then begin
writeln('no1');
halt;
end
else begin
inc(i);
while(A^[i] <= T1) and (i <= n ) do inc(i);
if i > n then writeln('no2')
else writeln(i);
end;
end;



var
n:integer;
A:dinmas;
T1,T2:integer;
begin
clrscr;
writeln('LABA 2');
writeln('+--------------+');
writeln('YC/\OBUE:');
writeln('Найти номер первого минимального значения среди положительных элементов,');
writeln('располоденный правее первого элемента равного нулю.Упорядочить по неубыванию');
writeln('+---------------+');
writeln;

n:=takesize;
GetMem(A,sizeof(real)*n);
EnterMassive(A,n);
showMassive(A,n);
FindMin(A,n,T1,T2);
{showResults(dump1(A,n));}

sorting(A,n);
showMassive(A,n);

writeln('+---------------+');
Freemem(A,sizeof(real)*n);
writeln('THE END.');
END.