Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.12.2018, 13:07
Lesya18 Lesya18 вне форума
Прохожий
 
Регистрация: 28.12.2018
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Задача на вложенные циклы

Дано действительное число х. Последовательность а1, а2,… образована по следующему закону:
A(n)=x/sqrt(x)*(n+2)!
Получить а1 + ... + ak, где k- наименьшее целое число, удовлетворяющее двум условиям: k>10 и A(k+1)<10^-5
Ответить с цитированием
  #2  
Старый 28.12.2018, 22:31
Аватар для lmikle
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,310
Версия Delphi: 7, XE3, 10.2
Репутация: 49087
По умолчанию

А кто тебе сказал, что это задача на вложенные циклы?
Это задача на цикл While...

Код:
function fact(n : integer) : integer;
var
  i : integer;
begin
  result := 1;
  if n > 1 then 
    for i := 2 to n do
      result := result * i;
end;

function f(x : double; n : integer) : double;
begin
  result := x/sqrt(x)*(fact(n+2));
end;

procedure makeA(x : double);
var
  n : integer;
begin
  n := 1;
  while (n < 10) or (f(n+1) > exp(10,-5)) do
    begin
      writeln(format('a[%d] = %.8f',[n,f(n)]);
    end;
end;

PS. Код для консольки.
Ответить с цитированием
Ответ



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

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:56.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2019

ВКонтакте   Facebook   Twitter