Вычислить k первых членов арифметической прогрессии, заданных рекуррентной формулой An+1 = An+2

@ramil77 · Регистрация: 26.11.2012

Студворк — интернет-сервис помощи студентам

Вычислить k первых членов арифметической прогрессии, заданных рекуррентной формулой ,A[n+1] = A[n]+2 где A[n] - n-й член арифметической прогрессии.

Добавлено через 11 минут
Помогите пожалуйста, я только начинаю.
Как я понял суть задачи пользователь должен ввести первый член прогрессии и общее их количество. а программа вывести такое сообщение: (например первый член равен 5, общее количество членов прогрессии равно 3)
1 член прогрессии равен 5
2 член прогрессии равен 7
3 член прогрессии равен 9

У меня получается правильно, только если первый член прогрессии равен 0, в остальных случаях цикл начинает прибавлять не двойку, а предыдущую сумму.

Заранее спасибо.

@CodeR · 26.11.2012, 15:19

Сообщение от ramil77

У меня получается правильно, только если первый член прогрессии равен 0, в остальных случаях цикл начинает прибавлять не двойку, а предыдущую сумму.
Заранее спасибо.

а где эти наработки?выложите мы подскажем что не так!

@ramil77 · 26.11.2012, 15:55 **[ТС]**

Если только как картинку, не знаю как в текст выводить.

Вычислить k первых членов арифметической прогрессии, заданных рекуррентной формулой An+1 = An+2

@CodeR · 26.11.2012, 16:04

Pascal

Var a1,an,k,i:integer;
Begin
    write('Введите первый член: ');readln(a1);
    write('Введите k: ');readln(k);
    i:=1;
    writeln(i,'-ый член = ',a1);
    Repeat
     inc(i);//увеличивае счетчик кол-ва
     an:=a1+2;//вычилсяем очередной член
     writeln(i,'-ый член = ',an);//выводим
     a1:=an;//запоминаем предведущий член для вычисления следующего
    Until k=i;
    readln;
End.

@Puporev · 26.11.2012, 16:05

Сообщение от ramil77

не знаю как в текст выводить.

Открываешь файл в текстовом редакторе, если кодировка DOS , перекодируешь в WIN, копируешь, вставляешь в тему и обрамляешь тегами PASCAL.

@ramil77 · 26.11.2012, 16:45 **[ТС]**

Вот спасибо. Про 11 пункт никак не получалось додуматься самому.

@ramil77 0 / 0 / 0 Регистрация: 26.11.2012 Сообщений: 10
		1
	Вычислить k первых членов арифметической прогрессии, заданных рекуррентной формулой An+1 = An+2 26.11.2012, 13:41. Показов 4000. Ответов 5 Метки нет (Все метки) Вычислить k первых членов арифметической прогрессии, заданных рекуррентной формулой ,A[n+1] = A[n]+2 где A[n] - n-й член арифметической прогрессии. Добавлено через 11 минут Помогите пожалуйста, я только начинаю. Как я понял суть задачи пользователь должен ввести первый член прогрессии и общее их количество. а программа вывести такое сообщение: (например первый член равен 5, общее количество членов прогрессии равно 3) 1 член прогрессии равен 5 2 член прогрессии равен 7 3 член прогрессии равен 9 У меня получается правильно, только если первый член прогрессии равен 0, в остальных случаях цикл начинает прибавлять не двойку, а предыдущую сумму. Заранее спасибо. 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,562 Записей в блоге: 1
	26.11.2012, 15:19	2
	Сообщение от ramil77 У меня получается правильно, только если первый член прогрессии равен 0, в остальных случаях цикл начинает прибавлять не двойку, а предыдущую сумму. Заранее спасибо. а где эти наработки?выложите мы подскажем что не так! 1

@ramil77 0 / 0 / 0 Регистрация: 26.11.2012 Сообщений: 10
	26.11.2012, 15:55 [ТС]	3
	Если только как картинку, не знаю как в текст выводить. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	26.11.2012, 16:05	5
	Сообщение от ramil77 не знаю как в текст выводить. Открываешь файл в текстовом редакторе, если кодировка DOS , перекодируешь в WIN, копируешь, вставляешь в тему и обрамляешь тегами PASCAL. 1

@ramil77 0 / 0 / 0 Регистрация: 26.11.2012 Сообщений: 10
	26.11.2012, 16:45 [ТС]	6
	Вот спасибо. Про 11 пункт никак не получалось додуматься самому. 0

Опции темы