Форум АНТИЧАТ - паскаль, вы программер?

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - паскаль, вы программер? (https://forum.antichat.xyz/showthread.php?t=54964)

паскаль, вы программер?

собственно вот, есть задача, но она написана ппц, в непонятнном языке))) я имую навыки только школьного паскаля, так что понять неавозможно

PHP код:


		
			
{ From : Vadim Serov                   2:5077/36.35                     26.10.97

 Subj : ЋЇаҐ¤Ґ«Ґ*ЁҐ ‘Ґ¤«®ў®© ’®зЄЁ ў Њ*ваЁжҐ

}

const

 MAX=20;



type

 line=Array[1..MAX] of Extended;



var

 smin:Extended;

 imin:Integer;

 i,j,n,m:Integer;

 x:Array[1..MAX] of line;

 buf:line;

 juf:Array[1..MAX] of Integer;

 inp:Text;



begin

 Assign(inp,'matrix.txt');

 Reset(inp);

 Read(inp,n,m);{Є®«ЁзҐбвў® бвp®Є Ё бв®«Ўж®ў}

 if (MAX<n) or (MAX<m) then

  Write('*Ґ¦Ґ«*о бзЁв*вм! ')

 else begin

  for i:=1 to n do

   for j:=1 to m do

    Read(inp,x[i][j]);



  for i:=1 to n do begin

   buf[i]:=x[i][1];

   juf[i]:=1;

   for j:=2 to m do

    if buf[i]<x[i][j] then begin

     buf[i]:=x[i][j];

     juf[i]:=j

    end

  end;

  smin:=buf[1];

  for i:=2 to n do begin

   if smin>buf[i] then begin

    smin:=buf[i];

    imin:=i

   end

  end;



  Writeln;

  Write('‘Ґ¤«®ў*п в®зЄ* x=',juf[imin],'  y=',imin)

 end;

 Close(inp)

end.

вот задание буцдет видно в самом паскале, про седловую точку

Чё сделать то надо? :)

ну перевести в понятный для понимания язык))
допустим const max=20 в школьной программе вообще нет такого =\ ну по проще описать

const это переменная, которую нельзя изменить.
Почитай хотя бы это
http://www.learn-programming.za.net/learn_pascal_programming.html

program whattafuck;
uses crt;
;)

да я просто обычно английский изучаю, вот только освободился и думаю накера мне паскаль пойду в перевеодчики =\

А че тут кроме const MAX непонятно ?

вообще если смущает const MAX то удали описание и везде где видишь MAX напиши 20.

ну да ладно, по крайней мере у меня ругается на
inp,x[i][j]);
в чем беда? посморите у себя. плиз

Цитата:

ну да ладно, по крайней мере у меня ругается на
inp,x[i][j]);
в чем беда? посморите у себя. плиз

x не двумерный массив
надо определить его как x:Array[1..MAX][1..MAX] of line;
или x:Array[1..MAX, 1..MAX] of line;

там не только на это ругается может кто поможет сразу попробываться скомпилировать у себя и после выложит готовый результат? плиз