Перевод программы с Pascal в C++ (3 прога, последняя)

[ProgFrog]

Помогите пожалуйста сроки поджимают ))))program KP5;
uses Crt;
const
k1=4; a1=3.7718; a2=5,5168; a3=3,5245; k2=0.6; a4=3.7;
s0=0.205; s1=0.345; s2=0; v1=3; f3=20;
n=5; h=0.5; w1=2; w2=25;
var
x,m1,r,r1,z:real;
i,j,m,f1,v:integer;
y,p,g:array[0..5] of real;
label
l_1,l_2;
procedure pr_1;
begin
r:=v-y[2]-y[5];
r1:=s1*r+y[1]-s2*(y[3]+(k2*f1-y[5])/a4);
p[1]:=s0*r; p[2]:=y[3]; p[3]:=y[4];
p[4]:=(k1*r1-y[2]-a1*y[3]-a2*y[4])/a3;
p[5]:=(k2*f1-y[5])/a4;
end;
BEGIN
ClrScr;
v:=v1; f1:=0;
writeln(' v=',v,' f1=',f1);
writeln('----------------------');
l_2: y[1]:=0; y[2]:=0; y[3]:=0; y[4]:=0; y[5]:=0;
x:=0;
REPEAT
m1:=int(w1/h); m:=trunc(m1);
for j:=1 to m do
begin
pr_1;
for i:=1 to n do
begin
g[i]:=y[i]+h*p[i]/4;
y[i]:=y[i]+2*h*p[i]/3;
end;
pr_1;
for i:=1 to n do
y[i]:=g[i]+3*h*p[i]/4;
x:=x+h;
end;
z:=y[2]+y[5]; writeln(' x=',x:4:1,' z=',z:6:3);
UNTIL x>w2;
if v=0 then goto l_1;
readln;
f1:=f3; v:=0;
writeln(' f1=',f1,' v=',v);
writeln('----------------------');
goto l_2;
l_1: readln;
END.

[malinoff]

Помогу за небольшое вознаграждение со всеми тремя программами

[ProgFrog]

Какое вознаграждение ???

[malinoff]

Сообщение от ProgFrog

Какое вознаграждение ???

Напиши в асю, обсудим. Номер в профиле.

[ProgFrog]

у меня нем аськи, давай на почту пиши.
myworldtim@mail.ru