надо перевести програму с паскаля на с++, перевел но чего то не работает Опции

[maksimla]

вот на паскале

program stat;

uses crt;

var side: array [1..4] of real;
    t0,tn:array[1..30,1..30] of real;
    iv:integer;
    procedure input;
     var cnt :integer;
     begin
     clrscr;
     writeln;
     write('In how ');
     readln(iv);
     for cnt:=1 to 4 do
     begin
     write('temperature ',cnt,' side?');
     readln(side[cnt]);
     end
     end;
     
     procedure calc;
     var eps:real;
     cnt1,cnt2:integer;
     abb :boolean;

      procedure setmat0;
       var tm:real;
           cnt1,cnt2:integer;
           
        begin
        iv:=iv+1;
        tm:=(side[1]+side[2]+side[3]+side[4])/4;
         for cnt1 :=2 to iv-1 do
          begin
           t0[cnt1,1]:=side[1];
           t0[iv,cnt1]:=side[2];
           t0[cnt1,iv]:=side[3];
           t0[1,cnt1]:=side[4];
           end;
           t0[1,1]:=(side[1]+side[4])/2;
           t0[iv,1]:=(side[1]+side[2])/2;
           t0[iv,iv]:=(side[2]+side[3])/2;
           t0[1,iv]:=(side[3]+side[4])/2;
           for cnt1:=2 to iv-1 do
           for cnt2:=2 to iv-1 do
           t0[cnt1,cnt2]:=tm;
           end;

           procedure setmatn;
           var cnt1,cnt2:integer;
           
           begin tn:=t0 end;
           
           begin
           fillchar(t0[1,1],5400,chr($00));
           setmat0;
           setmatn;
           repeat
           eps:=0.1;
           abb:=true;
           for cnt1:=2 to iv-1 do
           for cnt2:=2 to iv-1 do
           begin
           t0[cnt1,cnt2]:=(tn[cnt1+1,cnt2]+tn[cnt1-1,cnt2]+tn[cnt1,cnt2+1]+tn[cnt1,cnt2-1])/4;
           if abs(t0[cnt1,cnt2]-tn[cnt1,cnt2])> eps then abb:=false;
           end;
           setmatn
           until abb
           end;
           
           procedure output;
           var cnt1,cnt2:integer;
           begin
           writeln;
           cnt2:=iv;
           repeat
           for cnt1:=1 to iv do
           write(int(t0[cnt1,cnt2]+0.5):6:0);
           cnt2:=cnt2-1;
           writeln;
           writeln;
           until (cnt2<1)
           end;
begin
 input;
 calc;
 output;
 
  Readln;
end.

вот на visual с++ 6.0

#include <iostream>
#include <cmath>
using namespace std;

#define   min   4
#define   max   30
int iv;
double eps;
int cnt1,cnt2;
bool abb;
double side[min];
double tn[max][max]; 
double t0[max][max];
void input();
void calc();
void setmat0();
void setmatn();
void output();

int main()
{ 

	input();
	calc();
	output();
	return 0;
}

void input()
{
	cout << "In how many sub-intervals shall a side be subdivided ?" ;
	cin  >> iv;
	for (int cnt=1; cnt<4; cnt++)
	{   
		cout << " Temperature of the "<< cnt << ".side?";
         cin >> side[cnt] ;

	}
};

void calc()

{ 
    t0[1][1]=5400;
	setmat0();
	setmatn();
    do 
	{
	eps=0.1;
    abb= true;
     for (cnt1=1; cnt1<iv-1; cnt1++)
               for (cnt2=1; cnt2<iv-1; cnt2++)
			   {
                 t0 [cnt1  ] [cnt2  ]   = (
				 tn [cnt1+1] [cnt2  ]   +
				 tn [cnt1-1] [cnt2  ]   +
				 tn [cnt1  ] [cnt2+1]   +
				 tn [cnt1  ] [cnt2-1]     )  /4;
                 if (abs(t0[cnt1,cnt2]-tn[cnt1,cnt2]) > eps)  abb=false;
			   }
			   setmatn();}
    while (abb);
}

	void setmat0()
	//======================
    { 
	int cnt1,cnt2;
	double tm;
	 iv++;
     tm= (side[1]+side[2]+side[3]+side[4])/4;
       for (cnt1=1; cnt1<iv-1; cnt1++)
	   {    
		   t0[cnt1] [1]=side[1];
           t0[iv] [cnt1]=side[2];
           t0[cnt1] [iv]=side[3];
           t0[1] [cnt1]=side[4];
	   }

           t0[1] [1]=(side[1]+side[4])/2;
           t0[iv] [1]=(side[1]+side[2])/2;
           t0[iv] [iv]=(side[2]+side[3])/2;
           t0[1] [iv]=(side[3]+side[4])/2;
            for (cnt1=1; cnt1<iv-1; cnt1++)
               for (cnt2=1; cnt2<iv-1; cnt2++)
                 t0[cnt1][cnt2]=tm;
         void cetmatn();
	}

void setmatn()
{
   for (cnt1=1; cnt1<iv-1; cnt1++)
               for (cnt2=1; cnt2<iv-1; cnt2++)
                 tn[cnt1][cnt2]=t0[cnt1][cnt2];
}



void output()
{
	int cnt1,cnt2;
	cnt2=iv;
		for (cnt1=0; cnt2<1; cnt1++)
		cout << (t0[cnt1] [cnt2]) +0.5 ;
cnt2=cnt2-1;
}

c++ я изучаю только 2 с половиной месяца

[Client]

а что делать программа должна я беспонятия

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

fillchar(t0[1,1],5400,chr($00));

Эм... совсем не понял что это. Процедура для заполнения памяти одним элементом, где количество байт определяется 2 параметром, он тут аж 5400.

void calc()

{ 
    t0[1][1]=5400;
    ...

Это подобие fillchar ?

for (cnt2=0; cnt2<iv-1; cnt2++)

for cnt1 :=2 to iv-1 do

В паскале на 1 итерацию будет больше.
В паскалевской версии сделай хорошие отступы, а то совсем не понятно что к чему. И вынеси вложенные процедуры, в них все работа с глабальным массивом.
Пока все