Задача про День учителя - Страница 2

ypaxapa · 18.11.2009, 19:01

ну я то открою, да вот препод вряд ли это сделает))... тем более уж извини, но студент которые якобы только только основы языка изучил такую матёрую прогу не напишет)) А касательно чёткого ответа прошу прощения... я не совсем просто понял эти два ветвления, и об одинаковом значении слов консольная-терминальная не имел знания...

AlexZir · 18.11.2009, 19:03

какие ветвления вы не поняли?

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then key:=#0;
end;

Эта процедура отслеживает нажатия клавиш при вводе даты и не позволяет ввести вместо цифр другие символы. key - оператор, возвращающий значение нажатого символа.

В процедуре обработчика нажатия кнопки Button1 ветвление

Код:

if not (edit1.Text='') then n:=strtoint(edit1.Text) else n:=0;

нужно для избежания ошибки обработки текстового поля Edit1. Если не введено никакого значения, то считается, что введен 0. Далее идет ветвление, обрабатывающее значение введенного года. Так как праздник День Учителя у нас в стране начали отмечать с 1994 года, то все даты до этого года считаются ошибочными, в том числе и 0. Если дата введена верно, то идет расчет. Окончательный результат передаются в Memo1 в виде добавления строки.

В программе предусмотрено контекстное меню, содержащее 3 команды: Расчет, О программе, Выход. Эти команды привязаны к соответствующим обработчикам.

AlexZir · 18.11.2009, 19:15

Значения слов терминальная и консольная различаются, просто нужно было уточнить, что я имел в виду, а не отдавать все на откуп моему извращенному Pascal-ем мышлению

Для терминального приложения листинг можете взять здесь, но нужно будет его адаптировать под вашу версию Delphi.

ypaxapa · 18.11.2009, 19:24

я конечно понимаю что на вашем-то уровне это всё лёгко и очевидно... Препод вредный на радостях попросит ввести и 1756 г. только ради проверки программы, причём именно чтобы число выдало... так что прошу простить, но эта программа слишком крута для первокурсника...

ypaxapa · 18.11.2009, 19:25

спасибо за ссылку... ну и за помощь соответственно))

AlexZir · 18.11.2009, 19:29

Ну так вы ему объясните, что вводить даты ранее даты введения праздника - верх бессмысленности, поэтому и установлен нижний предел во 2 октября 1994 года

Если будут вопросы, на что опирались при написании программы, скажите, что воспользовались базой Delphi World, настоящий дельфоид знает, что это такое и вопросы отпадут

ypaxapa · 18.11.2009, 19:32

ну я так и сделаю по вашему совету)) я даже знаю что ответит она мне, но не важно... думаю выкручусь))

AlexZir · 18.11.2009, 19:40

У вас какая версия Delphi установлена? А то я напишу консольный вариант, а вы проект не сможете открыть, чтобы показать. Экзешник, конечно, можно запустить, но для преподавателя важен ход мыслей, что и откуда вы брали при создании программы.

ypaxapa · 18.11.2009, 20:43

У меня версия 7.0.4...

ypaxapa · 18.11.2009, 20:44

Borland Delphi если вас это интересует)

18.11.2009, 19:03	#12 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,774 Записей в дневнике: 71 Сказал(а) спасибо: 163 Поблагодарили 201 раз(а) в 85 сообщениях Репутация: 74893	какие ветвления вы не поняли? Код: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9']) then key:=#0; end; Эта процедура отслеживает нажатия клавиш при вводе даты и не позволяет ввести вместо цифр другие символы. key - оператор, возвращающий значение нажатого символа. В процедуре обработчика нажатия кнопки Button1 ветвление Код: if not (edit1.Text='') then n:=strtoint(edit1.Text) else n:=0; нужно для избежания ошибки обработки текстового поля Edit1. Если не введено никакого значения, то считается, что введен 0. Далее идет ветвление, обрабатывающее значение введенного года. Так как праздник День Учителя у нас в стране начали отмечать с 1994 года, то все даты до этого года считаются ошибочными, в том числе и 0. Если дата введена верно, то идет расчет. Окончательный результат передаются в Memo1 в виде добавления строки. В программе предусмотрено контекстное меню, содержащее 3 команды: Расчет, О программе, Выход. Эти команды привязаны к соответствующим обработчикам. __________________ Убить всех человеков!

18.11.2009, 19:15	#13 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,774 Записей в дневнике: 71 Сказал(а) спасибо: 163 Поблагодарили 201 раз(а) в 85 сообщениях Репутация: 74893	Значения слов терминальная и консольная различаются, просто нужно было уточнить, что я имел в виду, а не отдавать все на откуп моему извращенному Pascal-ем мышлению Для терминального приложения листинг можете взять здесь, но нужно будет его адаптировать под вашу версию Delphi. __________________ Убить всех человеков!

18.11.2009, 19:29	#16 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,774 Записей в дневнике: 71 Сказал(а) спасибо: 163 Поблагодарили 201 раз(а) в 85 сообщениях Репутация: 74893	Ну так вы ему объясните, что вводить даты ранее даты введения праздника - верх бессмысленности, поэтому и установлен нижний предел во 2 октября 1994 года Если будут вопросы, на что опирались при написании программы, скажите, что воспользовались базой Delphi World, настоящий дельфоид знает, что это такое и вопросы отпадут __________________ Убить всех человеков!

18.11.2009, 19:40	#18 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,774 Записей в дневнике: 71 Сказал(а) спасибо: 163 Поблагодарили 201 раз(а) в 85 сообщениях Репутация: 74893	У вас какая версия Delphi установлена? А то я напишу консольный вариант, а вы проект не сможете открыть, чтобы показать. Экзешник, конечно, можно запустить, но для преподавателя важен ход мыслей, что и откуда вы брали при создании программы. __________________ Убить всех человеков!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

18.11.2009, 19:01	#11 (permalink)
ypaxapa Member Регистрация: 17.11.2009 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ну я то открою, да вот препод вряд ли это сделает))... тем более уж извини, но студент которые якобы только только основы языка изучил такую матёрую прогу не напишет)) А касательно чёткого ответа прошу прощения... я не совсем просто понял эти два ветвления, и об одинаковом значении слов консольная-терминальная не имел знания...

18.11.2009, 19:01
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Обсуждаемые топики могут вам помочь в решении вопроса День энергетика С Днём учителя! День молодежи Ищу учителя по программированию С++ День Радио День Шарлоток

18.11.2009, 19:24	#14 (permalink)
ypaxapa Member Регистрация: 17.11.2009 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я конечно понимаю что на вашем-то уровне это всё лёгко и очевидно... Препод вредный на радостях попросит ввести и 1756 г. только ради проверки программы, причём именно чтобы число выдало... так что прошу простить, но эта программа слишком крута для первокурсника...

18.11.2009, 19:25	#15 (permalink)
ypaxapa Member Регистрация: 17.11.2009 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо за ссылку... ну и за помощь соответственно))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

18.11.2009, 19:32	#17 (permalink)
ypaxapa Member Регистрация: 17.11.2009 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ну я так и сделаю по вашему совету)) я даже знаю что ответит она мне, но не важно... думаю выкручусь))

18.11.2009, 20:43	#19 (permalink)
ypaxapa Member Регистрация: 17.11.2009 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	У меня версия 7.0.4...

18.11.2009, 20:44	#20 (permalink)
ypaxapa Member Регистрация: 17.11.2009 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Borland Delphi если вас это интересует)