🗊Презентация Сортировка строкового массива на Delphi

Нажмите для полного просмотра!
Сортировка строкового массива на Delphi, слайд №1Сортировка строкового массива на Delphi, слайд №2Сортировка строкового массива на Delphi, слайд №3Сортировка строкового массива на Delphi, слайд №4Сортировка строкового массива на Delphi, слайд №5Сортировка строкового массива на Delphi, слайд №6Сортировка строкового массива на Delphi, слайд №7Сортировка строкового массива на Delphi, слайд №8Сортировка строкового массива на Delphi, слайд №9Сортировка строкового массива на Delphi, слайд №10

Вы можете ознакомиться и скачать презентацию на тему Сортировка строкового массива на Delphi. Доклад-сообщение содержит 10 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации


Слайд 1





Сортировка строкового массива 
на Delphi
10 профильный
Описание слайда:
Сортировка строкового массива на 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
Описание слайда:
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;
Описание слайда:
Программный код для кнопки «Считать алфавит» 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;
Описание слайда:
Программный код для кнопки «Считать термины» 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;
Описание слайда:
Программный код для кнопки «Сортировать» 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;
Описание слайда:
Программный код для кнопки «Показать термины» 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.
   Не забудьте описать полученный текстовый файл.
Описание слайда:
Самостоятельная работа Добавьте еще одну кнопку button, напишите для неё программный код, пользуясь учебником «Информатика и ИКТ 10», автор - Угринович Н.Д., 2011 год издания, страница 357. Не забудьте описать полученный текстовый файл.



Похожие презентации
Mypresentation.ru
Загрузить презентацию