06.04.2011, 14:43 | #1 (permalink) |
Новичок
Регистрация: 06.04.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Три проекта
2. Создайте проект нахождения множества значений функции Y=AX/(BX-5) для Х, изменяющегося в диапазоне от –N до N с шагом K. Значения А, В, N, К ввести с помощью диалоговых окон. Все получившиеся значения Y вывести на экран. Предусмотреть обработку ИС и вывода соответствующих сообщений с помощью диалоговых окон в случае: ввода недопустимых значений исходных данных, ошибочного перевода строки в число, деления на ноль. 3. Создайте проект, который с помощью диалоговых окон запросит ввод имени, фамилии, отчества и года рождения пользователя (Рис.1). В случае, если пользователь не ввел одно из данных, об этом должно быть выведено сообщение (Рис.2) и ввод соответствующего данного должен быть повторен. В программе необходимо предусмотреть контроль правильности ввода года рождения ( должно быть число), в случае ошибки – вывести сообщение об этом (Рис.3) и повторить ввод года рождения. После ввода всех данных на экран необходимо вывести всю полученную информацию (Рис.4) и если данные введены верно, вывести сообщение какому животному по старояпонскому календарю соответствует данный год рождения (Рис.5). Примерное оформление программы приведено на рисунках. Пояснение: В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, кролика, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки, и свиньи. 1996 год был годом крысы – началом очередного цикла. :t ehnari_ru_837: |
06.04.2011, 14:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные посты уже размещались на нашем форуме, вот их список Тестирование проекта Совместимость SQL Server 2008 х64 и Проекта Access 2010 х64 (*.adp) Название проекта... Обсуждение проекта "9Ghz" Покраска поверхности под ржавчину или история одного проекта |
06.04.2011, 14:57 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
1. Открываем Правила форума и читаем п. 2.1:
Цитата:
3. Ввиду явно убогого воображения у местных (включая меня) придурков, не ограничиваемся ссылками на номера рисунков, а выкладываем сами рисунки, для чего знакомимся с темой Как вставить картинки в свой пост. 4. Выкладываем собственные наработки решения задач и ставим конкретные вопросы. Так дело пойдет много быстрее. |
|
06.04.2011, 15:05 | #3 (permalink) |
Новичок
Регистрация: 06.04.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Извините Delphi. Вот наработок нету. Могу ток составить программу для расчета по формуле герона, но не могу Сделать обработку ошибок + Проверку на существование самого треугольника. Заранее спасибо
|
06.04.2011, 15:22 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Извинения приняты, а где рисунки?
BDS-2005 прокатит? Или в более старой версии нужно делать?
__________________
Убить всех человеков! |
06.04.2011, 15:43 | #5 (permalink) |
Новичок
Регистрация: 06.04.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Делфи 7. А рисунков нету(
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.04.2011, 16:50 | #7 (permalink) | |
Новичок
Регистрация: 06.04.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
А вот и я
Цитата:
На форме 3 Edit (для каждой стороны треугольника), Label над каждой(подпись типа к ним) и ещё Label для показа результа или ошибки... и кнопка "посчитать". Код кнопки: 1. В разделе Var переменные a,b,c,p,s:integer 2. как бы код: Код:
a:=strtoint(Edit1.Text); b:=strtoint(Edit2.Text); c:=strtoint(Edit3.Text); p:=(a+b+c)/2; if p*(p-a)*(p-b)*(p-c)<0 then label4.caption:='Ошибка, отрицательное число под корнем' {если, конечно, вывод результата в Label4} else begin s:=sqrt(p*(p-a)*(p-b)*(p-c)); label4.caption:='Ответ'+s; end; Со вторым посмотрим после ответа на последний мой вопрос про окна |
|
06.04.2011, 21:28 | #8 (permalink) | |
Новичок
Регистрация: 06.04.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
06.04.2011, 21:31 | #9 (permalink) |
Новичок
Регистрация: 06.04.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
И еще на форме не должны присутствовать Lable. C помошью InputBox осуществляется "разговор" с пользователем. После выполнения всех действий(ввода а b и c) на форме в 1 окошке Edit должен появиться результат
|
07.04.2011, 10:15 | #10 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
А если вам попытаться запостить задание в полном виде без купюр и недописанных частей?
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|