Технический форум - Три проекта

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Три проекта (http://www.tehnari.ru/f41/t50035/)

Три проекта

1. Создайте проект нахождения площади треугольника по формуле Герона. Предусмотрите обработку исключительных ситуаций и вывода соответствующих сообщений с помощью диалоговых окон в случае: ввода недопустимых значений сторон треугольника, ошибочного перевода строки в число, возникновения отрицательного значения под корнем.
2. Создайте проект нахождения множества значений функции Y=AX/(BX-5) для Х, изменяющегося в диапазоне от –N до N с шагом K. Значения А, В, N, К ввести с помощью диалоговых окон. Все получившиеся значения Y вывести на экран. Предусмотреть обработку ИС и вывода соответствующих сообщений с помощью диалоговых окон в случае: ввода недопустимых значений исходных данных, ошибочного перевода строки в число, деления на ноль.
3. Создайте проект, который с помощью диалоговых окон запросит ввод имени, фамилии, отчества и года рождения пользователя (Рис.1). В случае, если пользователь не ввел одно из данных, об этом должно быть выведено сообщение (Рис.2) и ввод соответствующего данного должен быть повторен. В программе необходимо предусмотреть контроль правильности ввода года рождения ( должно быть число), в случае ошибки – вывести сообщение об этом (Рис.3) и повторить ввод года рождения. После ввода всех данных на экран необходимо вывести всю полученную информацию (Рис.4) и если данные введены верно, вывести сообщение какому животному по старояпонскому календарю соответствует данный год рождения (Рис.5). Примерное оформление программы приведено на рисунках.
Пояснение: В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, кролика, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки, и свиньи. 1996 год был годом крысы – началом очередного цикла.
:tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::t ehnari_ru_837::tehnari_ru_837:

1. Открываем Правила форума и читаем п. 2.1:

Цитата:

Создавайте темы с осмысленным названием, топики с заглавием ПОМОГИТЕ!!!!!!!!!! будут удаляться.

2. Любезно сообщаем здешним тупицам, на каком языке программирования должно быть выполнено задание. Сами ведь в жизни не догадаются, а экстрасенсы, как на зло, в отъезде.
3. Ввиду явно убогого воображения у местных (включая меня) придурков, не ограничиваемся ссылками на номера рисунков, а выкладываем сами рисунки, для чего знакомимся с темой http://www.tehnari.ru/f8/t32642/.
4. Выкладываем собственные наработки решения задач и ставим конкретные вопросы. Так дело пойдет много быстрее.

Извините Delphi. Вот наработок нету. Могу ток составить программу для расчета по формуле герона, но не могу Сделать обработку ошибок + Проверку на существование самого треугольника. Заранее спасибо

Извинения приняты, а где рисунки?

BDS-2005 прокатит? Или в более старой версии нужно делать?

Делфи 7. А рисунков нету(

Или я что-то не так понял ?( Что такое BDS)

А вот и я :)

Цитата:

Сообщение от radeox (Сообщение 498990)

Уточни плиз, что из себя представляют ислючительные ситуации; пишу пока что без них (скрин приделать не могу, но и так понятно будет).
На форме 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;

Это к первому. Но я не помню уже теорему про стороны, какими они быть не должны, и какой идиот будет вводить в едит "три", а не "3". но если надо то посмотрим) И ещё: точно диалоговые окна отдельные открывать надо? Или всё же можно в Label4 ошибки выводить?

Со вторым посмотрим после ответа на последний мой вопрос про окна :tehnari_ru_509:

Цитата:

Сообщение от Voilett (Сообщение 499066)

А вот и я :)

Уточни плиз, что из себя представляют ислючительные ситуации; пишу пока что без них (скрин приделать не могу, но и так понятно будет).
На форме 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;

Спасибо. Но тут только обработка 1 ошибки Если дискременант<...Там они еще требуют проверку на существование теругольника...Вот Это хз как сделать...:tehnari_ru_281: и еще нужно же обработку не верных выражений (a и b и с) не могут быть буквенными.

И еще на форме не должны присутствовать Lable. C помошью InputBox осуществляется "разговор" с пользователем. После выполнения всех действий(ввода а b и c) на форме в 1 окошке Edit должен появиться результат

А если вам попытаться запостить задание в полном виде без купюр и недописанных частей?