Сьогодні | Разом | |
Відвідувань | 50 | 5297653 |
Авторізацій | 0 | 425520 |
Користувачів | 0 | 2689 |
3. Довжина відрізка
// Оголошуємо змінні величини та вказуємо їх типи var x1, y1, x2, y2: integer; dX, dY: слово; L: Real; begin // Читаємо вихідні дані readln(x1, y1, x2, y2); // Обчислюємо довжини катетів dX: = abs(x1 - x2); dY := abs(y1 - y2); // Обчислюємо довжину гіпотенузи трикутника L := sqrt(sqr(dX) + sqr(dY)); // Виводимо результат із точністю три знаки після коми writeln(L:0:3) end.Наведена вище програма є лінійною, оскільки всі команди виконуються у порядку їх записи.