Главная | Информатика и информационно-коммуникационные технологии | Планирование уроков и материалы к урокам | 10 классы | Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень) | §4.16. Массивы
Уроки 125 - 131
§4.16. Массивы
Содержание урока
4.16.1. Заполнение массивов
Типы массивов и объявление массива. Заполнение массива
Проект «Заполнение массива». Создание обработчика события заполнения массива из файла на языке Visual Basic .NET, Turbo Delphi, Visual C# и Visual J#
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качать материалы урока
