Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2. Тема: Статические массивы данных.






Тема: Статические массивы данных.

Цель: Получить навыки использования двумерных массивов данных

Порядок выполнения

1. Установите на форме следующие объекты и измените им свойства:

 

Объект Свойство Значение
Командные кнопки Name Cmd1
Caption Заполнение
  Name Cmd2
  Caption Min и Max в строке
  Name Cmd3
  Caption Преобразовать
Графические окна Name PicMassiv
Name PicMassiv0
Name PicMin
Name PicMax

 

2. Приведите свою форму в соответствие с образцом

 

3. В разделе общих объявлений объявите массив

Dim Mas(4, 6) As Integer

 

4. В окне кода процедуры обработки события Click для объекта Cmd1 набрать:

 

PicMassiv.Cls

For i = 0 To 4

For j = 0 To 6

Mas(i, j) = Int(Rnd * 10)

PicMassiv.Print Mas(i, j); " ";

Next j

PicMassiv.Print

Next i

5. В окне кода процедуры обработки события Click для объекта Cmd2 набрать

 

PicMax.Cls

PicMin.Cls

For i = 0 To 4

Max = Mas(i, 0)

Min = Mas(i, 0)

For j = 0 To 6

If Max < Mas(i, j) Then Max = Mas(i, j)

If Min > Mas(i, j) Then Min = Mas(i, j)

Next j

PicMax.Print Max

PicMin.Print Min

Next i

6. Проверьте работу программы. Измените программы так, чтобы она определяла также максимальные и минимальные значения для каждого столбца, а также сумму значений каждого столбца.

7. В окне кода процедуры обработки события Click для объекта Cmd3 набрать

 

'поменять местами первый и последний столбец

For i = 0 To 4

s = Mas(i, 0)

Mas(i, 0) = Mas(i, 6)

Mas(i, 6) = s

Next

'вывести массив после перестановки столбцов

PicMassiv0.Cls

For i = 0 To 4

For j = 0 To 6

PicMassiv0.Print Mas(i, j); " ";

Next j

PicMassiv0.Print

Next i

 

8. Проверьте работу программы. Измените программу так, чтобы местами менялись значения первой и последней строки.

9. Добавьте на форму еще одну командную кнопку (Cmd4) и графическое окно (PicMas2). При щелчке по новой кнопке заполнить массив 5 на 5 по следующему правилу: значения элементов главной диагонали равны 0, ниже главной диагонали – 1, выше главной диагонали равны –1. Для этого объявите массив и в окне кода процедуры обработки события Click для объекта Cmd4 набрате

 


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал