Перевести код математической функции с паскаля В C++ Builder

@lElmInelMl · Регистрация: 08.05.2014

Есть программа в паскале нужно переделать в С++ Builder, помогите, заранее спасибо.

Pascal

var 
    a : array[1..100,1..100] of real; 
    x, y, m, n : integer; 
    First : Boolean; 
    Min, Max : Real; 
    MinX, MinY, MaxX, MaxY : Integer; 
    begin
    readln(m,n); 
    For  y:=1 to n do
    For  x:=1 to  m b do 
    begin 
    a[x,y]:=random(256); 
    Writeln (a[y,x]:5:2); 
    end; 
    First:=True; 
    For  y:=1 to  n  do 
    begin
    min:=a[y,1]; 
    minx:=1; 
    miny:=y; 
    For  x:=1 to  m do<
    if  (min>a[y,x]) then 
    begin 
    min:=a[y,x]; 
    minx:=x; 
    miny:=y; 
    end; 
    if  (First)or(Max<min) then
    begin
    Max:=min; 
    MaxX:=minx; 
    MaxY:=miny; 
    First:=false; 
    end; 
    end; 
    Writeln('Max element is ',max:5:2,' and indexes is X-',maxx,', Y-',maxy); 
    readln; 
    end.

@mish_k98 · 05.06.2014, 22:55

нужно в консоли или нет?

@mish_k98 164 / 49 / 27 Регистрация: 04.06.2013 Сообщений: 636
	05.06.2014, 22:55	2
	нужно в консоли или нет? 0

Опции темы