Презентация Сортировка строкового массива на Delphi онлайн
На нашем сайте вы можете скачать и просмотреть онлайн доклад-презентацию на тему Сортировка строкового массива на Delphi абсолютно бесплатно. Урок-презентация на эту тему содержит всего 10 слайдов. Все материалы созданы в программе PowerPoint и имеют формат ppt или же pptx. Материалы и темы для презентаций взяты из открытых источников и загружены их авторами, за качество и достоверность информации в них администрация сайта не отвечает, все права принадлежат их создателям. Если вы нашли то, что искали, отблагодарите авторов - поделитесь ссылкой в социальных сетях, а наш сайт добавьте в закладки.
Оцените презентацию от 1 до 5 баллов!
- Тип файла:ppt / pptx (powerpoint)
- Всего слайдов:10 слайдов
- Для класса:1,2,3,4,5,6,7,8,9,10,11
- Размер файла:353.48 kB
- Просмотров:145
- Скачиваний:0
- Автор:неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда: Сортировка строкового массива
на Delphi
10 профильный
№2 слайд
Содержание слайда: Результат данной программы
№3 слайд
Содержание слайда: Элементы на форме
№4 слайд
Содержание слайда: Описание переменных
Открыть программный код для формы, описать переменные:
№5 слайд
Содержание слайда: var
Form1: TForm1;
a: array[0..32] of string;
b: array[0..9] of string;
i, j,k: integer;
c: array[0..9] of string;
f1: textfile;
f2: textfile;
implementation
№6 слайд
Содержание слайда: Программный код для кнопки «Считать алфавит»
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:='';
assignfile(f1, 'f1.txt');
reset(f1);
for i:=0 to 32 do
begin
readln(f1,a[i]);
label1.caption:=label1.caption+a[i];
end;
end;
№7 слайд
Содержание слайда: Программный код для кнопки
«Считать термины»
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.items.Clear();
assignfile(f2, 'f2.txt');
reset(f2);
for i:=0 to 9 do
begin
readln(f2,b[i]);
listbox1.items.add(b[i]);
end;
end;
№8 слайд
Содержание слайда: Программный код для кнопки
«Сортировать»
procedure TForm1.Button3Click(Sender: TObject);
begin
j:=0;
for i:=0 to 32 do
begin
for K:=0 to 9 do
if a[i]=copy(b[k],1,1) then
begin
c[j]:= b[k];
j:=j+1;
end;
end;
end;
№9 слайд
Содержание слайда: Программный код для кнопки
«Показать термины»
procedure TForm1.Button4Click(Sender: TObject);
begin
listbox2.Items.clear();
for i:=0 to 9 do
listbox2.Items.Add(c[i]);
end;
№10 слайд
Содержание слайда: Самостоятельная работа
Добавьте еще одну кнопку button, напишите для неё программный код, пользуясь учебником «Информатика и ИКТ 10», автор - Угринович Н.Д., 2011 год издания, страница 357.
Не забудьте описать полученный текстовый файл.
Скачать все slide презентации Сортировка строкового массива на Delphi одним архивом:
