2 / 2 / 2
Регистрация: 28.03.2010
Сообщений: 45
1

Геометрическая прогрессия. Сформировать массив из N первых членов данной прогрессии

22.08.2010, 18:37. Показов 3322. Ответов 2
Метки нет (Все метки)

Написал код к задаче Array4◦. Дано целое число N (> 1), а также первый член A и знаменатель D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A*D, A*D^2 , A*D^3 , ... . Вроде, как будто, работает, но в задачнике PascalABC, при одних значениях переменных ответ правильный, при других нет. Помогите разобраться где ошибка?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses PT4;
var mas:array[1..100] of real;
i,n,y:integer;
 a,d,k:real;
begin
 Task('Array4');
  read(n,a,d);
 y:=-1;
for i:=1 to n do
begin
y:=y+1;
k:=exp(ln(d)*y);
mas[i]:=a*k;
write(mas[i]);
end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.08.2010, 18:37
Ответы с готовыми решениями:

Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии
Помогите, пожалуйста. Вообще не знаю, как делать. Дано целое число N (> 1), а также первый...

Массив. Сформировать массив, содержащий N первых членов данной прогрессии
Дано целое число N(>1), а также первый член А и знаменатель D геометрической прогрессии....

Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии
№1 Дано целое число N (>1), а также первый член A и разность D арифметической прогрессии....

Сформурировать и вывести массив размера N, содержащий N первых членов данной прогрессии
Дано целое число N (>1), а также первый член А и разность D арифметической...

2
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
22.08.2010, 18:48 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const nmax=100;
var mas:array[1..nmax] of real;
    i,n,y:integer;
    a,d,k:real;
begin
clrscr;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите первый член прогрессии и ее знаменатель:');
readln(a,d);
mas[1]:=a;
for i:=2 to n do
mas[i]:=mas[i-1]*d;
writeln('Массив:');
for i:=1 to n do
write(mas[i]:0:2,' ');
readln
end.
1
2 / 2 / 2
Регистрация: 28.03.2010
Сообщений: 45
22.08.2010, 18:53  [ТС] 3
Puporev, Спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.08.2010, 18:53
Помогаю со студенческими работами здесь

Сформировать массив из первых k членов геометрической прогрессии.
очень надо решить задачи на паскале. их штук 12ть 4 темы циклы: 1.Пусть дано 20 целых чисел,...

Сформировать и вывести массив, содержащий N первых членов прогрессии
дано целое число N(>1), а так же первый член А и знаменатель D - геометрической прогрессии....

Сформировать и вывести массив, содержащий N первых членов геометрической прогрессии
Данное целое число N (> 1), а также первый член А и знаменатель D геометрической прогрессии. ...

Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии
Помогите пожалуйста ошибку найти , ничего не понимаю как исправить Заранее спасибо Дано целое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru