For34. Дано целое число N (> 1). Последовательность вещественных чисел A_K определяется следующим образом: A1 = 1, A2 = 2, AK = (AK-2 + 2*AK-1)/3, K = 3, 4, … . Вывести элементы A1, A2, …, AN.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | program For34; var Ak,Ak1,Ak2 :Real; N, i :Integer; begin Write('Введите N: '); Readln(N); Writeln('Значения функции:'); Writeln('A(1)=1'); Writeln('A(2)=2'); Ak1:=1; Ak2:=2; For i:=3 to N do begin Ak:=(Ak1+2*Ak2)/3; Writeln('A(',i,')=',Ak); Ak1:=Ak2; Ak2:=Ak; end; end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | #include int main(void) { int n; printf("N:"); scanf ("%i", &n); float a1=1,a2=2; printf("A(1)=%f\n",a1); printf("A(2)=%f\n",a2); int i; float ak; for (i =3; i<=n; ++i){ ak=(a1+2*a2)/3; printf("A(%i)=%f \n",i,ak); a1=a2; a2=ak; } return 0; } |
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #include <iostream> using namespace std; int main() { setlocale(LC_ALL, "Russian"); int n; cout << "N:"; cin >> n; float a1 = 1, a2 = 2; cout<< a1<<" "; cout<< a2<<" "; int i; float ak; for (i = 3; i <= n; ++i) { ak = (a1 + 2 * a2) / 3; cout<< i<<" " << ak<<" "; a1 = a2; a2 = ak; } return 0; } |
ДОБАВЬТЕ С++ =)
#include
using namespace std;
int main()
{
double a1 = 1, a2 = 2, a3;
int n;
cout <> n;
for (int i = 1; i <= n; i++)
{
cout << a1<<" ";
a3 = (a1 + 2 * a2) / 3;
a1 = a2;
a2 = a3;
}
return 0;
}
#include
using namespace std;
int main()
{
double a1 = 1, a2 = 2, a3;
int n;
cout <> n;
for (int i = 1; i <= n; i++)
{
cout << a1<<" ";
a3 = (a1 + 2 * a2) / 3;
a1 = a2;
a2 = a3;
}
return 0;
}
а можно java ещё ;*
Добавте Java
где c# для моего брата?
Напишите на Python