Array4. Дано целое число N> 1, а также первый член A и знаменатель D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии:
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | program Array4; var a:array[1..10] of integer; Pow,D,N,i:Integer; begin Write('N:'); Readln(N); Write('A_1:'); Readln(a[1]); Write('D:'); Readln(D); Pow:=D; for i:=2 to N do begin a[i]:=a[1]*Pow; Pow:=Pow*D; end; for i:=1 to N do writeln(i,' : ',a[i]); end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | #include int main(void) { int a[10]; int d,n, i,pow; printf("N: "); scanf("%i",&n); printf("A[0]: "); scanf("%i",&a[0]); printf("D: "); scanf("%i",&d); pow=1; for (i=1; i<n; ++i){ pow*=d; a[i]=a[0]*pow; } for (i=0; i<n; ++i) printf("%i : %i\n",i,a[i]); return 0; } |
c++
int main()
{
int n, a, d;
cin >> n>>a>> d;
int arr[]{ n };
for (int i = 0; i <= n; i++)
{
arr[i] = a*pow(d,i);
cout << arr[i] << endl;
}
}
//pascal
program array4;
uses Math;
type
int10 = Array[1 .. 10] of float;
var
b:int10;
i,n,d,a:integer;
begin
writeln(‘n,a,d’);
readln(n,a,d);
for i:=0 to n-1 do begin
b[i]:=a*power(d,i);
writeln(‘b[‘, i, ‘]=’,b[i]:0:0);
end;
end.
c#
int n = 5;
int d = 6;
int pow = 1;
int[] a = new int[n];
a[0] = 2;
for (int i = 1; i < n; ++i)
{
pow *= d;
a[i] = a[0] * pow;
}
for (int i = 0; i < n; ++i)
{ Console.WriteLine(a[i]); }
Console.WriteLine(" ");
}
int n = sc.nextInt();
System.out.println(«A:»);
int a = sc.nextInt();
System.out.println(«D:»);
int d = sc.nextInt();
int[] arr = new int[n];
for (int i = 0; i< arr.length; i++){
arr[i] = a*(int)Math.pow(d,i);
}
for (int j : arr) {
System.out.println(j);
}
Java
Scanner in = new Scanner(System.in);
System.out.print(«K = «);
int k = in.nextInt();
int[] nums = new int[k];
nums[0]=1;
nums[1]=1;
for(int i=2; i<k; i++){
nums[i] = nums[i-1]+nums[i-2];
}
for(int i=2; i<k; i++) {
System.out.println(nums[i] + " ");
}
java5