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


    8b693973     

Основы языка 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
Условие
Условие В повседневной жизни условие обычно формулируется в виде вопроса, на который можно ответить Да или Нет. Например: Величина сопротивления равна нулю? Ответ правильный? Сумма пок
Два варианта алгоритма решения одной задачи

Два варианта алгоритма решения одной задачи Простое условие состоит из двух операндов и оператора сравнения. В общем виде условие записывается следующим образом: О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
Алгоритм, реализуемый инструкцией if-then-else Например, если переменная t обозначает тип соединения сопротивлений в электрической цепи (t=1 соответствует последовательному соеди
Алгоритм реализуемый инструкцией ifthen Например инструкция
Алгоритм, реализуемый инструкцией if-then Например, инструкция if n=m then c:=c+l; увеличивает значение переменной с только в том случае, если значения переменных n и m равны.
Диалоговое окно программы Стоимость разговора
Диалоговое окно программы Стоимость разговора Примечание Здесь и далее при описании формы приложения приводятся значения только тех свойств компонентов, которые используются

Таблица 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 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. Такой подход не всегда удобен, особенно в
Алгоритм реализуемый инструкцией
Алгоритм, реализуемый инструкцией case Ниже приведены примеры инструкции case. case n_day of 1,2,3,4,5: day:='Рабочий день. ' ; 6: day:='Cyббoтa!'; 7: day:='Воскресенье!';

Диалоговое окно программы Пример использования case
Диалоговое окно программы Пример использования case Для выбора названия страны используется список — компонент ListBox. Значок компонента ListBox находится на вкладке Standard (Р
Компонент ListBox
Компонент ListBox
Таблица 2 5 Свойства компонента ListBox
Таблица 2.5. Свойства компонента ListBox Свойство Определяет Name И
Кнопка запуска редактора списка

Кнопка запуска редактора списка В открывшемся диалоговом окне String List Editor (нужно ввести список, набирая каждый элемент списка в отдельной строке. После ввод
Редактор списка
Редактор списка В табл. 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 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
Алгоритм инструкции for Алгоритм, соответствующий инструкции for, представлен на Обратите внимание, что если начальное значение счетчика больше конечного значения,
Инструкция while
Инструкция while Инструкция (цикл) while используется в том случае, если некоторую последовательность действий (инструкций программы) надо выполнить несколько раз, причем необходимое число пов
Алгоритм инструкции while
Алгоритм инструкции while Для того чтобы цикл завершился, нужно, чтобы последовательность инструкций между begin и end влияла на значение выражения условие (изменяла значения пер
Диалоговое окно программы Вычисление ПИ
Диалоговое окно программы Вычисление ПИ
Листинг 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
Алгоритм, соответствующий инструкции repeat Внимание! Инструкции цикла, находящиеся между repeat и until, выполняются как минимум один раз. Для того чтобы цикл завершилс
Форма приложения Простое число
Форма приложения Простое число
Листинг 2 7 Простое число
Листинг 2.7. Простое число unit simple_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton;



Создание динамических Web узлов - перейти
Анимация в Web - перейти
Создание Webстраниц с помощью Flash - перейти
Создание анимации для Webузла JCT - перейти
Создание элементов навигации - перейти
Этапы - перейти
Dreamweaver MX - создание страниц - перейти
Связь с ColdFusion MX - перейти
Оптимизация рисунков и пакет Studio MX - перейти
Оптимизация узла и программ - перейти

Выпускаем Webузел в свет - перейти
Энциклопедия машиностроения - Материалы - перейти
Алюминий и сплавы ГОСТ 4784-74 - перейти
Алюминий первичный ГОСТ 11069-74 - перейти
Баббиты оловянные ГОСТ 1320-74 - перейти