Пример: Найти сумму 5 чисел в одномерном массиве.
Разместите не форме компоненты Memo1, 2 - Label, Button, Edit, как на рисунке. В свойстве Memo Lines| TString… удалить текст «Memo1» и «OK».
procedure TForm1.Button1Click(Sender: TObject);
var a: array [0..9] of integer;
sum, i:integer;
begin
sum:=0;
for i:=0 to 4 do
begin
a[i]:=StrToInt(Memo1.Lines[i]);
sum:=sum+a[i];
end;
Edit1.Text:=IntToStr(sum);
end;
Вводите все значения в Memo1 !!!!
Задания:
Вариант №1
Дан массив натуральных чисел А(10). Найти сумму элементов, кратных данному К.
Вариант №2
Дана последовательность целых чисел а1, …, а10. Выяснить, какое число встречается раньше – положительное или отрицательное.
Вариант №3
Дана последовательность действительных чисел а1 , …, а10. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен.
Вариант №4
Дан массив действительных чисел, размерность которого 10. Подсчитать сколько в нем отрицательных, положительных и нулевых элементов.
Вариант №5
Даны целые числа а1, а2, …, а10.Вывести на печать только те числа, для которых выполняется а[i] < i.
Вариант №6
Даны натуральные числа а1, а2, …, а10.Подсчитать количество чисел у которых остаток от деления на М равен L (O <L <M - 1).
Вариант №7
При поступлении в вуз абитуриенты, получившие “двойку” на первом экзамене, ко второму не допускаются. В массиве А[10] записаны оценки экзаменующихся, полученные на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.
Вариант №8
Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа, включительно до нуля.
Вариант №9
Дана последовательность действительных чисел а1, а2, …, а10. Подсчитать те ее элементы, которые принадлежат отрезку [c, d].
Вариант №10
Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет, то выдать сообщение об этом.
Вариант №11
Последовательность а1, а2, …, аn состоит из нулей и единиц. Поставить в начало этой последовательности нули, а затем единицы.
Вариант №12
В последовательности действительных чисел а1, а2, …, а10, есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов P2. Сравнить модуль Р2 с модулем Р1 указать, какое из произведений по модулю больше.
Вариант №13
Дан массив действительных чисел. Среди них есть равные. Найти первый максимальный элемент массива и заменить его нулём
Вариант №14
Даны целые числа а1, а2, …, а10. Наименьший член этой последовательности заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменений.
Вариант №15
Даны действительные числа а1, а2, …, а10. Требуется умножить все члены последовательности на квадрат ее наименьшего члена, если а10 > 0, и на квадрат ее наибольшего члена, если а10 < 0.
Контрольные вопросы:
1. Какой компонент используется для работы с одномерным массивом?
2. Какие свойства компонента Memo вы знаете?
Лабораторная работа №18 Использование компонентов списков и выпадающих списков.
Тема: Создание списков. Работа со списками в приложении.
Цель работы: Применение теоретических навыков на практике. Ознакомить студентов с компонентами для создания списков выбора на форме приложения. Закрепить полученные на лекции знания. Написать и отладить программу
Теория:
TComboBox - раскрывающийся список выбора
Комбинированный список TComboBox представляет собой комбинацию списка TListBox и редактора TEdit, и поэтому большинство его свойств и методов заимствованы у этих компонентов. Существуют пять модификаций компонента, определяемые его свойством style:
csSimple, csDropDown, csDropDownList, csOwnerDrawFixed И csOwner DrawVariabie. В первом случае список всегда раскрыт, в остальных он раскрывается после нажатия кнопки справа от редактора (рис. 18.7). В модификации csDropDownList редактор работает в режиме отображения выбора и его нельзя использовать для ввода новой строки (в других модификациях это возможно). Модификации csOwnerDrawFixed и csOwnerDrawVariable используются программной прорисовки элементов списка. Используемые для этого свойства и методы полностью совпадают со свойствами и методами TListBox аналогичного назначения. Наполнение списка ведется методами Add, Append, Insert и т. п. его свойства Items класса TStrings