Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Члены прогрессии заданы следующим рекуррентным образом: a0 =1, an+1 =a n+2, где n=0,1,2
anasttb вне форума   Ответить с цитированием
Старый 10.03.2017, 09:02   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,582
Репутация: 1450

skype: newerow1989
По умолчанию

Код:

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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 16.03.2017, 06:08   #3
Hitoku
Пользователь
 
Аватар для Hitoku
 
Регистрация: 05.03.2017
Сообщений: 17
Репутация: 10
По умолчанию

Ну или так
Код:

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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сделать в СИ: Реализовать алгоритм,вычисляющий несколько первых членов арифметической прогрессии 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 13:42
c++. Cумма членов арифметической прогрессии alen7 Помощь студентам 6 25.11.2010 17:26




11:30.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru