TheSlide.ru

Многострочные компоненты 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

Главная
Информатика
Многострочные компоненты Memo, ListBox, ComboBox (практика) 9 класс

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

Слайд 1
Многострочные компоненты
Memo, ListBox, ComboBox
(практика)
Автор: Голяков Николай Александрович
Школа №5 г.

Дубна, МО
Сайт автора: http://оннаш.рф
Информатика 9-10 класс

Многострочные компонентыMemo, ListBox, ComboBox (практика)Автор: Голяков Николай АлександровичШкола №5 г. Дубна, МОСайт автора: http://оннаш.рфИнформатика 9-10 класс

Слайд 2

Lines
Items

LinesItems

Слайд 3
Создаем новый проект:
добавляем 10 кнопок, 4 надписи, Memo, ListBox, ComboBox;
добавляем

OpenDialog и SaveDialog со вкладки Dialog;

Создаем новый проект:добавляем 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;

Добавляем событие создания формы, прописываем случайную генерацию.procedure TForm1.FormCreate(Sender: TObject);begin Randomize;end; Добавляем глобальные переменные i и j.(эти переменные должны

Слайд 5
Добавляем событие нажатия кнопки «Случайно», генерирует сто случайных пятизначных чисел.
Memo1.Lines.Clear;
for

i:=1 to 100 do
Memo1.lines.Add(inttostr(random(89999)+10000));

Добавляем событие нажатия кнопки «Случайно», генерирует сто случайных пятизначных чисел.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 do
if max

Добавляем событие нажатия кнопки «Максимум», определяет максимальное число в массиве записей.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);

Слайд 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

then
inc(kol);// kol:=kol+1;
Label4.Caption:=inttostr(kol);

Добавляем событие нажатия кнопки «Количество по условию», определение количества записей удовлетворяющих условие. kol:=0; for i:=0 to memo1.lines.Count-1

Слайд 10
Добавляем три события нажатия кнопок «Сортировка n», сортируют записи по

убыванию числового значения.
Представлены три метода, имеющие недостатки …, требуется проанализировать

их работу и указать достоинства и недостатки каждого из них.
(Домашнее задание)

Добавляем три события нажатия кнопок «Сортировка 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 do
if max begin
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]);

Слайд 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 do
if max begin
num:=i;
max:=strtoint(Memo1.Lines[i]);
end;
Memo1.Lines.Add(Memo1.Lines[num]);
Memo1.Lines.Delete(num);
end;

Сортировка 2 for j:=0 to memo1.lines.Count-1 do begin num:=0;

Слайд 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

Слайд 14
Добавляем события нажатия кнопок «Сохранить», «Открыть», выполняющие открытие и сохранение

записей.
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);

if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Добавляем события нажатия кнопок «Сохранить», «Открыть», выполняющие открытие и сохранение записей.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/

где будет сгенерировано индивидуальное задание.
ВПЕРЕД

Для закрепления материала перейдите на страничку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/где будет сгенерировано индивидуальное задание.ВПЕРЕД

Скачать презентацию

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно хранить и делиться своими презентациями с другими пользователями.

Для правообладателей