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


 

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

4040. Социально-этические и гуманистические принципы биологического познания. Генетика и эволюция 108.5 KB
  Введение Современное человечество живет в новом тысячелетии и это заставляет людей уделять большее внимание своему будущему и разумному осмыслению нашего прошлого. Одним из важнейших стала проблема взаимодействия природы и общества. Противоречия меж...
4041. Криоэлектроника. История развития 255.5 KB
  Криоэлектроника. История развития Введение Криогенная (от греческого "криос" — холод, мороз) электроника, или криоэлектроника — направление электроники, охватывающее исследование при криогенных температурах (ниже 120 К) специфических эффек...
4042. Хаос и порядок. Порядок и беспорядок в природе 311 KB
  Этимология понятия «хаос». Соотношение порядка и беспорядка в природе. Хаос, понятие окончательно оформившееся в древнегреческой философии - это трагический образ космического первоединства, начало и конец всего, вечная смерть всего живого и одно...
4043. Методика определения плотности твердого тела 42 KB
  Определение плотности твердого тела. Цель работы Целью данной работы является: Определение плотности твердого тела Приобретение студентами практических навыков в обработке результатов измерений. Рисунок Рабочая формула...
4044. Определение момента инерции диска (стержня) по его крутильным колебаниям 50.5 KB
  Определение момента инерции диска (стержня) по его крутильным колебаниям. Цель работы Целью данной работы является определение момента инерции диска (стержня) относительно оси, проходящей через центр тяжести перпендикулярно плоскости диска...
4045. Определение положения центра тяжести и момента инерции физического маятника 47.5 KB
  Определение положения центра тяжести и момента инерции физического маятника. Цель работы Целью данной работы являются: определение ускорения свободного падения при помощи математического маятника определение положения центра тяжес...
4046. Определение коэффициента внутреннего трения жидкости по методу Стокса 79 KB
  Определение коэффициента внутреннего трения жидкости по методу Стокса. Цель работы. Целью данной работы является определение коэффициента внутреннего трения (вязкости) жидкости. Рисунок. Рабочая формула: Таблица результатов и...
4047. Определение сопротивления с помощью моста Уитстона 85.5 KB
  Определение сопротивления с помощью моста Уитстона I. Цель работы – определение связи между силой тока в цепи гальванического элемента тока и падением напряжением на внешнем участке цепи. Расчет на основании этих данных величины ЭДС, внутреннег...
4048. Исследование электростатических полей методом электролитической ванны 48.5 KB
  Исследование электростатических полей методом электролитической ванны Целью данной работы является изучение электростатических полей, создаваемых заряженными проводниками различной конфигурации, путем моделирования в электролитической ванне Ри...