Информатика: Сегментация программ. Гурьяшова Р.Н - 64 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

5. Листинг Basic-программы
Код и Пояснения
сходного модуля
' Лаборато
' Петров А
1,5,-2,-2 ,-3
ИСХОДНЫЕ ДАННЫЕ "
" КОЛИЧЕСТВО ТОЧЕК N = "; N
##)";X(I);Y(I)
X(), XS)
(Y(), YS)
ЧКА ";
; ##) "; XS; YS
PD (Z(), REZ)
THEN
I): K = K + 1
Осно
программа
дание
нных
вод N
заголовка
кл
ода-вывода
ат
зов п/п PD
зов п/п PD
дпрограмма
ение P,K
рная работа 5
.Н. В-11
' Подпрограмма SUB
COMMON SHARED N
= 5 N
DATA 4,5,0,-1,-2,
), Y(N) DIM X(N
CLS
INT TAB(3); "PR
PRINT
PRINT TAB(3); " КООРДИНАТЫ ТОЧЕК "
PRINT TAB(4); " X Y "
FOR I = 1 TO N
READ X(I), Y(I)
PRINT TAB(5);
PRINT USING"(## ;
NEXT I
CALL PD(
LL PDCA
PRINT " ИСКОМАЯ ТО
INT USING "M(##PR
END
программа PD ' Под
B SU
K = 0: P = 1
FOR I = 1 TO N
IF Z(I) < 0
P = P * Z(
END IF
NEXT I
REZ = P / K
END SUB
вная
За
да
Вы
и
таблицы
Ци
вв
координ
точек
Вы
Вы
Вывод
зультата ре
По
Цикл
Вычисл
64
                 5. Листинг Basic-программы

            Код исходного модуля              Пояснения
' Лабораторная работа 5                  Основная
' Петров А.Н. В-11                       программа
' Подпрограмма SUB

COMMON SHARED N
N = 5                                    Задание
DATA 4,5,0,-1,-2,1,5,-2,-2 ,-3           данных
DIM X(N), Y(N)

CLS
PRINT   TAB(3); " ИСХОДНЫЕ ДАННЫЕ "      Вывод N
PRINT   " КОЛИЧЕСТВО ТОЧЕК N = "; N      и заголовка
PRINT   TAB(3); " КООРДИНАТЫ ТОЧЕК "     таблицы
PRINT   TAB(4); "   X    Y "

FOR I = 1 TO N                           Цикл
  READ X(I), Y(I)                        ввода-вывода
  PRINT TAB(5);                          координат
  PRINT USING"(## ; ##)";X(I);Y(I)       точек
NEXT I

CALL PD(X(), XS)                         Вызов п/п PD
CALL PD(Y(), YS)                         Вызов п/п PD

PRINT " ИСКОМАЯ ТОЧКА ";                 Вывод
PRINT USING "M(## ; ##) "; XS; YS        результата
END

' Подпрограмма PD
SUB PD (Z(), REZ)                        Подпрограмма
   K = 0: P = 1
   FOR I = 1 TO N                        Цикл
      IF Z(I) < 0 THEN
         P = P * Z(I): K = K + 1         Вычисление P,K
      END IF
   NEXT I
   REZ = P / K
END SUB


                                   64

Страницы