Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.03.2017, 07:52   #1
anasttb
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 32
По умолчанию Вычислите k первых членов арифметической прогрессии.

Члены прогрессии заданы следующим рекуррентным образом: a0 =1, an+1 =a n+2, где n=0,1,2
anasttb вне форума Ответить с цитированием
Старый 10.03.2017, 08:02   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var k,i,a,s:integer;
begin
   Write('k = '); Readln(k);
   a:=1;
   s:=a;
   Writeln('a[0] = ',a);
   For i:=1 to k do
   begin
      a:=a+2;
      s:=s+a;
      Writeln('a[',i,'] = ',a);
   end;
   Writeln;
   Writeln('s = ',s);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 16.03.2017, 05:08   #3
Hitoku
Пользователь
 
Аватар для Hitoku
 
Регистрация: 05.03.2017
Сообщений: 18
По умолчанию

Ну или так
Код:
function a(i : Integer) : Integer := (i < 1 ? 1 : a(i-1)+2);
begin
  for var i:=0 to ReadLnInteger('k =') do writeln('a[',i,']=',a(i));
end.
Здесь должна быть подпись... Но чего-то лень придумывать(
Hitoku вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сделать в СИ: Реализовать алгоритм,вычисляющий несколько первых членов арифметической прогрессии Creative10 Помощь студентам 1 03.04.2014 02:28
Вывод 10 первых членов арифметической прогрессии. Dils Помощь студентам 4 06.03.2014 07:37
программа вычисляющая сумму первых n членов арифметической прогрессии Катюлька Помощь студентам 0 13.05.2011 23:27
Сумма N членов арифметической прогрессии(Delphi) Владюшка Помощь студентам 4 26.03.2011 12:42
c++. Cумма членов арифметической прогрессии alen7 Помощь студентам 6 25.11.2010 16:26