Оператор цикла for. Вложенные циклы. Примеры реализации в среде Delphi.
1) Оператор цикла с параметром используется для организации цикла с известным числом повторений цикла (оператор для).
for <имя переменной>:= выражение1 to выражение2 do оператор;
или несколько операторов в цикле
for с:= А to В do оператор(серия команд);
Рис1.
Отметим, что в цикле «for» переменная цикла С увеличивается всегда на 1 сама и автоматически от значения С=А до С=В.
Пример. Дано натуральное число n. Найти наименьший простой сомножитель.
program somn;
var i,n:integer;
BEGIN
write ('введите число '); readln (n);
for i:=2 to n do begin
if n mod i = 0 then begin
write('наименьший сомножитель',i);
exit; end;
end;
END.
Операторы цикла while, repeat.Использование Listbox для вывода результата в среде Delphi. Сочетание циклов и команды ветвления.
2) Оператор цикла с предусловием (цикл пока). Этот оператор имеет вид:
while условие do оператор;.
Рис 2. Рис.3.
|
|
|
while и do – служебные слова, условие – логическое (булево) выражение. Выполняется следующим образом: сначала вычисляется значение булева выражения. Если это значение истинно (true), то выполняется оператор, следующий за служебным словом do (операторы могут быть заключены в операторные скобки begin...end), и снова происходит возврат к вычислению значения булева выражения. Так повторяется, пока значение булева выражения не станет ложным (false). Выполнение оператора, следующего за словом do, прекращается, поэтому такой оператор называется оператором с предусловием. Это означает также, что оператор, следующий за служебным словом do, может быть и не выполнен ни разу, если при первом же вычислении значение булева выражения будет ложным.
На рис 3. Показано, как можно заменить цикл for циклом while, обратное можно сделать не всегда.
Операторы цикла while и repeat используются чаще всего в случаях, когда неизвестно число повторений или изпенение параметра число отличное от 1.
Создание главного и выплывающего меню. Пример работы с видеофайлами.
Всплывающее меню
Главная - Программирование на Delphi - Всплывающее меню
Всплывающие меню во многом подобны главному меню приложения, но чаще всего они служат более ограниченным целям. Обычно приложение будет иметь единственное главное меню, а каждое окно в приложении будет иметь свое собственное локальное меню, реализуемое как всплывающее. Это меню традиционно управляется с помощью щелчка правой клавишей мыши или нажатием Alt+F10 Создание всплывающего меню в Delphi включает те же общие задачи, что и создание основного меню.
|
|
|
Выберите из главного меню Delphi File | New Project, чтобы начать с чистой формы. Затем выберите компонент PopupMenu со страницы Standart палитры компонентов и поместите его в вашу форму в верхнем левом углу. Выполните двойной щелчек мыши на компоненте в вашей форме, чтобы вызвать Menu Designer.
Наше всплывающее меню будет иметь два элемента: Шрифт (Font) и Цвет (Color). Вы можете добавить эти элементы меню в Menu Designer вводом текста элементов меню ("&Шрифт" или "&Цвет") и нажатием Enter. После того, как вы создали эти элементы, закройте окно Menu Designer. Мы скоро к нему вернемся.
Добавьте в вашу форму компонент Label. Затем измените его свойство Caption на "Щелкните правой клавишей мыши для активизации всплывающего меню" ("Click the right mouse button to activate the popup menu"). Позиционируйте эту метку в форме так, чтобы он была центрирована горизонтально, сразу под компонентом PopupMenu.
|
|
|
Щелкните мышью на пустом месте вашей формы, чтобы ее выбрать, затем в Object Inspector измените свойство PopupMenu для формы на "PopupMenu 1" Вы можете ввести это значение в окне редактирования свойства PopupMenu, или выбрать его из выпадающего списка.
Сохраните вашу работу, назвав модуль DLGFORM.PAS, а проект DLGXMPL.DPR. Затем нажмите F9, чтобы скомпилировать и запустить программу на выполнение. Когда программа запустится, установите курсор мыши в клиентной области формы и щелкните правой кнопкой мыши. Должно всплыть меню, создав изображение.
Дата добавления: 2018-05-12; просмотров: 1013; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!