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

         

Алгоритм реализуемый инструкцией ifthenelse



Рисунок 2.2. Алгоритм, реализуемый инструкцией if-then-else


Например, если переменная t обозначает тип соединения сопротивлений в электрической цепи (t=1 соответствует последовательному соединению, t=2 — параллельному), a r1 и r2 — величины сопротивлений, то приведенная ниже инструкция if осуществляет выбор формулы, по которой будет выполнен расчет.

if t=l then

begin

z:=r1+r2;

end

else

begin

z:=(r1+r2)/(r1*r2);

end;



Если в инструкции if между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Например, инструкцию

if otv=3

then

begin

prav:=prav+1 ;

end

else

begin

ShowMessage('Ошибка!');

end;

можно переписать так:

if otv=3 then

prav:=prav+l

else

ShowMessage('Ошибка!') ;

Если какое-либо действие должно быть выполнено только при выполнении определенного условия и пропущено, если это условие не выполняется, то инструкция if может быть записана так:

if условие then

begin

{ инструкции, которые надо выполнить, если условие выполняется, истинно } end

На Рисунок 2.3 представлен алгоритм, соответствующий инструкции if-then.



Содержание раздела