bars1990 » 26 июн 2009, 15:19
Способа за уделённое внимание.
Я нашел программу по теме, но она на Паскале.
Прошу перегнать её в Си или С++.
uses crt;
procedure pr(var a:integer;p:integer;n:integer;var sum:integer);
begin
if n = 1 then sum:=a
else
begin
pr(a,p,n-1,sum);
a:=a+p;
sum:=sum+a;
end;
end;
var s,a,p:integer;
n:integer;
begin
clrscr;
write('Vvedite A0 : ');readln(a);
write('Vvedite p : ');readln(p);
write('Vvedite n : ');readln(n);
pr(a,p,n,s);
writeln('Sum = ',s);
readln
end.
P.S. Желательно в среде Microsoft Visual Studio.
Заранее благодарен.
Способа за уделённое внимание.
Я нашел программу по теме, но она на Паскале.
Прошу перегнать её в Си или С++.
uses crt;
procedure pr(var a:integer;p:integer;n:integer;var sum:integer);
begin
if n = 1 then sum:=a
else
begin
pr(a,p,n-1,sum);
a:=a+p;
sum:=sum+a;
end;
end;
var s,a,p:integer;
n:integer;
begin
clrscr;
write('Vvedite A0 : ');readln(a);
write('Vvedite p : ');readln(p);
write('Vvedite n : ');readln(n);
pr(a,p,n,s);
writeln('Sum = ',s);
readln
end.
P.S. Желательно в среде Microsoft Visual Studio.
Заранее благодарен.