Лабораторный практикум по информатике. Гурьяшова Р.Н - 51 стр.

UptoLike

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