Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 125 - 131
§4.16. Массивы




Содержание урока

4.16.1. Заполнение массивов

Типы массивов и объявление массива. Заполнение массива

Проект «Заполнение массива». Создание графического интерфейса проекта на языках Visual Basic .NET, Visual С#, Visual J# и Turbo Delphi

Проект «Заполнение массива». Создание обработчика события заполнения массива случайными числами на языке Visual Basic .NET

Проект «Заполнение массива». Создание обработчика события заполнения массива случайными числами на языке Turbo Delphi

Проект «Заполнение массива». Создание обработчика события заполнения массива с клавиатуры на языке Visual Basic .NET, Turbo Delphi, Visual C# и Visual J#

Проект «Заполнение массива». Создание обработчика события заполнения массива из файла на языке Visual Basic .NET, Turbo Delphi, Visual C# и Visual J#

Проект «Заполнение массива». Запуск проекта на языках Visual Basic .NET, Visual C#, Visual J# и Turbo Delphi

Компьютерный практикум

4.16.2. Поиск элемента в массивах
4.16.3. Сортировка числовых массивов
4.16.4. Сортировка строковых массивов

4.16.1. Заполнение массивов


Проект «Заполнение массива»
Создание обработчика события заполнения массива из файла на языке Visual Basic .NET, Turbo Delphi, Visual C# и Visual J#


Создание обработчика события заполнения массива из файла на языке Visual Basic .NET, Turbo Delphi, Visual C# и Visual J#

5.


Dim I As Byte, 5(32) As String
Dim sr As System.IO.StreamReader
Private Sub Button3_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles Button3.Click
sr = System.IO.File.OpenText ("alphabet.txt")
For I = 0 To 32 В(I) = sr.ReadLine ()
ListBox3.Items.Add(В(I))
Next I
End Sub

Создание обработчика события заполнения массива из файла на языках Visual C# и Visual J#

5.


String[] В = new String[33];
StreamReader sr;
private void button2_Click(object sender, System. EventArgs e)
{sr = File.OpenText ("alphabet.txt") ;
for (I = 0;
I < 33; I++)
{В[I] = sr.ReadLine ();
listBox3.Items.Add(В[I]);
}
}

На языке Turbo Delphi объявим массив и файловую переменную.

В событийной процедуре с помощью метода AssignFile () свяжем имя файловой переменной с именем файла. Для открытия файла используем метод Reset (), аргументом которого является имя файловой переменной. В цикле со счетчиком произведем чтение букв алфавита из файла с использованием метода Readln () и выведем буквы в список.

Создание событийной процедуры заполнения массива из файла на языке Turbo Delphi

5.


var
В: array[0..32] of string;
f: TextFile;
procedure TForml.Button3Click(Sender: TObject);
begin
ListBox3.Items.Clear();
AssignFile (f, 'alphabet. txt') ;
Reset(f);
For I := 0 To 32 Do begin
Readln(f, В[I]);
ListBox3.Items.Add(В[I]);
end;
end;



Следующая страница Проект «Заполнение массива». Запуск проекта на языках Visual Basic .NET, Visual C#, Visual J# и Turbo Delphi



Cкачать материалы урока







Наверх