лр5 мемо на 16.09. Использование многострочного редактора

• Название: Использование многострочного редактора
• Дата: 11.09.2020
• Размер: 19.72 Kb.
• Имя файла: лр5 мемо на 16.09.docx
• Тип: Лабораторная работа; #137520

Лабораторная работа № 3

Тема: Использование многострочного редактора

Цель работы: Научиться использовать многострочный редактор в приложении.

Теория:

TMemo - Многострочный редактор имеет практически те же возможности по редактированию текста, что и однострочные редакторы. Главное отличие этих элементов управления заключается в том, что многострочный редактор содержит несколько строк текста.

Для работы с отдельными строками используется свойство Lines типа TStrings. Класс TStrings служит для выполнения операций со строками и имеет различные свойства и методы, которые уже были рассмотрены выше. Компонент Memo позволяет использовать возможности этого класса через свое свойство Lines.

Может служить как для ввода, так и для вывода данных. Удобен для работы с массивами.
Пример: найти сумму 5 элементов одномерного массива.

Разместите на форме компоненты: TMemo, 2 – TLabel, TButton. В свойстве Memo Lines / TString…удалить текст “Memo1”. Массив ввести в многострочный редактор после запуска программы по принципу: одна строка - одно значение
procedure TForm1.Button1Click (Senter: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;

Label1.Caption:=IntToStr(sum);

End;
Задание.

Вариант №1

Дан массив натуральных чисел А(10). Найти сумму элементов, кратных данному К.

Вариант №2

Дана последовательность целых чисел а1, …,а10. Выяснить, какое число встречается раньше – положительное или отрицательное.

Вариант №3

Дана последовательность действительных чисел а1, …, а10. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен.

Вариант №4

Дан массив действительных чисел, размерность которого 10. Подсчитать сколько в нем отрицательных и нулевых элементов.

Вариант №5

Даны целые числа а1,а2, …,а10. Вывести на печать только те числа, для которых выполняется a[i]
Вариант №6

Даны натуральные числа а1, а2, …, а10. Подсчитать количество чисел у которых остаток от деления на М равен L (O
Вариант №7

Дана последовательность чисел, среди которых имеется один ноль. Вывести на печать все числа, включительно до нуля.

Вариант №8

Дана последовательность действительных чисел а1, а2, …, а10. Подсчитать те ее элементы, которые принадлежат отрезку [c,d];

Вариант №9

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. если таких нет, то выдать сообщение об этом.
Вариант №10

Дан массив действительных чисел. Среди них есть равные. Найти первый максимальный элемент массива и заменить его нулем;
Вариант №11

В последовательности действительных чисел а1, а2, …, а10, есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведение положительных элементов Р2. Сравнить модуль Р2 с модулем Р1 указать, какое из произведений по модулю больше.
Контрольные вопросы:

1. 
   Какой компонент используется для работы с одномерным массивом?
   
2. 
   Какие свойства компонента TMemo вы знаете?
   
3. 
   Какого типа свойство Lines. Перечислить его основные свойства и методы.
   
4. 
   Как объявить динамический массив? Как задать длину динамического массива?