Цикл табулирования в делфи

Цикл табулирования в делфи

Составим алгоритмы и блок-схемы решения задач.

1. Ввод значения .

2. Вычисление значения функции .

3. Вывод значения функции.

1. Ввод значения .

2. Если значение — вычисляем значение функции по формуле . Переходим к п. 4.

3. Если значение — вычисляем значение функции по формуле . Переходим к п. 4.

4. Выводим значение функции

1. Ввод значений границ интервала и , и шага .

2. Вычисляем количество точек на интервале по формуле

4. Если — переходим к п. 9.

5. Вычисляем значение аргумента по формуле .

6. Вычисляем значение функции по формуле

7. Выводим значение аргумента и функции.

8. Переходим к следующей точке. . Переходим к п. 4.

Составим блок-схему алгоритмов (рисунок 1).

Рисунок 1. Блок-схема алгоритма

Текст процедуры представлен ниже.

procedure TMainForm.btnCalcClick(Sender: TObject);

var x, z, a, b, h: double;

case pc.ActivePageIndex of

z := Sqr(Sin(x))/Cos(x*x) — Sqr(Sin(x))/Cos(x * x);

Чтобы понять, как работает цикл for Delphi, рассмотрим одну задачу. Предположим, что необходимо разработать программу, вычисляющую значение функции y=5*x*x-7 в следующих точках: x=-1, x=-0.5, x=0, x=0.5, x=1 (таблицу выведем в поле метки Label1 формы приложения). Напишем процедуру, которая решит поставленную задачу (представим один из ее вариантов):

Как Вы можете заметить, в тексте данной процедуры группа инструкций

которая вычисляет значение функции, формирует строки таблицы и осуществляет увеличение аргумента, повторяется 5 раз. Используя инструкцию for, можно представить представленную процедуру следующим образом:

А теперь сравним два варианта процедуры:

  1. Для создания второго варианта потребовалось меньше усилий в процессе набора;
  2. Процедура в втором варианте более гибкая: для увеличения количества строк в отображаемой таблице, к примеру, до 15, остается лишь в строке провести замену числа 5 на число 15.

Применение цикла for Delphi эффективно тогда, когда некоторая последовательность действий выполняется несколько раз (если заранее известно количество повторений). Цикл for Delphi имеет общий вид:

Читайте также:  Игра 94 новогодние обещания

  • счетчик (тип integer) означает переменную-счетчик количества повторений некоторых инструкций цикла;
  • нач_знач (тип integer) подразумевает выражение, которое является начальным значением счетчика циклов;
  • кон_знач (тип integer) обозначает выражение, являющееся конечным значением счетчика циклов.

Определить, сколько раз (обозначим это число за m) повторяются инструкции цикла, можно, воспользовавшись следующей формулой:

Примеры цикла for Delphi:

А теперь приведем примеры использования инструкции for Delphi:

Пример 1.

Пример 2.

Заметка. В случае, когда между служебными словами begin и end располагается только одна инструкция, то зарезервированные слова begin и end опускаются. Как устроен алгоритм инструкции for, покажет следующая иллюстрация:

Если внимательно приглядеться к приведенному алгоритму, то можно заметить, что если конечное значение счетчика не превышает его начального значения, то инструкции между служебными словами begin и endвыполняться не будут. Нельзя не отметить, что после того, как завершилось очередное выполнение инструкции тела цикла, увеличение счетчика циклов происходит автоматически. Переменная счетчик может быть использована внутри тела цикла, но менять переменную-счетчик нельзя.

Пример 3. После того, как выполнены следующие инструкции

в переменной tab1 будут содержаться изображения таблицы, состоящей из квадратов чисел.

Пример 4. В качестве примера приведем программу, производящую вычисление суммы первых десяти элементов ряда 1+1/2+1/3+1/4+ … +1/n (свяжем значение i-того элемента данного ряда с его номером при помощи формулы 1/i).

Таким образом, в диалоговом коне программы необходимо присутствие как минимум двух компонент: поля меткиLabel1 и командной кнопки Button1. Чтобы вычислить сумму первых десяти членов ряда и вывести полученный результат, воспользуемся процедурой обработки событий Onclick (ее код представление ниже).

Как только вычислен очередной элемент ряда, при помощи данной процедуры осуществляется вывод в полеLabel1 номера элемента и его значения в поле метки формы, которое и предназначено собственно для вывода полученного результата.

Читайте также:  Планшет с пером samsung

