Использование процедур Break и Continue

Repeat

Type

Interface

Ss Vertical.

Unit prim6;

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;

TForm1 = class(TForm)

Panel1: TPanel;

Button1: TButton;

BitBtnl: TBitBtn;

Bevell: TBevel;

Memol: TMemo;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label3: TLabel;

procedure Edit1KeyPress (Sender: TObject; var Key: Char); procedure Button1Click (Sender: TObject); procedure Edit1Exit (Sender: TObject);

end;

var Form1: TForm1;

implementation

($R *.DFM}

procedure TForm1.Edit1KeyPress (Sender: TObject;

var Key: Char); begin

if not (key in ['0'..'9','-','.',#8]) then key:=#0; end;

procedure TForm1.Button1Click (Sender: TObject);

var x,y,a,b,eps:real;

n:byte;

begin

Memol.Lines.Clear;

y:=0.0;

n:=0;

b:=-1.0;

x:=StrToFloat(Edit1.Text);

eps:=StrToFloat(Edit2.Text);

b:=-b*x;, inc(n); a:=b/n; y:=y+a;

Memol.Lines.Add('Итерация'+IntToStr(n)+’ a=' + FormatFloatC 0.00000',a) + ' y=' +

FormatFloat('0.0000', y)); Ontil abs(a) < eps; end;

Рис.21

Ниже приведена программа.

procedure TForm1.Edit1Exit(Sender: TObject);

begin

if Abs(StrToFloat{Edit1.Text))>1.0 then

if Application.MessageBox('Введите число Х¹,

'Число /Х/<=1', MB_OK)=IDOK then Edit1.SetFocus;

end; end.

В приведенной программе обработчик события Buttoniciick написан по алгоритму рис. 20, кроме одного дополнения - внутрь цикла добавлена процедура формирования истории расчета с помощью объекта Memol. Обра­ботчик Edit1Exit отслеживает условие: X по модулю должно быть не боль­ше 1. В случае невыполнения этого условия вызывается стандартное диалоговое окно объекта Application MessageBox. Синтаксически подпро-1 грамма MessageBox оформлена в виде функции. При вызове функции Mes­sageBox необходимо указать три параметра: текст-подсказка (что надо де-j лать); заголовок диалогового окна; вариант внешнего вида окна (константа мв_ок указывает, что окно с одной кнопкой). Edit1. SetFocus - установить фокус на объект Edit1.

В циклах For, While и Repeat можно использовать две стандартные' процедуры Break и Continue. Процедура Break позволяет досрочно выйтш из цикла, не дожидаясь выполнения условия выхода. Процедура Continue позволяет начать новую итерацию цикла, даже если предыдущая не завер­шена.

ПРИМЕР ПРИЛОЖЕНИЯ 7

Пусть с помощью генератора случайных чисел генерируется некоторый ряд чисел к в диапазоне -п <= к < = п. Организовать список чисел до первого сгенерированного отрицательного числа включительно. Форма для этого примера приводится на рис. 22. На этой форме в виде трех черных прямо-v угольничков изображена метка, с помощью которой отображается ситуация, когда не задан диапазон п. Все остальные размещенные на форме компонен-ты указаны в тексте программы, который приводится ниже.

В примере используется новый компонент TComboBox - свернутый список. Этот элемент представляет собой свернутый TListBox. Для того чтобы просмотреть список, необходимо раскрыть его, например, с помощью! мыши. Список TComboBox состоит собственно из списка и редактируемого поля. В редактируемом поле может находиться какая-нибудь строка из спи­ска или какая-нибудь строка, которую необходимо поместить в список. Дос-

к строке редактирования осуществляется с помощью свойства Text. Дос-* _к любому элементу списка осуществляется с помощью Items.Strings /свойство Items, Strings задает тип этого свойства), а для указания номера строки i используются квадратные скобки [i].

Рис.22

Генерирование числа осуществляется с помощью функции Random(L), которая генерирует случайные числа от 0 до Z-1. Для инициализации генера­тора случайных чисел используется процедура Randomize. Она инициали­зирует генератор, т. е. дает точку отсчета для случайных чисел.

unit prim7;

Дата добавления: 2014-12-29