1. Пользуйтесь тегами кода. - [code] ... [/code] 2. Точно указывайте язык, название и версию компилятора (интерпретатора). 3. Название темы должно быть информативным. В описании темы указываем язык!!!
Утро Доброе! Помогите Пожалуйста переписать программу с Pascal на Java:
function Min(a,b: integer): integer; begin if a<b then Min:= a else Min:= b end;
function Max(a,b: integer): integer; begin if a>b then Max:= a else Max:= b end;
const n= 30; m= 20;
var a: array [1..n,1..m] of integer; i,j,k,l,p,q: integer; Ok: boolean;
begin Randomize; for i:=1 to n do for j:=1 to m do a[i,j]:= Random(100); for i:=1 to n do begin for j:=1 to m do Write(a[i,j]:3); WriteLn end;
l:=0; for i:=3 to n-2 do for j:=3 to m-2 do begin Ok:= true; k:= 1; for p:= Max(i-k,1) to Min(i+k,n) do for q:= Max(j-k,1) to Min(j+k,m) do if (Abs(i-p)=k) or (Abs(j-q)=k) then Ok:= Ok and (a[i,j]>a[p,q]); k:= 2; for p:= Max(i-k,1) to Min(i+k,n) do for q:= Max(j-k,1) to Min(j+k,m) do if (Abs(i-p)=k) or (Abs(j-q)=k) then Ok:= Ok and (a[i,j]<a[p,q]); if Ok then Inc(l) end;
WriteLn('found ',l,' of wanted elements'); ReadLn end.
Если ты переделал код - то показывай его. Неважно, что ты там поменял, даже если только один символ в комментарии. Без точного кода нет смысла даже тратить время на чтение дальше.
Добавлено через 19 мин.
Цитата(IUnknown @ 22.05.2011 10:16)
Помогло тебе это? Результат-то всегда НОЛЬ.
Не совсем.. Результат работы этой программы далеко не всегда равен нулю )).
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой