|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2007, 14:59 | #1 |
Пользователь
Регистрация: 21.12.2007
Сообщений: 21
|
Задача Delphi. Помогите доделать!
Код:
И все равно я буду программистом!!!
|
26.12.2007, 15:18 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Ввеcти размер массива можно так n:=strtoint(edit1.text).
Чтобы исключить из подсчета среднего максимальный и минимальный элементы, можно сначала отсортировать массив по возрастанию или убыванию, а затем подсчитать сумму в цикле for i:=2 to n-1; |
26.12.2007, 17:18 | #3 |
Пользователь
Регистрация: 21.12.2007
Сообщений: 21
|
У меня не получается!
И все равно я буду программистом!!!
|
26.12.2007, 20:15 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот немного переделал ваш код.
Добавил процедуру создания таблицы, сортировку и кое-чего по мелочам. Код:
|
26.12.2007, 23:45 | #5 |
Пользователь
Регистрация: 21.12.2007
Сообщений: 21
|
Спасибо! Попробую разобраться! ))))))))
И все равно я буду программистом!!!
|
27.12.2007, 01:12 | #6 |
Пользователь
Регистрация: 21.12.2007
Сообщений: 21
|
Никак не могу блок-схему к этой задаче сделать! ((((( Может кто поможет?
И все равно я буду программистом!!!
|
27.12.2007, 12:53 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Сегодня посмотрел весь код вашей программы, и увидел что в процедуре TForm1.StringGrid1KeyPress не работает клавиша Enter, из-за чего я и создал процедуру создания таблицы. Сегодня я прописал обработчик для этой клавиши, поэтому процедура создания таблицы не нужна.
В обработчике при нажатии клавиши Enter добавляется одна ячейка и с помощью процедуры keybd_event(40, 0, 0, 0) этой ячейке передается фокус ввода. Здесь 40 это код клавиши KeyDown(стрелка вниз), ноли - коды по умолчанию. Как работает программа посмотрите во вложении. Если никто не откликнется на вашу последнюю прсьбу, попробую вечером набросать схему. |
27.12.2007, 21:00 | #8 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Как обещал. Замечания по коду смотрите в личных сообщениях.
Еще там на форме порядок наведите. Последний раз редактировалось puporev; 27.12.2007 в 21:07. |
27.12.2007, 23:00 | #9 |
Пользователь
Регистрация: 21.12.2007
Сообщений: 21
|
СПАСИБО!!! )))))))
И все равно я буду программистом!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите доделать | Povar | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 16.05.2008 14:43 |
Доделать проект на Delphi | SNUPY | Фриланс | 3 | 06.05.2008 15:16 |
задача в delphi!!! помогите плииииз........ | Absent | Помощь студентам | 2 | 05.03.2008 23:44 |
Работа с текстовым файлом (delphi). Помогите доделать программу. | Snord | Помощь студентам | 1 | 14.12.2007 14:10 |