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


 

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

26556. ВСЭ ПРОДУКТОВ УБОЯ ПРИ ВНУТРЕННЕМ ПОРАЖЕНИИ РВ 2.97 KB
  Выздоровление длится более 3 мес а при крайне тяжелой степени наступает смертельный исход.При хроническом течении различают три степени болезни: легкую среднюю и тяжелую. При легкой степени наблюдаются функциональные изменения в сердечнососудистой системе и органах пищеварения дистоння. При средней степени снижается количество лимфоцитов и нейтрофилов с общей лейкопенией проявляется тромбоцитопения и умеренная эритропения.
26557. ВСЭ ПРОДУКТОВ УБОЯ ПРИ ЛЕПТОСПИРОЗЕ И ЛИСТЕРИОЗЕ 8.32 KB
  Если имеются дегенеративные изменения мускулатуры или желтушное окрашивание не исчезающее в течение двух суток тушу и все внутренние органы направляют на техническую утилизацию. При отсутствии дегенеративных изменений в мускулатуре но при наличии в ней желтушного окрашивания исчезающего в течение двух суток тушу а также внутренние органы не имеющие патологических изменений выпускают после проварки. Кишечник и патологически измененные органы направляют на техническую утилизацию. Патологически измененные органы кровь и головы от...
26558. ВСЭ ТУШ И ОРГАНОВ ВЫНУЖДЕННО УБИТЫХ ЖИВОТНЫХ ПРИ ОТРАВЛЕНИИ ОРГАНИЧЕСКИМИ И МИНЕРАЛЬНЫМИ ЯДАМИ. ПРИЧИНА ОТРАВЛЕНИЙ И ПИЩЕВАЯ НЕПОЛНОЦЕННОСТЬ МЯСА ОТРАВИВШИХСЯ ЖИВОТНЫХ ДЛЯ ЧЕЛОВЕКА 21.73 KB
  ВСЭ ТУШ И ОРГАНОВ ВЫНУЖДЕННО УБИТЫХ ЖИВОТНЫХ ПРИ ОТРАВЛЕНИИ ОРГАНИЧЕСКИМИ И МИНЕРАЛЬНЫМИ ЯДАМИ. ПРИЧИНА ОТРАВЛЕНИЙ И ПИЩЕВАЯ НЕПОЛНОЦЕННОСТЬ МЯСА ОТРАВИВШИХСЯ ЖИВОТНЫХ ДЛЯ ЧЕЛОВЕКА. В практике встречаются случаи отравлений сельскохозяйственных животных минеральными удобрениями ядовитыми растениями хлоридом натрия и другими солями минеральными ядами мышьяк медь и др. Особо опасны при отравлениях животных фосфорорганические хлорорганические карбаматные ртутьсодержащие и другие пестициды ядохимикаты} которые используют в борьбе с...
26559. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ РОЖЕ СВЕНЕЙ 7.89 KB
  Мускулатура туши иногда гиперемирована и с кровоизлияниями. В случае обнаружения в мясе или внутренних органах этих бактерий туши обеззараживают проваркой а внутренние органы направляют на техническую утилизацию или уничтожают. Кроме того такие туши можно направлять на изготовление вареноконченых грудинок и кореек. В случаях убоя животных туши со всеми внутренними органами и шкурой уничтожают.
26560. ВСЭ И САНОЦЕНКА ТУШ И ОРГАНОВ ПРИ САРКОЦИСТОЗЕ, ЭХИНОКОККОЗЕ, ЦЕНУРОЗЕ, ДИКТИОКАУЛЕЗЕ. ЦЕНУРОЗ МОЗГА 19.36 KB
  При поедании собаками и волками голов животных инвазированных ценурами происходит их заражение ценурозом. Болезнь наблюдается у молодых животных не старше 2 лет и характеризуется бесцельными круговыми движениями в одну сторону. При убое животных в начале болезни отмечают следы миграции онкосфер на мягкой мозговой оболочке интенсивную гиперемию ее на отдельных участках со свежими кровоизлияниями. Остро и хронически протекающая болезнь травоядных животных крупный рогатый скот овцы лошади и др.
26561. ВСЭ ТУШ И ОРГАНОВ ПРИ СТОЛБНЯКЕ И ПСЕВДОТУБЕРКУЛЕЗЕ. ВСЭ ПРИ СТОЛБНЯКЕ 1.21 KB
  При установлении столбняка тушу с внутренними органами и шкурой уничтожают. При наличии истощения и множественных поражений лимфатических узлов или при обнаружении псевдотуберкулезных изменений в мышцах тушу и внутренние органы утилизируют. При отсутствии истощения и поражении только внутренних органов или лимфатических узлов внутренние органы направляют на утилизацию а тушу и другие продукты убоя выпускают без ограничений.
26562. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ТРИХИНЕЛЛЕЗЕ 3.52 KB
  ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ТРИХИНЕЛЛЕЗЕ. У свиней трихинеллез протекает без выраженных признаков. ВСЭ: все туши свиней начиная с 3недельного возраста исследуются на трихинеллез.
26563. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ТУБЕРКУЛЕЗЕ 3.85 KB
  Шкуры после посолки – без ограничений. Свиные при наличии пораже в нижнеч л у – зачищают голову – на проварку тушу – без ограничений. При очагах на брыжейке – кишк утилизируют туши и внут орг – без ограничений.
26564. ВСЭ ТУШ И ОРГАНОВ ПРИ ЭМФИЗЕМАТОЗНОМ КАРБУНКУЛЕ 8.51 KB
  Печень пятнистоглинистого цвета имеет очаги красноватожелтого цвета величиной до грецкого ореха иногда в ней содержатся газы. Почки дряблые с некротическими очагами темнокоричневого цвета или глинистые граница между корковым и мозговым слоями сглажена. Мышцы дряблые темнокрасного цвета местами сероватые мышечные волокна деструктированы миолиз при надавливании на них выжимается кровянистый липкий сок содержащий пузырьки газа неприятного прогорклого запаха. Ткани в области карбункула темнокрасного дегтеобразного цвета; рыхлая...