Дано действительное число A и целое число N. Найти сумму 1+A+A^2+...+A^N. Составить схему решения с 3 циклами
// С for, while и do while:
#include <iostream>
using namespace std;
int main()
{
cout.precision(16);
double A, N, i, s = 1., p = s;
cout << "A N: "; cin >> A >> N;
for (i = 1; i <= N; i++)
{
p *= A;
s += p;
}
cout << s << endl;
s = p = 1.; i = 0;
while (i < N)
{
++i;
p *= A;
s += p;
}
cout << s << endl;
s = p = i = 1.;
do
{
i++;
p *= A;
s += p;
}
while (i <= N);
cout << s << endl;
}
вот пример, примени к своей программе
program fun;
uses crt;
var
n,i:integer;
y,xn,xk,x,dx:real;
BEGIN
clrscr;
writeln('vichislenie funkcii y:=x*x-3*x+ln(x) 1<=x<=5 dx:=0.5;');
writeln('--------------------------------------------------------');
dx:=0.5; xn:=1; xk:=5;
writeln(' ispolzuem repeat ');
writeln('---------------------');
x:=xn;
writeln('---------------');
writeln(' x y ');
writeln('---------------');
repeat
y:=x*x-3*x+ln(x); writeln(x:4:2,y:8:2);
x:=x+dx;
until x=xk+dx;
readln;
writeln(' ispolzuem while ');
writeln('---------------------');
x:=xn;
writeln('---------------');
writeln(' x y ');
writeln('---------------');
while x<=xk do begin
y:=x*x-3*x+ln(x); writeln(x:4:2,y:8:2);
x:=x+dx;
end;
readln;
writeln(' ispolzuem for ');
writeln('---------------------');
n:=trunc((xk - xn)/dx)+1;
x:=xn;
for i:=1 to n do begin
y:=x*x-3*x+ln(x); writeln(x:4:2,y:8:2);
x:=x+dx;
end;
writeln;
writeln('end programm');
readln;
END.