Aktív témák
-
heihachi
addikt
Valóban volt benne egy kis logikátlanság...
De javítottam
program Projectphc;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n = 7;
var
a : array[1..n] of integer;
b : array[1..n] of integer;
k,j,t,s,max,bol : integer;
begin
a[1] := 3;
a[2] := 9;
a[3] := 11;
a[4] := 2;
a[5] := 6;
a[6] := 8;
a[7] := 10;
b[1] := 0;
b[2] := 0;
b[3] := 0;
b[4] := 0;
b[5] := 0;
b[6] := 0;
b[7] := 0;
for t:= 1 to n-1 do begin
k := a[t];
for j := t+1 to n do
if k <= a[j] then inc(b[t]);
{writeln('a[',t,':',b[t]);}
end;
b[n] := 0;
max := b[1];
s := 1;
for t := 2 to n do begin
if max <= b[t] then begin
max := b[t];
s := t;
{writeln('új max: ',max);}
end;
end;
k := a[s];
write(s, ' ');
if s <> n then begin
for j := s+1 to n do begin
if a[j] >= k then begin
{writeln('nagyobb elem: ',a[j]);}
bol := 0;
if j+1 > n then write(j, ' ')
else
begin
for t := j+1 to n do begin
if (a[t] < a[j]) and (a[t] >= k) then begin
bol := 1;
{writeln('a ',a[t],' elem jobb elem');}
end;
end;
if bol = 0 then begin
k := a[j];
write(j, ' ');
end;
end;
end;
end;
end;
readln;
end."Lehet a Shift 2 már realisztikusabb mint a valóság" by NOD
-
heihachi
addikt
Ebben a példában nagy segítség, hogy nem kell az _összes_ sort felsorolni. Akkor már nem ment meg semmi a rekurzív algoritmisok szépségétől.
Monjuk így sem túl könnyű, de azért még megoldható.
Bár amit írtam azt nem adnám be a tanáromnak, mert azért ezt tagolni kéne, de..."Lehet a Shift 2 már realisztikusabb mint a valóság" by NOD