Читайте также:
|
Написанная программа соответствует поставленной задаче. Результаты подтверждают правильность работы данной программы. Программа выполняет сложение многобайтных целых чисел без знака(макс.длинна 10 байт). Если после суммирования двух чисел бит переноса равен единице,то в результат заносится максимално возможное число(как в примере тестирования 2).
Обработка одномерных массивов.
Динамические массивы.
Выполнила: Хизбуллина Ю.Р..
Проверил: Монахов В.И.
г. Москва 2012
Содержание:
1.Краткая теория.
2.Условие задачи.
3.Алгоритм решения в виде блок схемы.
4.Текст программы консольного и оконного приложений.
5.Контрольный пример.
6.Машинный расчет, включающей скриншоты.
-для консольного ввода-вывода
-для оконного форма с результатами
Краткая теория.
Динамические массивы.
Динамические массивы появились в Delphi 4 и представляют собой удобное средство для хранения данных для тех задач, где заранее неизвестно количество элементов в обрабатываемых массивах. А поскольку программы должны составляться для произвольных данных, то появление динамических массивов можно считать закономерным.
Объявить одномерный динамический массив можно следующим образом:
var <имя массива> array of < тип >
Например:
var vect array of real
Длину массива можно задать при помощи процедуры SetLength. Например:
SetLength(vect,6)
Выделяет для массива vect в оперативной памяти 6 элементов и присваивает этим элементам нулевые значения. Индекс первого элемента массива равен 0, поэтому массив vect содержит элементы vect[0],vect[1]….vect[5].
При желании длину массива можно изменить при помощи повторного использования процедуры SetLength. Если новая длина окажется больше исходной, то в массив добовляются новые элемент с нулевыми значениями, если меньше то удаляются последние элементы.
Переменная имеющая тип динамического массива, является указателем, т.е. содержит адрес участка памяти, начиная с которого располагаются элементы массива. Поэтому удаление из памяти динамического массива может быть осуществленно одним из трез способов.
1. Присвоить переменной значение nil, например:
Vect:= nil;
2. Использовать процедуру finallize, например:
Finallize(vect);
3. Установит нулевую длину, например:
SetLength(vect,0);
Условие задачи:
Дан одномерный массив Xn. Найти среднее арифметическое всех положительных и всех отрицательных элементов. Вывести на экран номера элементов массива,.значение которых больше D.
Алгоритм решения в виде блока схемы.
Дата добавления: 2014-12-19; просмотров: 149 | Поможем написать вашу работу | Нарушение авторских прав |