Помогите решить задачку

Хома · 05.04.2012, 16:20

Дано целое число N(>1), а также первый член А и знаменатель D геометрической прогрессии. Сформулировать и вывести массив размера N содержащий N первых членов данной прогрессии.
A,A*D,A*D1,A*D3... .
A=-2.27;
N=2;
D=-1.33
Ответ должен получиться:-2,27;3,03

Хома · 05.04.2012, 16:28

ПОМОГИТЕ

Vladimir_S · 05.04.2012, 16:34

Поскольку Вы не считаете нужным указать даже язык программирования, то получите совет: вооружитесь калькулятором, карандашом и бумагой и выписывайте элементы массива, умножая каждый предыдущий элемент на D. И продолжайте, пока не навыпишете N штук.

Хома · 05.04.2012, 16:38

Любой в принципе Pascal или Delphi

Vladimir_S · 05.04.2012, 16:41

Цитата:

Сообщение от Хома

Любой в принципе Pascal или Delphi

Вот спасибо, мил человек, за бесценную информацию. И что - в чем проблема? Два числа не перемножить?

Vladimir_S · 05.04.2012, 17:01

Да ладно, получите:

Код:

Var
 A,D:Real;
 N,i:Byte;
 W:Array[1..255] of Real;
Begin
 Write('A = ');
 Readln(A);
 Write('D = ');
 Readln(D);
 Write('N = ');
 Readln(N);
 W[1]:=A;
 For i:=2 to N do W[i]:=W[i-1]*D;
 For i:=1 to N do Write(W[i]:16:2);
 Readln
End.

Хома · 05.04.2012, 17:18

Спасибочки большое!!!Да перемножить проблемы бы не составило,а вот как правильно програмку оформить вот это да...хм...программирование это не моё(((Спасибо за помощь=)))

05.04.2012, 16:20	#1 (permalink)
Хома Member Регистрация: 05.04.2012 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачку Дано целое число N(>1), а также первый член А и знаменатель D геометрической прогрессии. Сформулировать и вывести массив размера N содержащий N первых членов данной прогрессии. A,AD,AD1,A*D3... . A=-2.27; N=2; D=-1.33 Ответ должен получиться:-2,27;3,03

05.04.2012, 17:01	#6 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да ладно, получите: Код: Var A,D:Real; N,i:Byte; W:Array[1..255] of Real; Begin Write('A = '); Readln(A); Write('D = '); Readln(D); Write('N = '); Readln(N); W[1]:=A; For i:=2 to N do W[i]:=W[i-1]*D; For i:=1 to N do Write(W[i]:16:2); Readln End.

05.04.2012, 16:20
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пока в вашей теме не появились ответы, можете посмотреть эти Помогите решить задачку для 5 класса Помогите решить задачку Помогите решить Помогите решить Помогите, пожалуйста, решить задачку Помогите решить

05.04.2012, 16:28	#2 (permalink)
Хома Member Регистрация: 05.04.2012 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ПОМОГИТЕ

05.04.2012, 16:34	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Поскольку Вы не считаете нужным указать даже язык программирования, то получите совет: вооружитесь калькулятором, карандашом и бумагой и выписывайте элементы массива, умножая каждый предыдущий элемент на D. И продолжайте, пока не навыпишете N штук.

05.04.2012, 16:38	#4 (permalink)
Хома Member Регистрация: 05.04.2012 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Любой в принципе Pascal или Delphi

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

05.04.2012, 17:18	#7 (permalink)
Хома Member Регистрация: 05.04.2012 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибочки большое!!!Да перемножить проблемы бы не составило,а вот как правильно програмку оформить вот это да...хм...программирование это не моё(((Спасибо за помощь=)))