Разработать алгоритм и программу вычисления и вывода на экран дисплея первых 15 членов последовательности, которая задана формулой: An=(1/2)в степени n + (1/3) в степени n ; n=1,2…

Категория: Delphi/Pascal
2012-01-25 23:32:15
code: #pascal
program PascalGuru;
 
function pow(x:real;n:integer):real; 
var r:real;
    i:integer;
begin
r:=x;
for i:=1 to n-1 do r:=r*x;
pow:=r;
end;
 
 
var i,answer:real;
    n:integer;
begin
for n:=1 to 15 do
    begin
    answer:=pow(1/2,n)+pow(1/3,n);
    writeln('A',n,'= ',answer:0:5);
    end;
 
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, последовательность, степень