Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Многострочные компоненты Memo, ListBox, ComboBox (практика) 9 класс
Содержание
- 1. Многострочные компоненты Memo, ListBox, ComboBox (практика) 9 класс
- 2. LinesItems
- 3. Создаем новый проект:добавляем 10 кнопок, 4 надписи, Memo, ListBox, ComboBox;добавляем OpenDialog и SaveDialog со вкладки Dialog;
- 4. Добавляем событие создания формы, прописываем случайную генерацию.procedure
- 5. Добавляем событие нажатия кнопки «Случайно», генерирует сто случайных пятизначных чисел.Memo1.Lines.Clear;for i:=1 to 100 doMemo1.lines.Add(inttostr(random(89999)+10000));
- 6. Добавляем событие нажатия кнопки «Максимум», определяет максимальное число в массиве записей.max:=strtoint(Memo1.Lines[0]);for i:=1 to memo1.lines.Count-1 doif max
- 7. Добавляем событие нажатия кнопки «Минимум», определяет минимальное
- 8. Добавляем событие нажатия кнопки «Случайно», рассчитывает и
- 9. Добавляем событие нажатия кнопки «Количество по условию»,
- 10. Добавляем три события нажатия кнопок «Сортировка n»,
- 11. Сортировка 1 for j:=0 to memo1.lines.Count-2 do
- 12. Сортировка 2 for j:=0 to memo1.lines.Count-1 do
- 13. Сортировка 3 for j:=1 to memo1.lines.Count-1 do
- 14. Добавляем события нажатия кнопок «Сохранить», «Открыть», выполняющие открытие и сохранение записей.if SaveDialog1.Execute thenMemo1.Lines.SaveToFile(SaveDialog1.FileName);if OpenDialog1.Execute thenMemo1.Lines.LoadFromFile(OpenDialog1.FileName);
- 15. Для закрепления материала перейдите на страничкуhttp://http://оннаш.рф/%http://оннаш.рф/%d0%bc%d0%b0%d1%81%d1%81%d0%b8%d0%b2-%d1%81%d1%82%d1%80%d0%be%d0%ba-%d0%b2-lazarus/где будет сгенерировано индивидуальное задание.ВПЕРЕД
- 16. Скачать презентанцию
LinesItems
Слайды и текст этой презентации
Слайд 1
Многострочные компоненты
Memo, ListBox, ComboBox
(практика)
Автор: Голяков Николай Александрович
Школа №5 г.
Дубна, МО
Слайд 3
Создаем новый проект:
добавляем 10 кнопок, 4 надписи, Memo, ListBox, ComboBox;
добавляем
OpenDialog и SaveDialog со вкладки Dialog;
Слайд 4
Добавляем событие создания формы, прописываем случайную генерацию.
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
Добавляем
глобальные переменные i и j.
(эти переменные должны быть локальные по
своему замыслу)var
Form1: TForm1;
i,j,max,min,sum,kol,num:integer;
per:string;
Слайд 5
Добавляем событие нажатия кнопки «Случайно», генерирует сто случайных пятизначных чисел.
Memo1.Lines.Clear;
for
i:=1 to 100 do
Memo1.lines.Add(inttostr(random(89999)+10000));
Слайд 6
Добавляем событие нажатия кнопки «Максимум», определяет максимальное число в массиве
записей.
max:=strtoint(Memo1.Lines[0]);
for i:=1 to memo1.lines.Count-1 do
if max
![Добавляем событие нажатия кнопки «Максимум», определяет максимальное число в массиве записей.max:=strtoint(Memo1.Lines[0]);for i:=1 to memo1.lines.Count-1 doif max](/img/thumbs/61554dd2a32e4035e9bc6842a9ab05a8-800x.jpg "Многострочные компоненты Memo, ListBox, ComboBox (практика) 9 класс Добавляем событие нажатия кнопки «Максимум», определяет максимальное число в массиве записей.max:=strtoint(Memo1.Lines[0]);for i:=1 to memo1.lines.Count-1 doif max")
Слайд 7
Добавляем событие нажатия кнопки «Минимум», определяет минимальное число в массиве
записей.
min:=strtoint(Memo1.Lines[0]);
for i:=1 to memo1.lines.Count-1 do
if min>strtoint(Memo1.Lines[i]) then
min:=strtoint(Memo1.Lines[i]);
Label2.Caption:=inttostr(min);
![Добавляем событие нажатия кнопки «Минимум», определяет минимальное число в массиве записей.min:=strtoint(Memo1.Lines[0]);for i:=1 to memo1.lines.Count-1 doif min>strtoint(Memo1.Lines[i]) thenmin:=strtoint(Memo1.Lines[i]);Label2.Caption:=inttostr(min);](/img/thumbs/6eb17c1d3a6f10581af19e02345d268f-800x.jpg "Многострочные компоненты Memo, ListBox, ComboBox (практика) 9 класс Добавляем событие нажатия кнопки «Минимум», определяет минимальное число в массиве записей.min:=strtoint(Memo1.Lines[0]);for")
Слайд 8
Добавляем событие нажатия кнопки «Случайно», рассчитывает и выводит сумму чисел
массива записей.
(В комментариях указаны изменения на произведение, текущий тип переменной
на результат с данными числами не достаточен) sum:=0; //Pr:=1;
for i:=0 to memo1.lines.Count-1 do
sum:=sum+strtoint(Memo1.Lines[i]);//Pr:=Pr*...
Label3.Caption:=inttostr(sum);
Слайд 9
Добавляем событие нажатия кнопки «Количество по условию», определение количества записей
удовлетворяющих условие.
kol:=0;
for i:=0 to memo1.lines.Count-1 do
if strtoint(Memo1.Lines[i])>50000
theninc(kol);// kol:=kol+1;
Label4.Caption:=inttostr(kol);
Слайд 10
Добавляем три события нажатия кнопок «Сортировка n», сортируют записи по
убыванию числового значения.
Представлены три метода, имеющие недостатки …, требуется проанализировать
их работу и указать достоинства и недостатки каждого из них.(Домашнее задание)
Слайд 11
Сортировка 1
for j:=0 to memo1.lines.Count-2 do
begin
num:=j;
max:=strtoint(Memo1.Lines[j]);
for
i:=j+1 to memo1.lines.Count-1 doif max
num:=i;
max:=strtoint(Memo1.Lines[i]);
end;
per:=Memo1.Lines[j];
Memo1.Lines[j]:=Memo1.Lines[num];
Memo1.Lines[num]:=per;
end;
![Сортировка 1 for j:=0 to memo1.lines.Count-2 do begin num:=j; max:=strtoint(Memo1.Lines[j]);](/img/thumbs/23f138b7401a9d59ca51249cef4fef0c-800x.jpg "Многострочные компоненты Memo, ListBox, ComboBox (практика) 9 класс Сортировка 1 for j:=0 to memo1.lines.Count-2 do begin num:=j;")
Слайд 12
Сортировка 2
for j:=0 to memo1.lines.Count-1 do
begin
num:=0;
max:=strtoint(Memo1.Lines[0]);
for i:=0 to memo1.lines.Count-1-j doif max
num:=i;
max:=strtoint(Memo1.Lines[i]);
end;
Memo1.Lines.Add(Memo1.Lines[num]);
Memo1.Lines.Delete(num);
end;
Слайд 13
Сортировка 3
for j:=1 to memo1.lines.Count-1 do
begin
for i:=0
to j-1 do
if strtoint(Memo1.Lines[j])>strtoint(Memo1.Lines[i]) then
begin
Memo1.Lines.Insert(i,Memo1.Lines[j]);
Memo1.Lines.Delete(j+1);break;
end; end;
![Сортировка 3 for j:=1 to memo1.lines.Count-1 do begin for i:=0 to j-1 do if strtoint(Memo1.Lines[j])>strtoint(Memo1.Lines[i]) then begin](/img/thumbs/65b8a135572b57cb48b41f2673d7874f-800x.jpg "Многострочные компоненты Memo, ListBox, ComboBox (практика) 9 класс Сортировка 3 for j:=1 to memo1.lines.Count-1 do begin for i:=0 to")
Слайд 14
Добавляем события нажатия кнопок «Сохранить», «Открыть», выполняющие открытие и сохранение
записей.
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Слайд 15
Для закрепления материала перейдите на страничку
http://http://оннаш.рф/%http://оннаш.рф/%d0%bc%d0%b0%d1%81%d1%81%d0%b8%d0%b2-%d1%81%d1%82%d1%80%d0%be%d0%ba-%d0%b2-lazarus/
где будет сгенерировано индивидуальное задание.
ВПЕРЕД
