Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Программирование на Delphi и Lazarus


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Асмик Гаряка
Статус: Советник
Рейтинг: 0
∙ повысить рейтинг »
Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 0
∙ повысить рейтинг »
lamed
Статус: Академик
Рейтинг: 0
∙ повысить рейтинг »

∙ Pascal / Delphi / Lazarus

Номер выпуска:1740
Дата выхода:20.09.2018, 16:15
Администратор рассылки:Зенченко Константин Николаевич (Модератор)
Подписчиков / экспертов:32 / 34
Вопросов / ответов:3 / 7

Консультация # 36756: Как реализовать ввод формул из текстового файла? При этом очень важно что-бы программа "понимала" переменные, тригонометрические функции и естественно скобки. Заранее спасибо....
Консультация # 154016: Turbo Pascal 1 задача: С клавиатуры вводится натуральное число n. Найдите сумму первых элементов последовательности Фибоначчи до n-ного включительно. 2 задача: выод всех совершенных чисел, не превосходящих 10 000. 3 задача: с клавиатуры вводятся два натуральных числа a и b. Распечатайте все простые числа на отрезке [a, b]. 4 зад...
Консультация # 150358: Здравствуйте! Помогите пожалуйста. У меня есть табличка с одним полем. Как вывести все данные таблицы в Combobox? Я использовала вот такой код программы: ADOTable1.First; for i:=1 to ADOTable1.RecordCount do begin ComboBox1.Items.Add(ADOTable1.fieldbyname('name_p').AsString); end; ADOTable1.Next; Но в Combobox в...

Консультация # 36756:

Как реализовать ввод формул из текстового файла?
При этом очень важно что-бы
программа "понимала" переменные, тригонометрические
функции и естественно скобки.
Заранее спасибо.

Дата отправки: 04.03.2006, 20:30
Вопрос задал: Dobrotsvetov_D_M
Всего ответов: 3
Страница онлайн-консультации »


Консультирует Вадим Исаев ака sir Henry (Старший модератор):

Здравствуйте, Dobrotsvetov_D_M!
Это называется "парсинг". Поскольку вопрос Ваш слишком общий, то чтобы узнать, как это работает, наберите слово "парсинг" с троке поиска какого-либо поисковика.
Для примера можно почитать это:
http://www.vb.kiev.ua/magazine/2004/01/cm200301_16.pdf

Консультировал: Вадим Исаев ака sir Henry (Старший модератор)
Дата отправки: 05.03.2006, 05:56
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Gluck3D:

Здравствуйте, Dobrotsvetov_D_M!Я сам на днях решал эту проблему. Вы вводите формулу со скобками (не сложно переделать чтобы значение забиралось из файла), тригонометрическими функциями, логическими и арифметическими операциями. Программа считает сначала значения в тригоном. Функциях, затем сами функции, потом заменяет их на значения. После этого считает скобки в которых нет других скобок, и так пока не останется не одной скобки.

Код отправляю по внутренней почте.

Консультировал: Gluck3D
Дата отправки: 05.03.2006, 12:17
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Whisper:

Здравствуйте, Dobrotsvetov_D_M!
Так же как и из строки, получаемой из пересенно типа string - получаешь строку из файла и разбираешь ее... по символьно.

первый попавшийса пример
http://pascal.sources.ru/parsing/mcal.htm

Консультировал: Whisper
Дата отправки: 06.03.2006, 13:44
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 154016:

Turbo Pascal


1 задача: С клавиатуры вводится натуральное число n. Найдите сумму первых элементов последовательности Фибоначчи до n-ного включительно.
2 задача: выод всех совершенных чисел, не превосходящих 10 000.
3 задача: с клавиатуры вводятся два натуральных числа a и b. Распечатайте все простые числа на отрезке [a, b].
4 задача: для заданной пары натуральных чисел вычислите наибольший общий делитель
5 задача: распечатайте трехзначные числа в порядке возрастания суммы цифр
6 задача: вводится год и месяц. задача: вывести количество дней в указанном месяце. + год может быть високосным

Извините, что так много. уже запутался, но не могу идти дальше не поняв, как решить и написать программы по этим задачам. Большое спасибо уважаемые эксперты :)

Дата отправки: 11.12.2008, 22:47
Вопрос задал: Зуев Игорь Владимирович
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Шичко Игорь:

Здравствуйте, Зуев Игорь Владимирович!
Примерные коды задач 1-3 в приложении.

Приложение:

Консультировал: Шичко Игорь
Дата отправки: 14.12.2008, 14:33
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, Зуев Игорь Владимирович!

Программа в приложении.
Все задачи выполняются последовательно.
Удачи!

Приложение:

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 15.12.2008, 15:58
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 150358:

Здравствуйте! Помогите пожалуйста. У меня есть табличка с одним полем. Как вывести все данные таблицы в Combobox? Я использовала вот такой код программы:

ADOTable1.First;
for i:=1 to ADOTable1.RecordCount do
begin
ComboBox1.Items.Add(ADOTable1.fieldbyname('name_p').AsString);
end;
ADOTable1.Next;

Но в Combobox выводиться только первое значение поля, причём несколько раз. В чём ошибка?

Дата отправки: 12.11.2008, 20:33
Вопрос задал: Шушкова Марина Сергеевна
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Delph:

Здравствуйте, Шушкова Марина Сергеевна!

Ваша ошибка двольно элементарна, хотя и встречается весьма часто. Оператор ADOTable1.Next; Вы вынесли за пределы цикла, поэтому он выполняется единственный раз уже после того, как отработал весь цикл. Его следует внести внутрь, но желательно с небольшим уточнением. Привожу исправленный вариант.

ADOTable1.First;
for i:=1 to ADOTable1.RecordCount do
begin
ComboBox1.Items.Add(ADOTable1.fieldbyname('name_p').AsString);
if i < ADOTable1.RecordCount then ADOTable1.Next; { проверка предотвращает попытку перехода на несуществующую запись, следующую после последней }
end;

Желаю успехов!

Консультировал: Delph
Дата отправки: 12.11.2008, 22:03
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует progerNSK:

Здравствуйте, Шушкова Марина Сергеевна!

К дополнению ответа от Delph

RecordCount желательно неиспользовать для цикла, Eof оптимально, все зависит от датасетов - их настроек, так например реальное число записей может 100, а recordcount покажет 10 (не все записи сразу подгружаются (реальное кол-во записей можно узнать - например- last поставить а затем recordcount))

ADOTable1.First;
while(AdoTable1.Eof=false)do
begin
ComboBox1.Items.Add(ADOTable1.fieldbyname('name_p').AsString);
Adotable1.Next;
end;

Консультировал: progerNSK
Дата отправки: 13.11.2008, 06:27
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное