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 та навчились використовувати її у програмах.


 

А также другие работы, которые могут Вас заинтересовать

21929. Общекорабельные системы и корабельные устройства 88.5 KB
  Боевая и повседневная деятельность обуславливает необходимость оборудование кораблей различными техническими средствами при помощи которых могли бы эффективно решаться следующие задачи: Борьба за непотопляемость корабля путем удаления воды из затопленных отсеков а также приемом и перекачиванием жидкого балласта для спрямления поврежденного корабля. Противоатомная защита корабля от радиоактивного заражения. Удаление с корабля трюмной воды различных нечистот и грязной воды. Корабельными системами называется совокупность специализированных...
21935. Защита информации в телекоммуникационных системах 811.5 KB
  Уязвимость ТКС - это некоторое неудачное свойство системы, которое делает возможным возникновение и реализацию угрозы. Атака на компьютерную систему - это действие, предпринимаемое злоумышленником, которое заключается в поиске и использовании той или иной уязвимости системы. Таким образом, атака-это реализация угрозы безопасности.
21937. РОЗВЯЗАННЯ ІНЖЕНЕРНИХ ЗАДАЧ ПО ТОПОГРАФІЧНИМ КАРТАМ ТА ПЛАНАМ 1.23 MB
  Довжина горизонтального прокладання лінії на місцевості визначиться за формулою Д = dпл М.1 Довжину нахиленої лінії місцевості L визначають за формулою 3. Якщо виміряно горизонтальне прокладання Д лінії на місцевості то її довжину на топографічному плані визначають за формулою .3 Довжину ламаної лінії рис.