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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2011, 22:14   #1
SegaTT
Новичок
Джуниор
 
Регистрация: 07.02.2011
Сообщений: 3
По умолчанию Вычислить первые n членов арифметической прогрессии и их сумму

Во общем парни выручайте, Вычислить первые n членов арифметической прогрессии и их сумму An=An-1+d , a1,d,n ввести с клавиатуры ,
заранее спасибо + еще каждый член и сумму нужно записать в поле MEMO , заранее спасиба
SegaTT вне форума Ответить с цитированием
Старый 07.02.2011, 22:19   #2
mss
Заблокирован
 
Регистрация: 27.05.2010
Сообщений: 1,099
По умолчанию

Приступай к работе.
Возникнут конкретные трудности - милости просим.
mss вне форума Ответить с цитированием
Старый 07.02.2011, 22:31   #3
SegaTT
Новичок
Джуниор
 
Регистрация: 07.02.2011
Сообщений: 3
По умолчанию

я знаю все куда записать, мне нужен только код решения
SegaTT вне форума Ответить с цитированием
Старый 07.02.2011, 22:33   #4
mss
Заблокирован
 
Регистрация: 27.05.2010
Сообщений: 1,099
По умолчанию

> мне нужен только код решения

Это и есть основная твоя работа.
Вот и приступай к ней.
mss вне форума Ответить с цитированием
Старый 07.02.2011, 22:37   #5
SegaTT
Новичок
Джуниор
 
Регистрация: 07.02.2011
Сообщений: 3
По умолчанию

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BtnrClick(Sender: TObject);
var
i:integer;
s,d:real;
begin
i:=0;
s:=StrToFloat(a1.Text);
d:=StrToFloat(edtd.Text);
while StrToInt(n.Text) > i do
begin
s:=s+d ;
inc(i);
end;
memOtv.Lines.Add('a='+FloatToStr(s) );
end;

end.
SegaTT вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
c++. Cумма членов арифметической прогрессии alen7 Помощь студентам 6 25.11.2010 16:26
Заполнить массив первыми 10 членами арифметической прогрессии с известным первым членом прогрессии А и ра basav1k Фриланс 8 27.05.2010 00:33
Паскаль. Вычислить и напечатать сумму членов данного бесконечного ряда babochka Помощь студентам 1 10.01.2010 00:02
Сумма членов арифмитической прогрессии (Delphi) Юрий2009 Помощь студентам 4 14.03.2009 00:05