Заметка. Если необходимо, чтобы значения счетчика не увеличивалось, а уменьшалось, то необходимо в инструкции for слово to заменить на слово downto.

Цель: программирование циклов в среде программирования Borland Delphi.

Задачи:

1) Создать форму по заданию и выполнить остальные действия.

2) Убедиться в работоспособности разработанной программы.

Перечень оборудования и программного обеспечения: ПК, находящийся в локальной сети, операционная система Windows, среда программирования Borland Delphi.

Литература: 3, 7, 12, 13, 24, 27, 29, 30, 37, 39.

Краткое изложение основных теоретических и методических аспектов:

Объект Memo применяют для многострочного редактора текста, CheckBox — для создания независимого двух или трёхпозиционного флажка: включен, выключен или серый. Панель группы (GroupBox) предназначена для размещения на ней группы из нескольких объектов, используемых для улучшения дизайна окна программы. С помощью объекта MainMenu создают главное меню программы, а с помощью объекта PopupMenu — контекстное меню компонента. Для связывания контекстного меню с объектом необходимо свойству этого объекта присвоить значение Name соответствующего контекстного меню.

Для смены пиктограммы нужно указать конкретный файл с рисунком в поле значения свойства Icon (пиктограмма) формы. Щелкнуть в строке Icon на , а потом на кнопке Load окна Picture Editor, чтобы получить окно Load picture. Открыть и выбрать графический файл пиктограммы => Open => Ok.

Чтобы выровнять и отцентрировать объекты — окно Alignment. Выделить группу объектов с подписями к ним и выполнить Edit=> Align (выровнять)=> Horisontal — Left sides (горизонтально — левые границы)=> Vertical – Space equally (вертикально — равномерно)=> Ok или Edit=> Align=> Horisontal — Center in Window (горизонтально — к центру окна)=> Ok.

Для вставки в форму панели группы объектов выбираем GroupBox на закладке Standard палитры компонентов, флажков — CheckBox , многострочного поля редактирования — Memo на закладке Standard. Для вставки главного и контекстного меню — MainMenu и PopupMenu там же, на этапе выполнения программы они невидимы. Для ввода названия команд главного меню формы выбрать MainMenu и щелкнуть на свойстве Items или дважды на объекте и закрыть окно создания команд главного меню Form1.MainMenu.

Читайте также:  Смартфон с лучшим звуком в наушниках

Методы — это набор процедур и функций, которые применяют к объекту. Имя объекта от имени метода отделяется точкой. Программирование команды «Очистить поле вывода» главного меню с помощью метода Clear объекта Memo выполняется так. После щелчка по команде меню «Очистить поле вывода» появится заготовка процедуры реакции на событие вызова. В нее записывается команда вызова метода Clear для очистки поля вывода Memo:

procedure TForm1.N3Click (Sender: Tobject);

<N3 — имя команды «Очистить поле вывода», может быть другой номер>

Memo1.Clear <Вызов очищающего метода объекта Memo>

Для построения графика функции в форму вставляется объект ChartFX из закладки OCX. Дважды щелкнуть на нем и на закладке Appearance из списка Gallery Type, выбрать пиктограмму графика. На закладке 3DView убрать флажок 3D. На закладке DataValues задать ожидаемые (ориентировочно) максимальное и минимальное значения функции. Создать пункт меню или кнопку «Нарисовать график» и запрограммировать:

procedure TForm1.Button1Click (Sender: TObject);

var i, n: integer;

ChartFX1.OpenDataEx (COD_VALUES, 1, n);

for i := 0 to n-1 do

ChartFX1.Value[i] := sin (x) + 1 ; <Формируем легенду оси ОХ>

Ссылка на основную публикацию
Фото с листком для вк
Сигна в ВК – это просто фотография человека с листком бумаги, на котором обычно написано чье-то имя. Часто надписи делают...
Установка виндовс зависла на начало установки
Если вы решили переустановить или установить операционную систему, но начало установки Windows 7 зависает, то в этой статье, думаю, вы...
Установка драйвера принтера отказ
Нередки ситуации, когда не устанавливается принтер, хотя система видит, что к компьютеру подсоединилось новое оборудование. Решение такой задачи требует серьезного...
Фото спортивных мужчин 40 лет
17. Джерард Батлер, 48 лет (kinopoisk) «Законопослушный гражданин» Джерард Батлер когда-то работал официантом, демонстратором игрушек и даже юристом. Он также...
Adblock detector