|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.01.2009, 17:19 | #1 |
Новичок
Джуниор
Регистрация: 14.01.2009
Сообщений: 2
|
Функция
Уважаемые программисты !
Помогите пожалуйста написать эту программу ! Задание - Функция по 3 числам проверяет могут ли эти числа быть сторонами треугольника. С помощью функции массив [10X3] ( где каждая строка стороны треугольника ) найти все треугольники которые могут существовать(в 1 строке, во 2 строке и в 3 строке). Вывести результаты на экран ! |
24.01.2009, 17:47 | #2 |
Регистрация: 03.12.2008
Сообщений: 3
|
Функция
var a1,b1,c1:real; result:Integer;
Function Treugol (a,b,c:real):Integer; Begin if (a=b) and (b=c) then Treugol:=1 else if (a=b) or (a=c) or (b=c) then Treugol:=2 else Treugol:=3; end; procedurе ButtonClik; //компилятор сам создаст //процедуру кнопки нажатия //в ней принимать значения и обращаться к функции: //например: a1:=strtofloat(Edit1.text); b1:=strtofloat(Edit2.text); c1:=strtofloat(Edit3.text); Result:=Treugol(a1,b1,c1); if result=1 then Label1.caption:='Треугольник равносторонний'; if result=2 then Label1.caption:='Треугольник равнобедреный'; if result=3 then Label1.caption:='Треугольник разносторонний'; end; end.
Sanek
|
24.01.2009, 17:48 | #3 | |
Регистрация: 03.12.2008
Сообщений: 3
|
Цитата:
Sanek
|
|
24.01.2009, 18:10 | #4 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Код:
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 24.01.2009 в 18:15. |
24.01.2009, 19:08 | #5 |
Новичок
Джуниор
Регистрация: 14.01.2009
Сообщений: 2
|
Большое спасибо !
|
24.01.2009, 19:56 | #6 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
Maldoy, я немного исправил ваш код. Вы забыли про Randomize, и в функции вместо or нужно было написать and.
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Функция | Lemo | Помощь студентам | 1 | 02.12.2008 00:24 |
функция | Lemo | Помощь студентам | 7 | 24.10.2008 12:54 |
функция | sergei64_89 | Общие вопросы C/C++ | 2 | 25.05.2008 16:48 |
Функция в c++ | JOFRIF | Помощь студентам | 1 | 08.05.2008 18:30 |
одна функция потока, а другая функция - член класса запускающего этот поток | Дмитрий_Ч | Общие вопросы C/C++ | 2 | 27.09.2007 08:50 |