Основы языка Delphi


Управляющие структуры языка Delphi


Index1
Глава 2. Управляющие структуры языка Delphi На практике редко встречаются задачи, алгоритм решения которых является линейным. Часто оказывается, что алгоритм решения даже элементарной задачи...
Инструкция goto
Инструкция goto Инструкции if и case используются для перехода к последовательности инструкций программы в зависимости от некоторого условия. Поэтому их иногда называют инструкциями условного...
Листинг 2 8 Простое число (использование инструкции goto)
Листинг 2.8. Простое число (использование инструкции goto) procedure TForm1.Button1Click(Sender: TObject); label // раздел объявления меток bye; var n: integer; // проверяемое число d: i...
Условие
Условие В повседневной жизни условие обычно формулируется в виде вопроса, на который можно ответить Да или Нет. Например: Величина сопротивления равна нулю? Ответ правильный? Сумма пок...
Два варианта алгоритма решения одной задачи
Рисунок 2.1. Два варианта алгоритма решения одной задачи Простое условие состоит из двух операндов и оператора сравнения. В общем виде условие записывается следующим образом: Оn1 Оператор On...
Таблица 2 1 Операторы сравнения
Таблица 2.1. Операторы сравнения Оператор Описание Результат сравнения...
Таблица 2 2 Выполнение логических операций
Таблица 2.2. Выполнение логических операций Op1 Op2 Opt and Op2 Op1 o...
Выбор
Выбор Выбор в точке разветвления алгоритма очередного шага программы может быть реализован при помощи инструкций if и case. Инструкция if позволяет выбрать один из двух возможных вариантов, ин...
Инструкция if
Инструкция if Инструкция if позволяет выбрать один из двух возможных вариантов развития программы. Выбор осуществляется в зависимости от выполнения условия. В общем виде инструкция if записы...
Алгоритм реализуемый инструкцией ifthenelse
Рисунок 2.2. Алгоритм, реализуемый инструкцией if-then-else Например, если переменная t обозначает тип соединения сопротивлений в электрической цепи (t=1 соответствует последовательному соеди...
Алгоритм реализуемый инструкцией ifthen Например инструкция
Рисунок 2.3. Алгоритм, реализуемый инструкцией if-then Например, инструкция if n=m then c:=c+l; увеличивает значение переменной с только в том случае, если значения переменных n и m равны....
Диалоговое окно программы Стоимость разговора
Рисунок 2.4. Диалоговое окно программы Стоимость разговора Примечание Здесь и далее при описании формы приложения приводятся значения только тех свойств компонентов, которые используются...
Таблица 2 3 Компоненты формы приложения Стоимость разговора
Таблица 2.3. Компоненты формы приложения Стоимость разговора Компонент Назначение Edit1...
Таблица 2 4 Значения свойств компонентов
Таблица 2.4. Значения свойств компонентов Свойство Значение Form1 . Caption...
Листинг 2 1 Вычисление стоимости телефонного разговора
Листинг 2.1. Вычисление стоимости телефонного разговора unit Phone_u; interface Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TF...
Окно программы Контроль веса
Рисунок 2.5. Окно программы Контроль веса Алгоритм программы Контроль веса изображен на Рисунок 2.6. Как и в предыдущей программе, вычисления выполняются при щелчке на кнопке Вычислить (ее...
Алгоритм программы Контроль веса
Рисунок 2.6. Алгоритм программы Контроль веса...
Листинг 2 2 Контроль веса
Листинг 2.2.Контроль веса unit wtest_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Labe...
Инструкция case
Инструкция case В предыдущем примере, в программе контроля веса, множественный выбор был реализован при помощи вложенных одна в другую инструкций if. Такой подход не всегда удобен, особенно в...
Алгоритм реализуемый инструкцией
Рисунок 2.7. Алгоритм, реализуемый инструкцией case Ниже приведены примеры инструкции case. case n_day of 1,2,3,4,5: day:='Рабочий день. ' ; 6: day:='Cyббoтa!'; 7: day:='Воскресенье!';...
Диалоговое окно программы Пример использования case
Рисунок 2.8. Диалоговое окно программы Пример использования case Для выбора названия страны используется список — компонент ListBox. Значок компонента ListBox находится на вкладке Standard (Р...
Компонент ListBox
Рисунок 2.9. Компонент ListBox...
Таблица 2 5 Свойства компонента ListBox
Таблица 2.5. Свойства компонента ListBox Свойство Определяет Name И...
Кнопка запуска редактора списка
Рисунок 2.10. Кнопка запуска редактора списка В открывшемся диалоговом окне String List Editor (Рисунок 2.11) нужно ввести список, набирая каждый элемент списка в отдельной строке. После ввод...
Редактор списка
Рисунок 2.11. Редактор списка В табл. 2.6 перечислены компоненты формы приложения, а в табл. 2.7 приведены значения свойств компонентов....
Таблица 2 6 Компоненты формы
Таблица 2.6. Компоненты формы...
Компонент
Компонент Назначение ListBoxl Для выбора страны, для которой надо выполнить пересчет...
Таблица 2 7 Значения свойств компонентов
Таблица 2.7. Значения свойств компонентов Свойство Значение Form1 .Caption...
Листинг 2 3 Пересчет веса из фунтов в килограммы
Листинг 2.3. Пересчет веса из фунтов в килограммы unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TFor...
Таблица 2 8 Зависимость окончания
Таблица 2.8. Зависимость окончания текста от последней цифры числа Цифра Поясняющий текст 0...
Диалоговое окно программы
Рисунок 2.12. Диалоговое окно программы...
Листинг 2 4 Формирование поясняющего текста
Листинг 2.4. Формирование поясняющего текста unit. rub_l; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = cl...
Листинг 2 5 Вычисление даты следующего дня (фрагмент)
Листинг 2.5. Вычисление даты следующего дня (фрагмент) // вычисление даты следующего дня var day: integer; // день month: integer; // месяц year: integer; // гОД last:boolean; // если д...
Циклы
Циклы Алгоритмы решения многих задач являются циклическими, т. е. для достижения результата определенная последовательность действий должна быть выполнена несколько раз. Например, программа к...
Инструкция for
Инструкция for Рассмотрим следующую задачу. Пусть нужно написать программу, которая вычисляет значение функции у = 5х2 - 7 в точках —1, -0.5, 0, 0.5 и 1 (таблица должна быть выведена в поле...
Алгоритм инструкции for
Рисунок 2.13. Алгоритм инструкции for Алгоритм, соответствующий инструкции for, представлен на Рисунок 2.13. Обратите внимание, что если начальное значение счетчика больше конечного значения,...
Инструкция while
Инструкция while Инструкция (цикл) while используется в том случае, если некоторую последовательность действий (инструкций программы) надо выполнить несколько раз, причем необходимое число пов...
Алгоритм инструкции while
Рисунок 2.14. Алгоритм инструкции while Для того чтобы цикл завершился, нужно, чтобы последовательность инструкций между begin и end влияла на значение выражения условие (изменяла значения пер...
Диалоговое окно программы Вычисление ПИ
Рисунок 2.15. Диалоговое окно программы Вычисление ПИ...
Листинг 2 6 Вычисление числа я
Листинг 2. 6. Вычисление числа я unit pi_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; /...
Инструкция repeat
Инструкция repeat Инструкция repeat, как и инструкция while, используется в программе в том случае, если необходимо выполнить повторные вычисления (организовать цикл), но число повторений во в...
Алгоритм соответствующий инструкции repeat
Рисунок 2.16. Алгоритм, соответствующий инструкции repeat Внимание! Инструкции цикла, находящиеся между repeat и until, выполняются как минимум один раз. Для того чтобы цикл завершилс...
Форма приложения Простое число
Рисунок 2.17. Форма приложения Простое число...
Листинг 2 7 Простое число
Листинг 2.7. Простое число unit simple_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton;...








Начало