Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Итерационный цикл https://www.cyberforum.ru/ delphi-beginners/ thread966781.html Решить задачу, организовав итерационный цикл. Вычислить значение непрерывной дроби с точ-ностью =10-3, 10-4: q=1+1/{1+1/} Точное значение - 1,618033989... Определить, как изменяется число итераций...	Delphi Программа для вычисления количества рабочих часов в неделю Программа для вычисления количества рабочих часов в неделю. То есть, я ввожу количество уроков в день, а программа, когда я введу все 5 дней, суммирует, делит на 60 и выдает количество часов и минут....
Delphi задача Delphi1 В простую переменную последовательно вводятся N чисел. Все ли числа меньше заданного числа К? в delphi https://www.cyberforum.ru/ delphi-beginners/ thread966744.html	Delphi Передача данных по сети без использования сервера (pear to pear) Здравия всем! С сетями работать начала года пол назад. И все время я писал клиент-серверные программы, они грозили утечкой трафика и потерей времени на прием передачу. Но без сервака с внешним ip... https://www.cyberforum.ru/ delphi-beginners/ thread966720.html
Создать тест из 25 вопросов, 5 вариантов ответа Delphi Добрый вечер мне нужно создать тест, но не получается, нужно создать тест из 25 вопросов, 5 вариантов ответа, только один правильный ответ, таймер на 25 мин, нужно чтобы при каждом открытии теста он...	Delphi Дано натуральное число N. Найти число от 1 до N с максимальной суммою делителей https://www.cyberforum.ru/ delphi-beginners/ thread966707.html Дано натуральное число N. Найти число от 1 до N с максимальной суммой делителей. Формат входных данных. Стандартный входной поток содержит N (N ≤ 10000). Формат выходных данных. В...
Delphi Местоположение объектов https://www.cyberforum.ru/ delphi-beginners/ thread966705.html Во время программирования на Delphi 7 появилась следуящая проблема - У меня разрешение экрана 1980х1080, немного побаловшись с настройкой Align и Autosize я настроил размер объектов ( Во всей...	массивы Delphi помогите осуществить матрицу в столбик-строку как например вот так: 1 2 3 4 5 6 7 8 9 а у меня выводится вот так: 1 2 3
Delphi динамические массивы и файлы в Delphi помогите, please!! не знаю как делать!! Создать органайзер преподавателя. С обязательными полями: Фамилия (ComboBox), Фамилия, Имя (Edit) , Оценка 1-8 (Edit), Итоговая оценка (среднее... https://www.cyberforum.ru/ delphi-beginners/ thread966624.html	Delphi не понимаю к чем ошибка( https://www.cyberforum.ru/ delphi-beginners/ thread966597.html не могу понять почему не корректно работает.Если после нескольких смен пользователей зайти под user-ами,а потом на смене вести неправильный логин или пароль все равно переходит на форму user-а....
Реализация класса Delphi Реализовать класс «Человек» (THuman). Класс содержит следующие поля: фамилия, имя, отчество, пол, день, месяц и год рождения. Реализовать следующие методы:	Delphi Не получается перевести в градусы https://www.cyberforum.ru/ delphi-beginners/ thread966485.html Не могу понять, что надо сделать чтобы правильно считал сумму и градусы, допустим если ввожу 0,001 то номер М получается 4, т.е 4 радианы.Но в градусах это получается 229, а считает почему то не...

Cyborg Drone

Модератор

9528 / 4857 / 3228

Регистрация: 17.08.2012

Сообщений: 15,194

02.10.2013, 03:10

Найти сумму первых k чисел последовательности Фибоначчи - Delphi - Ответ 5125742

02.10.2013, 03:10. Показов 1644. Ответов 2

Метки (Все метки)

Сообщение было отмечено Disah1995 как решение

Решение

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var fk_1, fk_2, fk, k, s, i: integer;
begin
  k := abs(StrToInt(Edit1.Text)); //abs - чтобы исключить отрицательные числа
  case k of
    0: ShowMessage('Ошибка: число должно быть больше нуля!');
    1: Label1.Caption := '1';
    2: Label1.Caption := '2'
    else
      begin
        fk_2 := 1;
        fk_1 := 1;
        s := 2;
        for i := 1 to k - 2 do
          begin
            fk := fk_2 + fk_1;
            s := s + fk;
            fk_2 := fk_1;
            fk_1 := fk
          end;
        Label1.Caption := IntToStr(s)
      end
  end;
end;

Вернуться к обсуждению:
Найти сумму первых k чисел последовательности Фибоначчи Delphi

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.10.2013, 03:10

Готовые ответы и решения:

Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых элементов последовательности чисел фибоначчи
Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых...

По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности
Помогите, пожалуйста, с решением. По заданной формуле члена последовательности с номером k найти...

Определить номер N числа Фибоначчи, при котором сумма N первых чисел Фибоначчи превышает заданное число М
Определить номер N числа Фибоначчи, при котором сумма N первых чисел Фибоначчи превышает заданное...

Найти сумму первых N элементов заданной последовательности
Прогуглил, но там удален мат Помогите пожалуйста написать код на Delphi: Последовательность...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.10.2013, 03:10

Помогаю со студенческими работами здесь

Найти сумму первых n членов заданной последовательности
1)По заданной формуле члена последовательности с номером k найти сумму первых n членов...

Найти сумму первых k чисел последовательности Фибоначчи
Рассмотреть решение предложенной задачи с использованием всех трех видов циклов. Отладить программу...

Найти двенадцать первых чисел последовательности Фибоначчи
Нужно составить программу нахождения двенадцати первых чисел последовательности Фибоначчи. Я...

Найти сумму N первых чисел фибоначчи
Найти сумму N первых чисел фибоначчи через цикл for program zd421; var...

Наверх