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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 08.12.2008, 15:46
petr577 petr577 вне форума
Прохожий
 
Регистрация: 08.12.2008
Сообщения: 1
Репутация: 10
По умолчанию Помогите решить 2 задачки в Delphi

Помогите решить задачи:
1.Составить алгоритм нахождения суммы ряда с заданной точностью e. Использовать рекуррентные соотношения при вычислении очередного члена ряда. Вычисление заканчивается, если модуль очередного слагаемого становится меньше заданного значения точности (e), причем для этих рядов (при | x | < 1) абсолютная величина суммы всех отброшенных членов ряда будет меньше e. Для оценки правильности расчетов предусмотреть вычисление по контрольной формуле.
Ряд:

Контрольная формула:


2.Дана последовательность чисел а1, а2, …, аn. Найти положительную подпоследовательность наибольшей длины.

PS: Во 2-ой задаче должна выводится сама положительная подпоследовательность
Например,вот произвольная последовательность чисел:
-10 -14 -33 10 13 34 -18 -47 22 35 56 67 -17
Ответ: 22 35 56 67
Ответить с цитированием
  #2  
Старый 08.12.2008, 16:46
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А в чем проблема то?
Первая задача - выведи формулу в виде суммы. На первый взгляд это будет

S = 1 + S(i=1::n)[(-1^i) * ((i+2)!/(i+1)!)*(x^i)], где ! - не факториал, а некоторая функция формирования ряда (т.е. факториал по i, для каждого члена которого надо прибавить указанное число). Формулу проверить!!!

Далее в рекурсии вычисляешь.

Для второй задачи - просто тупо идешь по массиву чисел и считаешь положительные цепочки. Сохранять надо индекс начала и ее длинну. По этим значениям выводишь результат.
Ответить с цитированием
  #3  
Старый 05.02.2009, 19:10
Аватар для Slavdey8
Slavdey8 Slavdey8 вне форума
Прохожий
 
Регистрация: 01.02.2009
Сообщения: 2
Репутация: 10
По умолчанию

Здравствуйте эксперты!!!
Помогите разобраться в задаче... Вторую неделю пытаюсь написать программу, но пока увы не получается. Мозгов не хватает!!!

Имеется табличный список «Аптеки города», в котором каждый
элемент основного списка «Аптека» имеет множество своих
индивидуальных лекарств. Основной список содержит информацию о
каждой аптеке: название, адрес, форма собственности. Дополнительный
список включает следующие поля: наименование лекарства, цена, его
производитель, дата выпуска и срок годности лекарства. Найти аптеку, в
которой цена на введенное в режиме диалога лекарство наименьшая.
Ответить с цитированием
  #4  
Старый 05.02.2009, 20:21
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Самый простой способ - использовать БД.
Если не детилизироваться (нормализироваться) до упора, то у тебя будет 2 таблицы:
- Аптеки (инфа об аптеке)
- Лекарство (инфа о лекарстве + ссылка на аптеку).

Запрос поиска будет где-то такой:

Код:
SELECT L.*, A.*
FROM Лекарства L LEFT JOIN Аптека A ON L.ParentID = A.ID
WHERE UPPER(L.NAME) = UPPER(:Name1) AND
L.Price = (SELECT MIN(Price) FROM Лекарства WHERE UPPER(NAME) = UPPER(:Name2))

:Name1 и :Name2 - параметры, название лекарства, введенное в диалоге.
Ответить с цитированием
  #5  
Старый 06.02.2009, 09:11
Аватар для Slavdey8
Slavdey8 Slavdey8 вне форума
Прохожий
 
Регистрация: 01.02.2009
Сообщения: 2
Репутация: 10
По умолчанию

Использовать БД через DataBase? Или писать программу самому через Delphi 7? Написать таблицы я попробую, как их потом объединить? Чтобы они в программе были согласованны друг с другом...
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025