Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс
Содержание
- 1. Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс
- 2. 1Компонент МЕМОВводМассивАХранениеКомпонент МЕМОВыводДвижение информации при вводе одномерного массива с клавиатуры
- 3. 2012345671234567Номера строк в MemoМассивMemo1.Lines[i]=A[i+1]Связь между элементами0123456Memo1.Lines[i]=A[i]Связь между элементамиМассив начинаем с 0:a:array[0..100] of integer;
- 4. Заполнение массива с клавиатурыМассив начинаем с 1:a:array[1..100]
- 5. N:=Memo1.Lines.Count;Количество заполненных строк4Memo1.Lines[i]i-я строка в MemoMemo2.Clear;Очищаем Memo
- 6. 5N:=Memo1.Lines.Count;for i:=0 to n-1 do
- 7. 6Компонент МЕМОВводМассивАХранениеКомпонент МЕМОВыводДвижение информации при заполнении одномерного массива случайными числамиКомпонентEditКоличествоГенератор случайных чисел
- 8. Заполнение массива случайными числами 7Добавим Edit1 для
- 9. 8N:=strtoint(Edit1.text);for i:=1 to n do a[i]:=random(21)-10;for
- 10. 9for i:=1 to n do ...Memo2.Clear;for i:=0
- 11. 10Компонент StringgridКомпонент Stringgrid1Компонент Stringgrid2
- 12. 11Компонент StringgridВводМассивАХранениеКомпонент StringgridВыводДвижение информации при заполнении двумерного
- 13. 12ячейки (номер столбца, номер строки) 0
- 14. 13StringGrid1.Cells[i, j] Содержимое ячейкиStringGrid1.RowCountКоличество строкStringGrid1.ColCountКоличество столбцовwith StringGrid1 do S:=Cells[Col,Row];Содержимое выделенной ячейки
- 15. 14m:=strtoint(Edit1.Text);n:=strtoint(Edit2.Text);stringgrid1.ColCount:=n+1;stringgrid1.RowCount:=m+1;for i:=1 to m do begin for
- 16. 15stringgrid2.ColCount:=n+1;stringgrid2.RowCount:=m+1;for i:=1 to m do begin for
- 17. 16Массив заполненный случайными числамиМассив преобразованный (все значения увеличены на единицу)
- 18. 17Компонент StringgridВводМассивАХранениеКомпонент StringgridВыводДвижение информации при вводе двумерного массива с клавиатуры
- 19. 18Ставим True для разрешения редактирования ячеек таблицы с клавиатуры
- 20. 19Задаем размеры необходимой таблицы и заполняем ее
- 21. 20 m:=strtoint(Edit1.Text); n:=strtoint(Edit2.Text); stringgrid1.ColCount:=n+1; stringgrid1.RowCount:=m+1;Считываем размеры таблицыЗадаем размеры таблицы для исходного массива
- 22. 21for i:=1 to m do begin for
- 23. Delphi 2007. Алгоритмы и программы: О. В.
- 24. Скачать презентанцию
1Компонент МЕМОВводМассивАХранениеКомпонент МЕМОВыводДвижение информации при вводе одномерного массива с клавиатуры
Слайды и текст этой презентации
Слайд 21
Компонент МЕМО
Ввод
Массив
А
Хранение
Компонент МЕМО
Вывод
Движение информации при вводе одномерного массива с клавиатуры
Слайд 32
0
1
2
3
4
5
6
7
1
2
3
4
5
6
7
Номера строк в Memo
Массив
Memo1.Lines[i]=A[i+1]
Связь между элементами
0
1
2
3
4
5
6
Memo1.Lines[i]=A[i]
Связь между элементами
Массив начинаем с
0:
a:array[0..100] of integer;
![2012345671234567Номера строк в MemoМассивMemo1.Lines[i]=A[i+1]Связь между элементами0123456Memo1.Lines[i]=A[i]Связь между элементамиМассив начинаем с 0:a:array[0..100] of integer;](/img/thumbs/af2e7d75c0c8a4e21e5b35ca8779e37c-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс 2012345671234567Номера строк в MemoМассивMemo1.Lines[i]=A[i+1]Связь между элементами0123456Memo1.Lines[i]=A[i]Связь между элементамиМассив начинаем с 0:a:array[0..100] of integer;")
Слайд 4Заполнение массива с клавиатуры
Массив начинаем с 1:
a:array[1..100] of integer;
3
Memo1
Исходный массив.
Заполняется с клавиатуры
Memo2
Преобразованный массив. Резултат работы программы
Компонент Memo c 0:
for
i:=0 to n-1 do ...![Заполнение массива с клавиатурыМассив начинаем с 1:a:array[1..100] of integer;3Memo1Исходный массив. Заполняется с клавиатурыMemo2Преобразованный массив. Резултат работы программыКомпонент](/img/thumbs/4f874cd03fd50cc991d5f5088f79ac5b-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс Заполнение массива с клавиатурыМассив начинаем с 1:a:array[1..100] of integer;3Memo1Исходный массив. Заполняется")
Слайд 5N:=Memo1.Lines.Count;
Количество заполненных строк
4
Memo1.Lines[i]
i-я строка в Memo
Memo2.Clear;
Очищаем Memo от информации
Memo2.Lines.Add('строка')
Добавляем в
Memo новую строку
Внимание! При заполнении массива после последней цифры
Enter не нажимать!![N:=Memo1.Lines.Count;Количество заполненных строк4Memo1.Lines[i]i-я строка в MemoMemo2.Clear;Очищаем Memo от информацииMemo2.Lines.Add('строка')Добавляем в Memo новую строку Внимание! При заполнении массива](/img/thumbs/d426954e382a369f4a962dd695281245-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс N:=Memo1.Lines.Count;Количество заполненных строк4Memo1.Lines[i]i-я строка в MemoMemo2.Clear;Очищаем Memo от информацииMemo2.Lines.Add('строка')Добавляем в Memo")
Слайд 65
N:=Memo1.Lines.Count;
for i:=0 to n-1 do
a[i+1]:=strtoint(Memo1.Lines[i]);
for i:=1 to
n do ...
Memo2.Clear;
for i:=0 to n-1 do
Memo2.Lines.Add(inttostr(a[i+1]));
Считываем
количество элементовСчитываем элементы в массив из Memo1
Цикл обработки массива
Очищаем Memo2 (если кнопка «Преобразовать» нажата несколько раз)
Заполняем Memo2 из массива
![5N:=Memo1.Lines.Count;for i:=0 to n-1 do a[i+1]:=strtoint(Memo1.Lines[i]);for i:=1 to n do ...Memo2.Clear;for i:=0 to n-1 do](/img/thumbs/9bc41a163c9730313120b9835583db0b-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс 5N:=Memo1.Lines.Count;for i:=0 to n-1 do a[i+1]:=strtoint(Memo1.Lines[i]);for i:=1 to n do")
Слайд 76
Компонент МЕМО
Ввод
Массив
А
Хранение
Компонент МЕМО
Вывод
Движение информации при заполнении одномерного массива случайными числами
Компонент
Edit
Количество
Генератор
случайных чисел
Слайд 8Заполнение массива случайными числами
7
Добавим Edit1 для ввода количества элементов
Заполняем
Memo1случайными числами
Преобразуем и выводим измененный массив в Memo2
Слайд 98
N:=strtoint(Edit1.text);
for i:=1 to n do
a[i]:=random(21)-10;
for i:=0 to
n-1 do
Memo1.Lines.Add(inttostr(a[i+1]));
Считываем количество элементов
Заполняем массив случайными числами
Добавляем
элементы массива в Memo1![8N:=strtoint(Edit1.text);for i:=1 to n do a[i]:=random(21)-10;for i:=0 to n-1 do Memo1.Lines.Add(inttostr(a[i+1]));Считываем количество элементовЗаполняем массив случайными](/img/thumbs/fab9720769bc3e5304d460e271174b47-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс 8N:=strtoint(Edit1.text);for i:=1 to n do a[i]:=random(21)-10;for i:=0 to n-1 do")
Слайд 109
for i:=1 to n do ...
Memo2.Clear;
for i:=0 to n-1 do
Memo2.Lines.Add(inttostr(a[i+1]));
Цикл для преобразования массива
Очищаем Memo(если кнопка «Преобразовать» нажата
несколько раз)Заполняем Memo2
![9for i:=1 to n do ...Memo2.Clear;for i:=0 to n-1 do Memo2.Lines.Add(inttostr(a[i+1]));Цикл для преобразования массиваОчищаем Memo(если кнопка](/img/thumbs/d51031b2c72cc50737dc4728e114fb35-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс 9for i:=1 to n do ...Memo2.Clear;for i:=0 to n-1 do")
Слайд 1211
Компонент Stringgrid
Ввод
Массив
А
Хранение
Компонент Stringgrid
Вывод
Движение информации при заполнении двумерного массива случайными числами
Компоненты
Edit
(2 шт.)
Количество строк и столбцов
Генератор случайных чисел
Слайд 1312
ячейки (номер столбца, номер строки)
0
1 2
3 40
1
2
3
1
2
3
4
1 2 3 4
ячейки (номер строки, номер столбца)
StringGrid
Массив
Слайд 1413
StringGrid1.Cells[i, j]
Содержимое ячейки
StringGrid1.RowCount
Количество строк
StringGrid1.ColCount
Количество столбцов
with StringGrid1 do
S:=Cells[Col,Row];
Содержимое выделенной ячейки
![13StringGrid1.Cells[i, j] Содержимое ячейкиStringGrid1.RowCountКоличество строкStringGrid1.ColCountКоличество столбцовwith StringGrid1 do S:=Cells[Col,Row];Содержимое выделенной ячейки](/img/thumbs/29a871e4265f09d17355e0c2836a3661-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс 13StringGrid1.Cells[i, j] Содержимое ячейкиStringGrid1.RowCountКоличество строкStringGrid1.ColCountКоличество столбцовwith StringGrid1 do S:=Cells[Col,Row];Содержимое выделенной ячейки")
Слайд 1514
m:=strtoint(Edit1.Text);
n:=strtoint(Edit2.Text);
stringgrid1.ColCount:=n+1;
stringgrid1.RowCount:=m+1;
for i:=1 to m do begin
for j:=1 to n
do begin
a[i,j]:=random(25)+1; StringGrid1.Cells[j,i]:=inttostr(a[i,j]);
end;end;
Считываем количество столбцов и строк
Задаем размеры
StringGrid1
Заполняем массив
Заполняем StringGrid1 из массива
![14m:=strtoint(Edit1.Text);n:=strtoint(Edit2.Text);stringgrid1.ColCount:=n+1;stringgrid1.RowCount:=m+1;for i:=1 to m do begin for j:=1 to n do begina[i,j]:=random(25)+1; StringGrid1.Cells[j,i]:=inttostr(a[i,j]);](/img/thumbs/3b8fa7e49f258254e6b133bac66185b1-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс 14m:=strtoint(Edit1.Text);n:=strtoint(Edit2.Text);stringgrid1.ColCount:=n+1;stringgrid1.RowCount:=m+1;for i:=1 to m do begin for j:=1 to n do")
Слайд 1615
stringgrid2.ColCount:=n+1;
stringgrid2.RowCount:=m+1;
for i:=1 to m do begin
for j:=1 to n
do begin
a[i,j]:=a[i,j]+1; StringGrid2.Cells[j,i]:=inttostr(a[i,j]);
end;end;
Задаем размеры StringGrid2
Изменяем массив
Заполняем StringGrid2 из массива
![15stringgrid2.ColCount:=n+1;stringgrid2.RowCount:=m+1;for i:=1 to m do begin for j:=1 to n do begina[i,j]:=a[i,j]+1; StringGrid2.Cells[j,i]:=inttostr(a[i,j]);](/img/thumbs/8bfb2be12785ba3d2fcb7c70b3b16f32-800x.jpg "Объектно - ориентированное программирование. Ввод и вывод массивов 11 класс 15stringgrid2.ColCount:=n+1;stringgrid2.RowCount:=m+1;for i:=1 to m do begin for j:=1 to n do")
Слайд 1716
Массив заполненный случайными числами
Массив преобразованный (все значения увеличены на единицу)
Слайд 1817
Компонент Stringgrid
Ввод
Массив
А
Хранение
Компонент Stringgrid
Вывод
Движение информации при вводе двумерного массива с клавиатуры
Слайд 2019
Задаем размеры необходимой таблицы и заполняем ее с клавиатуры
Происходит считывание
данных из первой таблицы в массив, преобразование и вывод во
вторую таблицуВнимание! Все ячейки первой таблицы должны быть заполнены.
Слайд 2120
m:=strtoint(Edit1.Text);
n:=strtoint(Edit2.Text);
stringgrid1.ColCount:=n+1;
stringgrid1.RowCount:=m+1;
Считываем размеры таблицы
Задаем размеры таблицы для
исходного массива
Слайд 2221
for i:=1 to m do begin
for j:=1 to n
do begin
a[i,j]:=strtoint(StringGrid1.Cells[j,i]);end;
end;
stringgrid2.ColCount:=n+1;
stringgrid2.RowCount:=m+1;
for i:=1 to m do begin
for j:=1 to n do begin a[i,j]:=a[i,j]+1; StringGrid2.Cells[j,i]:=inttostr(a[i,j]);
end;
end;
Заполняем массив из StringGrid1
Задаем размеры второй таблицы
Изменяем элементы массива заполняем ими StringGrid2
Слайд 23Delphi 2007. Алгоритмы и программы: О. В. Чеснокова — Санкт-Петербург,
НТ Пресс, 2008 г.
Основы программирования в интегрированной среде DELPHI:
А. Желонкин — Москва, Бином. Лаборатория знаний, 2004 г.Программирование в Turbo Pascal. Переход к Delphi: Ю. А. Шпак — Москва, МК-Пресс, 2006 г.
Занимательное программирование: М. Мозговой – СПб, Питер, 2005 г.
Delphi. Программирование на языке высокого уровня: Фаронов В.В. Учебник для вузов. – СПб.: Питер, 2003. – 640 с.: ил.
И интернет ресурсы:
Королевство Delphi - виртуальный клуб программистов http://www.delphikingdom.com
Мастера Delphi http://www.delphimaster.ru/
Сайт о Lazarus. Алгоритмы, статьи, библиотеки и много всего интересного http://lazarus.su/
22
Список литературы и интернет источников
