@alGRef

Помогите перевести на С++


program Kurs;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
const Rk=1750853; M = 4890000000; h = 1; Rl=1738000; m0=15000; m2=100; P=225000; tay=30; t0=0; hp=10; th=1;
type masx = array[1..8] of real;
var y, f: masx;
t, tp : real;
menu : char;
alp,alp1: integer;

procedure func(var y, f : masx);
begin

if t<tay then alp:=90 else
if t>=90 then
begin
alp1:=alp1-1;
alp:=alp1;
end;

f[1]:=((P*sin(alp))/(m0-(m2*t)))+((power(y[2],2))/y[3])-(M/(power(y[3],2)));
f[2]:=((P*sin(alp))/(m0-(m2*t)))-((y[1]*y[2])/y[3]);
f[3]:=y[1];
f[4]:=y[2]/y[3];
end;

procedure Euler();
var
i : integer;
begin
alp1:=45;
t:=t0;
tp:=t0+hp;
for i := 1 to 4 do
y[i]:=0;
t:=1;
y[1]:=0;
y[2]:=0;
y[3]:=Rl;
y[4]:=0;
writeln('Euler');
writeln('| t s | Vr | Vt | r | Fi |');
writeln('|----------|----------|----------|-----------|-----------|');
writeln('|',t:10:1,'|',y[1]:10:1,'|', y[2]:10:1, '|',y[3]:10:1, '|',y[4]:10:1, '|');
repeat
func(y, f);
for i := 1 to 4 do
y[i]:=y[i]+h*f[i];
t:=t+th;
if t>tp then
begin
writeln('|',t:10:1,'|',y[1]:10:1,'|', y[2]:10:1, '|', y[3]:10:1, '|', y[4]:10:1, '|');
tp:=tp+hp; end;
until (y[3]>Rk);

writeln('delta Vr = ', abs(y[1]));
writeln('delta Vtay = ', abs(y[2]-sqrt(M/Rk)));
writeln('delta R = ', y[3]-Rk:10:5)
writeln('Vtay ', sqrt(M/Rk):10:5);
;end;
begin
repeat
readln(menu);
case menu of
'1' : Euler;
end;
until (menu = '0');
end.

0