Составители:
Рубрика:
51
' Вывод координат точек 1 и 3 квадранта
PRINT "X("; I; ") ="; X(I);
PRINT " Y("; I; ") ="; Y(I); " RQ ="; RQ
IF RQ < RMIN THEN RMIN = RQ : K = I
END IF
NEXT
I ' Конец цикла
' Вывод координат искомой точки
PRINT TAB(14); "ИСКОМАЯ ТОЧКА:"
PRINT "X("; K; ") = ";X(K); " Y("; K; ") = ";Y(K);
PRINT USING " RMIN = #.## "; RMIN
END
Рис. 2.18 Схема алгоритма к лабораторной работе 10
«Вычисление координат точки, ближайшей к заданной»
' Вывод координат точек 1 и 3 квадранта
PRINT "X("; I; ") ="; X(I);
PRINT " Y("; I; ") ="; Y(I); " RQ ="; RQ
IF RQ < RMIN THEN RMIN = RQ : K = I
END IF
NEXT I ' Конец цикла
' Вывод координат искомой точки
PRINT TAB(14); "ИСКОМАЯ ТОЧКА:"
PRINT "X("; K; ") = ";X(K); " Y("; K; ") = ";Y(K);
PRINT USING " RMIN = #.## "; RMIN
END
Рис. 2.18 Схема алгоритма к лабораторной работе 10
«Вычисление координат точки, ближайшей к заданной»
51
Страницы
- « первая
- ‹ предыдущая
- …
- 49
- 50
- 51
- 52
- 53
- …
- следующая ›
- последняя »
