3.3.2. Разработка формы

Таблица 3.1

Используемые компоненты

№	Имя компо­нента	Страница палитры компонент	Настраи­ваемые свойства	Значения
1	Forml	-	Caption	Пример лабораторной работы №3
2	Editl	Standard	Text
3	Label 1	Standard	Caption	Введите х
4	Label 2	Standard	Caption	Результат
5	Label 3	Standard	Caption
6	Label 4	Standard	Caption	Для вывода результата -щелчок по метке "Ре­зультат"

3.3.3. Текст программы

program Projectl;

uses Forms, Unitl in 'Unitl .pas'{Forml};

{$R *.RES}

begin Application.Initialize; Application.CreateForm(TForml, Forml); Application.Run;

end.

unit Unitl; interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForml = class(TForm) Label 1: TLabel; LabeI2: TLabel; EditliTEdit; Label3: TLabel; Label4: TLabel;

procedure Label2Click(Sender: TObject); private

{ Private declarations } public { Public declarations } end;

var Forml: TForml;

implementation

{$R *.DFM}

{обработчик события OnClick}

procedure TForml.Label2Click(Sender: TObject);

var x,f:real; '

begin

{ преобразуем текст из editl в вещественное число } x:=strtofloat(edit 1 .text);

{при выполнении определённого условия вычисление f осуще­ствляется по сооветствующей формуле}

if х<0 then f:=sqr(sin(x))

else if (х>=0) and (x<=1.5) then f:=sqrt(x)

else f:=cos(sqr(x)); {преобразуем число f в строку и покажем результат в метке}

label3.caption:=floattostr(f);

end;

end.

3.4. Контрольные вопросы

1. Вычислить значения выражений:

a or b and not а при a=true и b=false;

t and (p mod 3=0) при t=true, p=1010; (x*y<>0) and (y>x) при x=2, y=l; (x*y<>0) or (y>x) при x=2, y=l;

not (a and b) при a=false, b=true.

х принадлежит отрезку [0,1];

х лежит вне отрезка [0,1];

х принадлежит отрезку [2,5] или [-1,1];

х лежит вне отрезка [2,5] или [-1,1].

3. Пояснить структуру и правила выполнения условных операто­ров.

4. Записать указанное действие в виде одного условного оператора:

f cos²x , при 0<х<2

y= 

1-sin²x, иначе.

5. Какое значение будет иметь переменная после выполнения операторов:

z:=0; х:=1; у:-1;

if х>0 then if у>0 then z:=l else z:=2;

6. Укажите ошибки в следующих операторах:

if 1<х<2 then х:=х+1; у:=о;

else х:=0; у:=у+1;

7. Как можно изобразить схему алгоритма для оператора выбора, в котором селектор может принимать 5 вариантов значений?

8. Найдите ошибки в части программы:

procedure example;

var

d: real; t: boolean;

begin

case d of

2,3,5,7: t:=true; d:=t+l; 0,1,4,6,8,9: t:=false;

end;