Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессий - QBasic
Формулировка задачи:
Array>Дано цело число N(>1),а также первый член А и знаменатель D геометрической прогрессий.
Дано цело число N(>1),а также первый член А и знаменатель D геометрической прогрессий.
Сформировать и вывести массив размера N,содержащий N первых членов данной прогрессий:
A,A*D, A*D^2 , A*D^3 , ... .
Просто в Бейсике надо, а я не знаю как(
Решение задачи: «Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессий»
textual
Листинг программы
program mas;
var i,j,a,d,n:integer;
var mass:array[1..100] of integer;
begin
writeln('Введите N>1, а так же первый член А и знаменатель D: ');
write('N=');readln(n);write('A=');readln(a);write('D=');readln(d);
i:=0; mass[i]:=a;
i:=1; mass[i]:=a*d;
j:=d;
for i:=2 to n do
begin
d*=j;
mass[i]:=a*d;
end;
for i:=0 to n-1 do writeln(mass[i]);
end.
Объяснение кода листинга программы
- Объявляются переменные i, j, a, d, n типа integer (целое число) и переменная mass типа array[1..100] of integer (массив 100 элементов целых чисел).
- Выводится запрос на ввод N, A и D.
- Переменная N инициализируется значением, введенным пользователем.
- Переменная A инициализируется значением, введенным пользователем.
- Переменная D инициализируется значением, введенным пользователем.
- Первый элемент массива инициализируется значением переменной A.
- Второй элемент массива инициализируется значением переменной A, умноженной на переменную D.
- Переменная j инициализируется значением переменной D.
- В цикле от i=2 до N выполняется:
- Значение переменной D умножается на значение переменной j.
- Элемент массива с индексом i инициализируется значением переменной A, умноженной на значение переменной D.
- Завершается цикл.
- В цикле от i=0 до N-1 выводятся все элементы массива.