|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Delphi 7. Условный оператор
Даны две точки А(х1,у1) и В(х2,у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат.
|
#2
|
|||
|
|||
Если точки ты задаешь сам в ручную, IF сойдет ... для сравнения точек
|
#3
|
|||
|
|||
Код:
var Dist1, Dist2: Double; x1, x2, y1, y2: Double; begin Dist1 := Sqrt(x1 * x1 + y1 * y1); Dist2 := Sqrt(x2 * x2 + y2 * y2); if Dist1 < Dist2 then ShowMessage('Точка A ближе к началу координат!') else ShowMessage('Точка B ближе к началу координат!'); end; |
#4
|
||||
|
||||
И вот зачем такому балбесу помогать? на таких зарабатывать надо =)
У человека и так видно желания программировать нет, так и вы еще хуже делаете. |
#5
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |