 |
|
Модераторы: Poseidon |
 
|
|
[Delphi] Функция MeanDigits 
| Aleksandr1986 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 14.3.2007 Репутация: нет Всего: нет |
Разработать программу на Object Pascal, содержащую процедуру или функцию в соответствии с индивидуальным заданием. Разработать также форму и соответствующие обработчики, позволяющие пользователю вводить набор строк (используя ListBox) и видеть результат (в другом ListBox).
Задание. Разработать функцию MeanDigits(const S:string):integer, определяющую среднее арифметическое символов, изображающих цифры в строке S. С помощью данной функции вывести только такие строки из введенного набора, у которых среднее арифметическое цифр не меньше 5. Это сообщение отредактировал(а) Aleksandr1986 - 14.3.2007, 15:32 |
|||
|
||||
Дата 14.3.2007, 15:23 (
Загрузка ...
| ama_kid |
|
|||
 АСУТП-кодер  Профиль Группа: Комодератор Сообщений: 1460 Регистрация: 5.3.2007 Где: Москва Репутация: 16 Всего: 95 |
Лень чтоли делать самому?
 Ну смотри (аттач), накропал на коленке... Причешешь сам, надеюсь... Присоединённый файл ( Кол-во скачиваний: 7 ) 
MeansDigit.rar 3,16 Kb-------------------- самурай без меча подобен самураю с мечом, но только без меча |
|||
|
||||
| Aleksandr1986 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 14.3.2007 Репутация: нет Всего: нет |
Не лень..просто я вапще полный ноль в программировании) Пошёл на компьютерные науки на веб дизайнера...хтмл хорошо знаю, так у нас два года программиравание вот и сижу мучаюсь с ним) |
|||
|
||||
| Aleksandr1986 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 14.3.2007 Репутация: нет Всего: нет |
А можите пояснить как програма работает? (для общего образования)
 |
|||
|
||||
| ama_kid |
|
|||
|
АСУТП-кодер Профиль Группа: Комодератор Сообщений: 1460 Регистрация: 5.3.2007 Где: Москва Репутация: 16 Всего: 95 |
работает просто - есть кнопка Add - по её нажатию в левый листбокс добавляется строка из едит1. можно добавлять скока влезет (а влезет многа)... кнопка Clear позволяет очистить этот листбокс.. По нажатию кнопки Calc происходит перебор всех строк левого листбокса и для каждой строки вызывается функция MeanDigits, которая делает следующее: пробегает каждый символ в строке и если этот символ - число, тогда оно его прибавляет к накапливаемой сумме. В конце - производится деление на количество чисел-цифр в строке (подсчитывается параллельно) для получения среднего арифметического. И если это среднее арифметическое не меньше 5 - тогда строка добавляется в правый листбокс...
-------------------- самурай без меча подобен самураю с мечом, но только без меча |
|||
|
||||
| Aleksandr1986 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 14.3.2007 Репутация: нет Всего: нет |
Большое вам с спсибо) Теперь буду знать к кому обращаться если что) Последний вопрос, а алгоритм прописывать для каждых кнопкок в проге?
|
|||
|
||||
| ama_kid |
|
|||
|
АСУТП-кодер Профиль Группа: Комодератор Сообщений: 1460 Регистрация: 5.3.2007 Где: Москва Репутация: 16 Всего: 95 |
Конкретная кнопка - конкретный алгоритм. На каждую кнопку необходимо вешать соответствующий обработчик нажатия... Если ты не повесишь на кнопку обработчик - по ее нажатию просто ничего не будет происходить...
-------------------- самурай без меча подобен самураю с мечом, но только без меча |
|||
|
||||
| Aleksandr1986 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 14.3.2007 Репутация: нет Всего: нет |
Работает)) Спасибо вам)
 |
|||
|
||||
|
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
[ Время генерации скрипта: 0.0466 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |