- •Лабораторная работа № 13 Работа с массивами в среде программирования Borland Delphi
- •Лабораторная работа № 13: Ввод и обработка массивов
- •Цель работы
- •Задачи работы
- •Описание работы
- •Листинг 5. Текст файла проекта Lab3.Dpr
- •Листинг 6. Текст главного модуля MainUnit.Pas
- •Листинг 7. Текст вспомогательного модуля ListInput.Pas.
- •Листинг 8. Текст вспомогательного модуля GridInput.Pas.
- •Вопросы и задания для самостоятельной работы
- •//////////////Задание на 5-ку Цель работы
- •Теоретическая часть
- •Задание
- •Вариант 1.
- •Вариант 2.
- •Вариант 3.
- •Вариант 4.
- •Вариант 5.
- •Вариант 6.
- •Вариант 7.
- •Вариант 8.
- •Вариант 9.
- •Вариант 10.
- •Вариант 11.
- •Вариант 12.
- •Вариант 13.
- •Вариант 14.
- •Вариант 15.
- •Вариант 16.
- •Вариант 17.
- •Вариант 18.
- •Вариант 19.
- •Вариант 20.
- •Вариант 21.
- •Вариант 22.
- •Вариант 23.
- •Вариант 24.
- •Вариант 25.
- •Вариант 26.
- •Вариант 27.
- •Вариант 28.
- •Вариант 29.
- •Вариант 30.
Вопросы и задания для самостоятельной работы
Добавьте кнопку «Удалить» в форму для ввода одномерного массива и создайте соответствующий обработчик.
Разрешите ввод вещественных чисел как с десятичной точкой, так и с десятичной запятой, написав для этого соответствующую процедуру для преобразования строки в число.
Сделайте возможность сортировки списка строк в одномерном массиве.
Назначьте на все кнопки всех форм горячие клавиши.
Добавьте кнопку «Показать» в форму для ввода двумерного массива для отображения в окне сообщения значения текущей ячейки в таблице.
//////////////Задание на 5-ку Цель работы
-Изучить организацию данных в массив и способы их обработки
-Познакомиться с примерами алгоритмов обработки массивов данных
-Уметь организовать цикл по индексу элемента массива
-Уметь организовать ввод и вывод элементов одномерных массивов
Теоретическая часть
Прежде чем работать с массивами в среде TURBO DELPHI, необходимо описать тип массива:
1способ в разделе type:
type mas=array [1..30] of integer;
var m:mas; m2:mas;
2способ (анонимный):
var m:array[1..30] of integer;
m2:array[byte] of [1..100];
Ввод, вывод и обработка массивов осуществляется в цикле. Параметр цикла при этом выполняет подсчет количества повторений и используется в качестве индекса элемента массива. Например, задача формирования массива
1способ(формирование массива с помощью ввода с клавиатуры)
program sozdmas(а);
const n=10;
type mas=array[1..n] of integer;
var a:mas; i:integer;
begin
for i:=1 to n do
begin writeln(‘введите’,i ,’-й элемент массива’);
readln(a[i]);
end;
readln;
end.
2 способ(формирование массива случайным образом)
program sozdmas(b);
const n=10;
type mas=array[1..n] of integer;
var a:mas; i:integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(100);
readln;
end.
Задание
-Составьте блок-схему алгоритма решения вашего варианта задачи.
-Введите программу на языке DELPHI, исполните программу, добейтесь правильных результатов.
-Сохраните программу.
-Оформите отчет к работе.
Вариант 1.
1.Организовать ввод массива 2, -34, 56, 89, 65, -34, 0, -12, 14, 5 с клавиатуры.
2.В заданном числовом массиве определить сумму положительных элементов.
3.В заданном числовом массиве каждый элемент с четным индексом заменить на нуль.
4.Изменить заданный числовой массив так, чтобы элементы были расположены в нем в обратном порядке.
5.Выполнить задания 2,3,4 для массива, введенного случайным образом.
Вариант 2.
1. Организовать ввод массива 8, 0, -45, 98, -15, 2, 19, -72, 35, -4 с клавиатуры.
2.В заданном числовом массиве определить среднее арифметическое отрицательных элементов.
3.В заданном числовом массиве удвоить элементы с нечетными индексами.
4.В заданном числовом массиве переставить местами соседние элементы с четными и нечетными индексами.
5.Выполнить задания 2,3,4 для массива, введенного случайным образом.
Вариант 3.
1.Организовать ввод массива 4, 0, 87, -34, -25, 13, 87, 0, 20, 0 с клавиатуры.
2.В заданном числовом массиве определить количество нулевых элементов.
3.В заданном числовом массиве определить индексы элементов, имеющих значение 87.
4.В заданном числовом массиве каждый элемент, начиная со второго, заменить на значение предыдущего элемента.
5.Выполнить задания 2,3,4 для массива, введенного случайным образом.
