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

UptoLike

ВУЗ: 

ВГУВТ | Нижний Новгород

Составители: 

Рубрика: 

50
Алгоритм состоит из следующих действий:
1. Ввод данных – координат точек M
i
(X
i
, Y
i
) и Q(X
q
,Y
q
).
2. Вывод координат точек M
i
(X
i
, Y
i
) и точки Q(X
q
,Y
q
).
3. Задание начального значения переменной RMIN = 1.0E38.
4. Начало цикла по i.
5. Проверка условия X
i
· Y
i
> 0. Если условие выполнено, перейти
к п.6, иначе – к п.10.
6. Вычисление расстояния RQ.
7. Вывод значений переменных X
i
, Y
i
и RQ.
8. Проверка условия RQ < RMIN. Если условие выполнено, перей-
ти к п.9, иначе – к п.10.
9. Переменным присваиваются значения: RMIN = RQ, K = i.
10. Конец цикла по i.
11. Вывод координат искомой точки M
k
(X
k
,Y
k
) и RMIN.
12. Конец.
Схема алгоритма представлена на рис. 2.18 (стр. 51).
5. Листинг Basic-программы
Программный код
' Вычисление координат искомой точки
CLS
DIM
X(5), Y(5)
DATA
5,-2,4
READ
N, XQ, YQ
PRINT
"TOЧKA Q; "; " XQ ="; XQ; " YQ = "; YQ
DATA
4,5,1,2,-2,1,5,-2,-2,-3
' Ввод
-вывод координат точек
(4); "КООРДИНАТЫ ТОЧЕК:"
FOR
I = 1 TO N ' Начало цикла
READ X(I), Y(I)
PRINT "X("; I; ")="; X(I);
PRINT " Y("; I; ")="; Y(I)
NEXT
I ' Конец цикла
RMIN
= 1E+38
PRINT
TAB(6); "ТОЧКИ 1 И 3 КВАДРАНТА"
FOR
I = 1 TO N ' Начало цикла
IF X(I) * Y(I) > 0 THEN
RQ = SQR((X(I) - XQ) ^ 2 + (Y(I) - YQ) ^ 2) 
     Алгоритм состоит из следующих действий:
1.  Ввод данных – координат точек Mi(Xi, Yi) и Q(Xq,Yq).
2.  Вывод координат точек Mi(Xi, Yi) и точки Q(Xq,Yq).
3.  Задание начального значения переменной RMIN = 1.0E38.
4.  Начало цикла по i.
5.  Проверка условия Xi · Yi > 0. Если условие выполнено, перейти
    к п.6, иначе – к п.10.
6. Вычисление расстояния RQ.
7. Вывод значений переменных Xi, Yi и RQ.
8. Проверка условия RQ < RMIN. Если условие выполнено, перей-
    ти к п.9, иначе – к п.10.
9. Переменным присваиваются значения: RMIN = RQ, K = i.
10. Конец цикла по i.
11. Вывод координат искомой точки Mk(Xk,Yk) и RMIN.
12. Конец.
     Схема алгоритма представлена на рис. 2.18 (стр. 51).
                    5. Листинг Basic-программы
                           Программный код
' Вычисление координат искомой точки
CLS
DIM X(5), Y(5)
DATA 5,-2,4
READ N, XQ, YQ
PRINT "TOЧKA Q; "; " XQ ="; XQ; " YQ = "; YQ
DATA 4,5,1,2,-2,1,5,-2,-2,-3
' Ввод-вывод координат точек
PRINT TAB(4); "КООРДИНАТЫ ТОЧЕК:"
FOR I = 1 TO N ' Начало цикла
  READ X(I), Y(I)
  PRINT "X("; I; ")="; X(I);
  PRINT " Y("; I; ")="; Y(I)
NEXT I            ' Конец цикла
RMIN = 1E+38
PRINT TAB(6); "ТОЧКИ 1 И 3 КВАДРАНТА"
FOR I = 1 TO N    ' Начало цикла
  IF X(I) * Y(I) > 0 THEN
    RQ = SQR((X(I) - XQ) ^ 2 + (Y(I) - YQ) ^ 2)

                                  50

Страницы