Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Листинг 2.3

Читайте также:
  1. Листинг 1. Программа создания таблицы умножения.
  2. Листинг 3.4
  3. Листинг 4.1
  4. Листинг 5. Использование цикла while и инструкции break.
  5. Листинг 5.2
  6. Листинг 5.6

… …

implementation

{$R *.dfm}

//----------------------------------------------------------

// Ниже находятся коды, которые необходимо

// написать самостоятельно

procedure TForm1.Button1Click(Sender: TObject);

var

x,a,c,f:Real;

begin

a:=StrToFloat(Edit1.Text);

c:=StrToFloat(Edit2.Text);

x:=StrToFloat(Edit1.Text);

f:=Sqrt(Abs(-a*x+c))/Ln(x+Sqr(c));

Label5.Caption:=FloatToStr(f);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Label5.Caption:='';

end;

Пример 2.4. (Задание 2.11) Найти площадь (s) кольца, внутренний радиус которого (radius) равен 20, а внешний – заданному числу .

Приложение во время выполнения

Листинг 2.4

… …

const

radius=20;

var

s,r:real;

begin

r:=...

s:=pi*(Sqr(r)-Sqr(radius));

// s:=pi*(r-radius)*(r+radius);

...

End;


Условный оператор

С помощью условного оператора выбирается и выполняется один из операторов, входящих в его состав. Условный оператор имеет два варианта записи.

Полная форма (ветвление):

If <логическое выражение> Then

Btgib

<оператор1>;

End

Else <оператор2>;

В этом случае в зависимости от значения логического выражения выбирается для выполнения оператор1 или оператор2.

 
 

 

 


Блок-схема алгоритма if … then … else

Перед словом else знак «;» не ставится.

Неполная форма (обход):

 
 

 

 


Блок-схема алгоритма if … then

If <логическое выражение> Then

Begin

<оператор>;

End;

В этом случае в зависимости от значения логического выражения выполняется записанный после Then оператор или не производится никаких действий.

Если после Then или Else необходимо выполнить действия, описанные несколькими операторами, то эти операторы должны быть заключены в операторные скобки Begin - End. Такая конструкция называется составным оператором.


Пример 3.1. Даны три стороны треугольника: a, b, c. Вычислить его площадь.

Приложение во время выполнения


Дата добавления: 2015-07-10; просмотров: 138 | Нарушение авторских прав


Читайте в этой же книге: Пример 1. | Типы данных. Стандартные функции и процедуры | Вещественные типы | Стандартные процедуры и функции, применимые к вещественным типам | Правила использования операций с операндами различного типа | Множественный выбор | Листинг 4.1 | Инструкция For | Листинг 5.2 | Считать верхней границей относительной погрешности, то |
<== предыдущая страница | следующая страница ==>
Пример 2.2. (Задание 2.2)| Листинг 3.4

mybiblioteka.su - 2015-2024 год. (0.007 сек.)