Три проекта

[radeox]

Три проекта

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::tehnari_ru_837::tehnari_ru_837:

 

[Vladimir_S]

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

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

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

 

[radeox]

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

 

[AlexZir]

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

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

 

[radeox]

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

 

[radeox]

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

 

[Voilett]

А вот и я

1. Создайте проект нахождения площади треугольника по формуле Герона. Предусмотрите обработку исключительных ситуаций и вывода соответствующих сообщений с помощью диалоговых окон в случае: ввода недопустимых значений сторон треугольника, ошибочного перевода строки в число, возникновения отрицательного значения под корнем.

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

 

[radeox]

А вот и я

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

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

 

[radeox]

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

 

[AlexZir]

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

 

[radeox]

Задания выглядят так: удалено


В расширенном режиме создания сообщений можно прикрепить к посту различные вложения, в том числе и zip-архивы. Перезалейте ваш архив, прикрепив его непосредственно к самому сообщению. Ваш модератор.