Составители:
Рубрика:
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
- …
- следующая ›
- последняя »