Var
A: array [1..10] of integer;
i: integer;
Begin
For i:=1 to 10 do
Readln (a[i]);
Вывод массива в Паскале осуществляется также поэлементно, в цикле, где параметром выступает индекс массива, принимая последовательно все значения от первого до последнего.
Пример фрагмента программы вывода массива Паскаля в строку
Var
A: array [1..10] of integer;
i: integer;
Begin
For i:=1 to 10 do
Write (a [i],);
13.TurboPascal. Понятие массива Стандартные алгоритмы обработки одномерных массивов.
14.TurboPascal. Строковый тип данных. Процедуры обработки строки символов: Delete, Insert, copy.
Строка (string) - это последовательность литер. Тип данных (string) определяет строки с максимальной длиной 255 символов.
Процедура Delete удаляет в исходной строке фрагмент определенной длины, начинающийся с указанной позиции. Так, оператор Delete(Words,2,3); удаляет из строки Words фрагмент, состоящий из трех символов и начинающийся со второй позиции.
Процедура Insert вставляет в исходную строку, начиная с указанной позиции, какую-либо другую строку. Оператор Insert(Word1,Words,4); указывает ТП, что необходимо в строку Words, начиная с 4-ой позиции (перед 4-ой позицией), ВСТАВИТЬ строку Word1.
Функция Copy позволяет копировать фрагмент некоторой строки из одной переменной в другую.
15.TurboPascal. Строковый тип данных. Стандартные функции для обработки строки символов: length, pos, concat, copy.
Функция Length (длина) позволяет определить фактическую длину текстовой строки, хранящейся в указанной переменной (а не величину предельного размера строки, установленную при декларации):
C помощью функции Pos Вы можете осуществить поиск некоторого фрагмента в строке. Если заданный фрагмент в строке присутствует, то функция возвращает номер позиции, с которой он начинается. Если фрагмент не найден, то функция возвращает нуль. POS(X,A) находит в строке A подстроку X (позицию вхождения). Результат выполнения функции - целое число.
Функция Concat (Str1,Str2,...,StrN) выполняет конкатенацию (или сцепление) строк Str1,Str2,...,StrN в том порядке, в каком они указаны в списке параметров. Сумма символов всех сцепленных строк не должна превышать 255.
16.TurboPascal. Строковый тип данных. Процедуры обработки строки символов: Str, Upcase, ConCat.
Процедура Str преобразовывает числовое значение переменной Chislo в строковую переменную Stroka. После первого параметра может указываться формат, аналогичный формату вывода.
Функция Upcase позволяет преобразовывать латинский символ любой литеры из строчного в прописной. Эта функция рассчитана на обработку отдельного символа.
Функция Concat (Str1,Str2,...,StrN) выполняет конкатенацию (или сцепление) строк Str1,Str2,...,StrN в том порядке, в каком они указаны в списке параметров.
17. Интегрированная среда разработки BorlandDelphi. Структура окна ИСР BorlandDelphi.
Delphi – объектно–ориентированная среда для визуального построения программных продуктов, основанная на языке Object Pascal (фирма Borland)
Этапы программирования с среде Delphi
1. Визуальное построение программ на основе объектных компонентов и настройки их свойств
2. Написание программного кода на языке Object Pascal
Интегрированная среда разработки (ИСР) - среда в которой происходит разработка программы, ее последовательная отладка, визуализация работы программы,
Структура окна ИСР
1. Строка заголовка
2. Строка меню с пунктами
18. BorlandDelphi. Не визуальные компоненты MainMenu и PopupMenu их основные свойства.
Меню представляет собой список пунктов, объединенных по функциональному признаку, каждый из которых обозначает команду или вложенное меню (подменю).
MainMenu – главное меню. PopupMenu – всплывающее меню. Это невизуальные компоненты расположенныt в палитре компонентов на вкладке Standard.
| Items | вызывает редактор меню или меню дизайнера (так же вызывается ЩПКМ по компоненте MainMenu), дизайнер меню можно вызвать щелчком правой кнопкой мыши по компоненте |
| Checked | true/false – наличие/отсутствие отметки Ö у пункта меню (для отметки выбора) |
| Bitmap | рисунок, определяющий наличие картинки перед названием пункта в меню |
| ShortCut | Задает для пункта меню горячие клавиши |
19. Borland Delphi. Компоненты Label, Edit их основные свойства
Компонент Label (метка) используется для отображения текста на форме. Для задания текста метки во время выполнения используется свойство Caption.
| Свойство | Описание |
| Name | Имя компонента. Используется в программе для доступа к компоненту и его свойствам |
| Caption | Отображаемый текст |
| Left | Расстояние от левой границы поля вывода до левой границы формы |
| Top | Расстояние от верхней границы поля вывода до верхней границы формы |
| Height | Высота поля вывода |
| Width | Ширина поля вывода |
| AutoSize | Признак того, что размер поля определяется его содержимым |
| Wordwrap | Признак того, что слова, которые не помещаются в текущей строке, автоматически переносятся на следующую строку (значение свойства AutoSize должно быть False) |
| Alignment | Задает способ выравнивания текста внутри поля. Текст может быть выровнен по левому краю(taLeftJustify), по центру (taCenter) или по правому краю (taRightJustify) |
| Font | Шрифт, используемый для отображения текста. Уточняющие свойства определяют способ начертания СИМВОЛОВ (Font.Name), размер (Font.Size) цвет СИМВОЛОВ(Font.Color) |
| ParentFontColor- | Признак наследования компонентом характеристик шрифта формы, на которой находится компонент. Если значение свойства равно True, то текст выводится шрифтом, установленным для формы Цвет фона области вывода текста |
| Transparent | Управляет отображением фона области вывода текста. Значение True делает область вывода текст прозрачной (область вывода не закрашивается цветом, заданным свойством Color) |
| Visible | Позволяет скрыть текст (False) или сделать его видимым (True) |
Компонент Edit позволяет вводить и редактировать с клавиатуры различные символы, при этом поддерживаются операции, такие как перемещение по строке с использованием клавиш управления курсором, удаление символов.
| Text | Текст отображаемый в поле Edit |
| CharCase | Изменение регистра ecLowerCase — текст преобразуется к нижнему регистру; ecNormal — регистр символов не изменяется (по умолчанию); ecUpperCase — текст преобразуется к верхнему регистру. |
| PasswordChar | задает символ для отображения в поле ввода |
| МaxLength | Устанавливает длину вводимых символов |
20. Borland Delphi. Компоненты Button, Bitbtn их основные свойства и события.
Командная кнопка, компонент Button (Standart), добавляется в форму точно так же, как и другие компоненты Delphi.
| Свойство | Описание |
| Name | Имя компонента. Используется в программе для доступа к компоненту и его свойствам |
| Caption | Текст на кнопке |
| Enabled | Признак доступности кнопки. Кнопка доступна, если значение свойства равно True, и не доступна, если значение свойства равно False |
| Left | Расстояние от левой границы кнопки до левой границы формы |
| Top | Расстояние от верхней границы кнопки до верхней границы формы |
| Height | Высота кнопки |
| Width | Ширина кнопки |
Компонент delphi BitBtn по сути является компонентом Button, но на нем можно размещать битовый рисунок вместе с текстом этой кнопки.
Свойства BitBtn
| Name | имя компонента используемое для доступа к этому компоненту |
| Glyph | свойство позволяюшее привязать изображение к кнопке |
| Layout | пределяет к какому краю кнопки, прижимается изображение: blGlyphBottom — к нижнемукраю; bIGlyphLeft — к левому краю; bIGlyphRight — к правому краю; bIGlyphTop — к верхнемукраю. |
| Margin | определяет расстояние от края кнопки до изображения(измеряется в пикселях) |
| NumGlyphs | определяет количество изображений. |
| Spacing | определяет расстояние от изображения до надписи на кнопке(измеряется в пикселях) |
| Caption | текст, выводимый на кнопке |
| Kind | это свойство определяет несколько предопределенных видов, при выборе которого на кнопка отображается стандартное изображение |
21. BorlandDelphi. КомпонентыCheckBox,RadioButton, Radiogroupих основные свойства.
CheckBox — независимый переключатель. Этот компонент используется для включения/выключения каких-либо опций или для индикации состояния, при этом на форме CheckBox’ов может быть несколько, и каждый можно включать и выключать независимо друг от друга.
| Alignment | определяет, положение надписи (слева или справа) по отношению к индикатору |
| Caption | надпись индикатора |
| Checked | определяет выбран ли индикатор |
| State | определяет состояние индикатора (вкл/выкл) |
RadioButton — это «радио кнопка», как следует из названия, представляет собой
элемент управления отображающийся в виде кружка с текстом размешается на форме как правила два и более переключателей. Переключатели взаимосвязаны при выборе одного переключателя другие становятся не выбранными.
| Alignment | определяет, положение надписи (слева или справа) по отношению к переключателю |
| Caption | надпись переключателя |
| Checked | определяет выбран ли компонент |
RadioGroup предназначен для группирования схожих по смыслу компонентов delphi. В компоненте RadioGroup есть свойство ItemIndex, котороe указывает,на то, какая кнопка в этот момент включена. По умолчанию, ItemIndex = -1. Так как нумерация кнопок начинается с нуля.
22. BorlandDelphi.КомпонентаStringGridее основные свойства.
StringGrid преднозначен для отображения данных в табличной форме,
Из названия следует, что в ячейках компонента StringGrid могут содержаться данные, типа String. Таблица StringGrid может быть только для чтения и редактирования, и состоит из выделенных серым зафиксированных ячеек-заголовков(FixedCols и FixedRows) недоступных для редактирования(меняется только программно), и белых ячеек имеющие возможность редактирования благодаря свойству Options.
| ColCount | количество колонок в таблице |
| RowCount | количество строк в таблице |
| DefaultColWidth | ширина колонок в таблице |
| DefaultRowHeight | высота строк в таблице |
| FixedCols | количество зафиксированных колонок слева таблицы |
| FixedRows | количество зафиксированных колонок сверху таблицы |
| Cells | двумерный массив. Ячеек таблицы, находящихся на пересечении столбца(col) и строки(row)соответствует элементу cells[col, row] |
| Font | Шрифт отображения содержимого ячеек |
23. BorlandDelphi.Не визуальные компонентыOpenDialog, SaveDialog, ColorDialog, FontDialog, PrintDialog.
openDialog (выбор открываемого файла);
saveDialog (выбор сохраняемого файла);
FontDialog (настройка параметров шрифта);
ColorDialog (выбор цвета);
PrintDialog (вывод на принтер).
Delphi диалоги сами по себе ничего не делают, а только предоставляют настройки, сделанные пользователем при выборе файла. Самый важный метод Delphi диалогов - Execute. Он срабатывает в момент нажатия кнопки "открыть" или "сохранить" и т.д
24. BorlandDelphi. Рисование на канве.
Canvas обеспечивает пространство (холст, канву) для создания, хранения и модификации графических объектов.
LineTo
Рисует на канве прямую линию, начинающуюся с текущей позиции пера и кончающуюся указанной точкой.
LineTo (x,y:Integer);
Ellipse
Рисует заполненную окружность или эллипс
Ellipse (x1,y1,x2,y2:Integer);
MoveTo
Изменяет текущую позицию пера на заданную, ничего не рисуя при этом.
MoveTo(x,y:Integer);
Rectangle
Рисует на канве текущим пером прямоугольник и закрашивает его текущей кистью.
Rectangle(x1,y1,x2,y2:Integer);
RoundRect
Рисует на канве прямоугольную рамку со скругленными углами.
RoundRect(x1,y1,x2,y2,x3,y3:Integer);
Brush
Определяет цвет и стиль заполнения фона окна.
Pen
Цвет линий (перо) можно задать так:
form1.canvas. pen. color:= clGreen;
Ширину линий (перо) можно задать так:
form1.canvas. pen. Width:= 10
Вставка текста
Canvas.TextOut (100,200, 'текст');
25. BorlandDelphi. Сохранение проектов. Состав проекта.
Когда что-то уже сделано, имеет смысл сохранить проект. Для этого выполните команду главного меню File | Save All.
Проект Delphi-это несколько связанных между собой файлов, которые необходимы для создания и работы будущей программы.
Состав проекта: код проекта(dpr), описания форм(dfm), модули(pas), параметры проекта(dof), параметры среды(cfg), описание ресурсов(res).
Практические задания
Задание 1
Создайте программу, которая будет спрашивать Имя и Отчество и по нажатию на кнопку «Сформировать сообщение» будет выводить текст «Уважаемый Имя Отчество мы рады сообщить, что в ЖК «Зеленоградский» действует скидка 10% на квартиры»
Задание 2
Создайте программу, которая будет спрашивать год рождения и по нажатию на кнопку «Посчитать возраст» будет выводить Ваш возраст, например«Ваш возраст 17 лет»
Задание 3
Создать программу, которая запрашивает Фамилию, Имя и формирует письмо с текстом «Уважаемый Ф.И. 10 февраля 2016 года состоится собрание, на котором будет рассматриваться Ваш вопрос».
Задание 4
Создайте форму в которой в компоненте Label, будет изменяться текст и цвет шрифта в зависимости от выбора радиокнопки. Например, если выбрать радиокнопку со словом Красный в метке Label должен появиться текст КРАСНЫЙ красного цвета.
Задание 5
Создайте форму с компонентами, которая в зависимости от выбора ответа будет выдавать сообщение «Ответ верный» или «Ответ неверный»
Задание 6
Создайте программу, которая будет выводить в Метку результаты работы переключателей.
1. Включена Лампа1, Лампа 2 отключена (флажок установлен в Лампе 1),
2. Включена Лампа 2, Лампа 1 отключена(флажок установлен в Лампе 2),
3. Обе лампы включены (в обоих переключателях установлен флажок),
4. Обе лампы отключены (флажки сняты в Лампе 1 и в Лампе2).
Задание 7
На форме расположите метку с текстом, создайте главное меню с пунктами Файл (подпункты Очистить, Закрыть), Фон (с подпунктами Красный, Синий, Зеленый…), Шрифт (с подпунктами Красный, Синий, Зеленый…), Размер (с подпунктами 12,14,16,18,20), пропишите действия пунктам главного меню программы. Для отображения текста используйте компоненту Мемо
Задание 8
Создайте программу нахождения суммы трех чисел. Программа должна быть спроектирована таким образом, чтобы кнопка Сумма была доступна только в том случае, если пользователь ввел величины всех трех значений.
Задание 9
Создайте программу вычисления скорости по заданным пути и времени. В поле Путь и Время нельзя вводить отрицательные числа (если вводятся отрицательные значения, то поля должны очищаться для ввода положительных значений)
Задание 10
Написать программу, которая вычисляет силу тока в электрической цепи (I=U/R). Рекомендуемый вид формы приведен на рисунке. Программа должна быть спроектирована таким образом, чтобы кнопка Вычислить была доступна только в том случае, если пользователь ввел величины напряжения и сопротивления не отрицательными и не равными нулю.
Задание 11
Создать программу, которая будет считать среднее арифметическое двух чисел
Задание 12
Создать приложение, позволяющее.
1. изменять размер шрифта и цвет фона в редакторе Мемо выбором кнопок из RadioGroup;
2. управлять выравниванием текста в окне редактора выбором кнопок из RadioGroup;
3. очищать содержимое редактора
Задание 13
Создать простейший текстовый процессор, содержащий переключатели цвета шрифта, флажки для определения стиля
Задание 14
Составить таблицу 4х4, состоящую из целых чисел. Программа должна выводить число, лежащее в ячейке с введенным с клавиатуры номером столбца и строки.
Задание 15
Написать программу "Стили заполнения областей", которая в окно выводит восемь прямоугольников, закрашенных с использованием разных стилей.
Begin
w:=40; h:=40; // размер области(прямоугольника)
у:=20;
for i:=l to 2 do
Begin
х:=10;
for j:=1 to 4 do
Begin
k:=j+(i-1)*4; // номер стиля заполнения
Case k of
1: bs = bsSolid;
2: bs = bsClear;
3: bs = bsHorizontal;
4: bs = bsVertical;
5: bs = bsFDiagonal;
6: bs = bsBDiagonal;
7: bs = bsCross;
8: bs = bsDiagCross; end;
// вывод прямоугольника
Canvas.Brush.Color:= clGreen;
// цвет закрашивания — зеленый
Canvas.Brush.Style:= bs;
// стиль закрашивания
Canvas. Rectangle (x, y, x+w, y-t-h);
// вывод названия стиля
Canvas.Brush.Style:= bsClear;
Canvas.TextOut(x, y-15, bsName[k]);
// вывод названия стиля
x:= x+w+30;
end;
у:= y+h+30;
end;
Задание 16
Создайте приложение, позволяющее рассчитать Силу тока I=U/R. При последовательном типе соединения электрической цепи сопротивление вычисляется по формуле R=R1+R2 , при параллельном соединении по формуле R=(R1*R2)/(R1+R2)
Задание 17
Создайте приложение, позволяющее рассчитать скорость бега спортсмена, если известны дистанция (м) и время (мин.сек), с которыми бежал спортсмен по формуле скорость=дистанция/время.
Задание 18
Создайте редактор текста, который позволяет форматировать текст: стиль, начертание, размер, цвет, выравнивание. В программе имеется главное меню и панель инструментов.
Задание 19
Создайте редактор текста, который позволяет форматировать текст: стиль, начертание, размер, цвет, выравнивание. В программе имеется панель инструментов.
Задание 20
Создать программу, которая по выбору радиокнопки будет загружать картинки в компоненту Image. Создайте контекстное меню, через которое также можно было бы загружать картинки в компоненту Image. Закрытые программы должно сопровождаться подтверждением.
