Составить алгоритм и программу определения ближайшей к началу координат точки плоскости из трех заданных, где ХА=2, YA=1; ХВ=2, YB=2; ХС=-1, YC=3- QBasic(Бейсик)

CLS
PRINT "_____ Tochka 1 _____"
INPUT "Vvedite X: ", x1
INPUT "Vvedite Y: ", y1
PRINT "_____ Tochka 2 _____"
INPUT "Vvedite X: ", x2
INPUT "Vvedite Y: ", y2
PRINT "_____ Tochka 3 _____"
INPUT "Vvedite X: ", x3
INPUT "Vvedite Y: ", y3
r1 = x1 ^ 2 + y1 ^ 2
r2 = x2 ^ 2 + y2 ^ 2
r3 = x3 ^ 2 + y3 ^ 2
IF r1 < r2 AND r1 < r3 THEN PRINT "Pervaya blizhayshaya!"
IF r2 < r1 AND r2 < r3 THEN PRINT "Vtoraya blizhayshaya!"
IF r3 < r1 AND r3 < r2 THEN PRINT "Tretya blizhayshaya!"

Тестирование выполнено в программе QB64 ( Скачать )

Составить алгоритм и программу определения ближайшей к началу координат точки плоскости из трех заданных, где ХА=2, YA=1; ХВ=2, YB=2; ХС=-1, YC=3- QBasic(Бейсик)

Похожие записи/страницы:

Leave a Comment