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

UptoLike

ВУЗ: 

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

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

Рубрика: 

42
4.
Листинг Basic-программы
Для фиксированного значения X Для фиксированного значения Y
Программный код
' Ввод данных
READ
X0,XK,DX,Y0,YK,DY
DATA
1,2,0.5,1,3,1
' Внешний цикл по
X
FOR
X = X0 TO XK STEP DX
S = 0: K = 0
PRINT TAB
(6); " X = ";X
'
Внутренний цикл по Y
FOR Y = Y0 TO YK STEP DY
Z = X ^ 2 + Y ^ 2
PRINT "Y =";Y," Z =";Z
S = S + Z: K = K + 1
NEXT Y 'Конец цикла по Y
PRINT TAB
(6);"SR = ";
PRINT USING
"##.##";S/K
NEXT
X ' Конец цикла по X
END
'
Ввод данных
READ
X0,XK,DX,Y0,YK,DY
DATA
1,2,0.5,1,3,1
' Внешний цикл по
Y
FOR
Y = Y0 TO YK STEP DY
S = 0: K = 0
PRINT
TAB(6); " Y = ";Y
' Внутренний цикл по
X
FOR X = X0 TO XK STEP DX
Z = X ^ 2 + Y ^ 2
PRINT "X =";X," Z =";Z
S = S + Z: K = K + 1
NEXT X 'Конец цикла по X
PRINT TAB
(6);"SR = ";
PRINT USING
"##.##";S/K
NEXT
Y ' Конец цикла по Y
END
5. Макеты печати (по Basic-программе)
Для фиксированного X Для фиксированного Y
X = 1
Y = 1 Z = 2
Y = 2 Z = 5
Y = 3 Z = 10
SR = 5.67
X = 1.5
Y = 1 Z = 3.25
Y = 2 Z = 6.25
Y = 3 Z = 11.25
SR = 6.92
X = 2
Y = 1 Z = 5
Y = 2 Z = 8
Y = 3 Z = 13
SR = 8.67
Y = 1
X = 1 Z = 2
X = 1.5 Z = 3.25
X = 2 Z = 5
SR = 3.42
Y = 2
X = 1 Z = 5
X = 1.5 Z = 6.25
X = 2 Z = 8
SR = 6.42
Y = 3
X = 1 Z = 10
X = 1.5 Z = 11.25
X = 2 Z = 13
SR = 11.42
Расположение точек в макете соответствует их нумерации в
области (рис. 2.13-2.14, стр.40).
                  4. Листинг Basic-программы
  Для фиксированного значения X    Для фиксированного значения Y
                          Программный код
' Ввод данных                   ' Ввод данных
READ X0,XK,DX,Y0,YK,DY          READ X0,XK,DX,Y0,YK,DY
DATA 1,2,0.5,1,3,1              DATA 1,2,0.5,1,3,1
' Внешний цикл по X             ' Внешний цикл по Y
FOR X = X0 TO XK STEP DX        FOR Y = Y0 TO YK STEP DY
S = 0: K = 0                    S = 0: K = 0
PRINT TAB(6); " X = ";X         PRINT TAB(6); " Y = ";Y
' Внутренний цикл по Y          ' Внутренний цикл по X
 FOR Y = Y0 TO YK STEP DY        FOR X = X0 TO XK STEP DX
    Z = X ^ 2 + Y ^ 2               Z = X ^ 2 + Y ^ 2
    PRINT "Y =";Y," Z =";Z          PRINT "X =";X," Z =";Z
    S = S + Z: K = K + 1            S = S + Z: K = K + 1
 NEXT Y 'Конец цикла по Y        NEXT X 'Конец цикла по X
PRINT TAB(6);"SR = ";           PRINT TAB(6);"SR = ";
PRINT USING "##.##";S/K         PRINT USING "##.##";S/K
NEXT X ' Конец цикла по X       NEXT Y ' Конец цикла по Y
END                             END
            5. Макеты печати (по Basic-программе)
    Для фиксированного X             Для фиксированного Y
        X   = 1                           Y =   1
    Y = 1     Z = 2                   X = 1       Z =   2
    Y = 2     Z = 5                   X = 1.5     Z =   3.25
    Y = 3     Z = 10                  X = 2       Z =   5
       SR   = 5.67                       SR =   3.42
        X   = 1.5                         Y =   2
    Y = 1     Z = 3.25                X = 1       Z =   5
    Y = 2     Z = 6.25                X = 1.5     Z =   6.25
    Y = 3     Z = 11.25               X = 2       Z =   8
       SR   = 6.92                       SR =   6.42
        X   = 2                           Y =   3
    Y = 1     Z = 5                   X = 1       Z =   10
    Y = 2     Z = 8                   X = 1.5     Z =   11.25
    Y = 3     Z = 13                  X = 2       Z =   13
       SR   = 8.67                       SR =   11.42
   Расположение точек в макете соответствует их нумерации в
области (рис. 2.13-2.14, стр.40).

                                42

Страницы