17517

Масиви з використанням команди DIM

Лабораторная работа

Информатика, кибернетика и программирование

Лабраторна робота №4 Тема: Масиви Мета: Ознайомитись з командою DIM Хід роботи Масиви впорядкований набір певних даних. Ці дані зберігаються в послідовно розташованих комірках ОП. Назву масиву дає користувач. Масив ряд елементів. Когжен з яких має певні індикси. ...

Украинкский

2013-07-01

22 KB

1 чел.

Лабраторна робота №4

Тема: Масиви

Мета: Ознайомитись з командою  DIM

Хід роботи

Масиви- впорядкований набір певних даних. Ці дані зберігаються в послідовно розташованих комірках ОП. Назву масиву дає користувач.

Масив- ряд елементів. Когжен з яких має певні індикси.

Існують одно- та двовимірні масиви.

Задача№1

10 REM PR_2_1_vuwuj_masuv

20 n = 10

30 DIM A(n), B(n), c(n)

40 S = 0

50 FOR I = 1 TO n

60 A(I) = 1 + SIN(I)

70 B(I) = 1 + COS(I)

80 c(I) = A(I) + B(I)

90 PRINT "C("; I; " )=", c(I)

100 S = S + c(I)

110 NEXT I

120 PRINT "massa="; S

130 END

Задача№2

10 REM pr3_stv_massuv

20 N = 15

30 K = 0

40 DIM Y(N), G(N)

50 S = 0

60 FOR I = 1 TO N

70 Y(I) = LOG(I) - 5

80 IF Y(I) < 0 THEN K = K + 1: G(K) = Y(I)

90 PRINT "Y("; I; ")="; Y(I)

100 NEXT I

110 FOR I = 1 TO K

120 PRINT "G("; I; ")="; G(I)

130 NEXT I

140 END

Задача № 3

10 REM PR_1_Ocinku

20 K = 8

30 DIM A(K)

40 DATA 9.2, 9.4, 9.6, 9.3, 9.5, 9.4, 9.1, 9.3

50 s = 0: K1 = 0

60 FOR i = 1 TO K

70 READ A(i)

80 s = s + A(i)

90 NEXT i

100 S1 = s / K

110 PRINT USING "seredna ocinka=#.###"; S1

120 FOR i = 1 TO K

130 IF A(i) > S1 THEN K1 = K1 + 1

140 NEXT i

150 PRINT "vuwux za seredny", K1;

160 END

Висновок: на даній лабораторній роботі ми ознайомилися із командою DIM та навчились використовувати її у програмах.