Как составить программу в паскале с условием

An if-then statement can be followed by an optional else statement, which executes when the Boolean expression is false.

Syntax

Syntax for the if-then-else statement is −

if condition then S1 else S2;

Where, S1 and S2 are different statements. Please note that the statement S1 is not followed by a semicolon. In the if-then-else statements, when the test condition is true, the statement S1 is executed and S2 is skipped; when the test condition is false, then S1 is bypassed and statement S2 is executed.

For example,

if color = red then
   writeln('You have chosen a red car')

else
   writeln('Please choose a color for your car');

If the boolean expression condition evaluates to true, then the if-then block of code will be executed, otherwise the else block of code will be executed.

Pascal assumes any non-zero and non-nil values as true, and if it is either zero or nil, then it is assumed as false value.

Flow Diagram

Example

Let us try a complete example that would illustrate the concept −

program ifelseChecking;
var
   { local variable definition }
   a : integer;

begin
   a := 100;
   (* check the boolean condition *)
   if( a < 20 ) then
      (* if condition is true then print the following *)
      writeln('a is less than 20' )
   
   else
      (* if condition is false then print the following *) 
      writeln('a is not less than 20' );
      writeln('value of a is : ', a);
end.

When the above code is compiled and executed, it produces the following result −

a is not less than 20
value of a is : 100

The if-then-else if-then-else Statement

An if-then statement can be followed by an optional else if-then-else statement, which is very useful to test various conditions using single if-then-else if statement.

When using if-then , else if-then , else statements there are few points to keep in mind.

• An if-then statement can have zero or one else’s and it must come after any else if’s.

• An if-then statement can have zero to many else if’s and they must come before the else.

• Once an else if succeeds, none of the remaining else if’s or else’s will be tested.

• No semicolon (;) is given before the last else keyword, but all statements can be compound statements.

Syntax

The syntax of an if-then-else if-then-else statement in Pascal programming language is −

if(boolean_expression 1)then 
   S1 (* Executes when the boolean expression 1 is true *)

else if( boolean_expression 2) then 
   S2 (* Executes when the boolean expression 2 is true *)

else if( boolean_expression 3) then 
   S3 (* Executes when the boolean expression 3 is true *)

else 
   S4; ( * executes when the none of the above condition is true *)

Example

The following example illustrates the concept −

program ifelse_ifelseChecking;
var
   { local variable definition }
   a : integer;

begin
   a := 100;
   (* check the boolean condition *)
   if (a = 10)  then
      (* if condition is true then print the following *)
      writeln('Value of a is 10' )
   
   else if ( a = 20 ) then
      (* if else if condition is true *)
      writeln('Value of a is 20' )
   
   else if( a = 30 ) then 
      (* if else if condition is true  *)
      writeln('Value of a is 30' )
   
   else
      (* if none of the conditions is true *)
      writeln('None of the values is matching' );
      writeln('Exact value of a is: ', a );
end.

When the above code is compiled and executed, it produces the following result −

None of the values is matching
Exact value of a is: 100

pascal_decision_making.htm

Урок из серии: «Язык программирования Паскаль»

Один из важнейших операторов Паскаля – условный оператор. Он позволяет изменять порядок выполнения операторов в зависимости от некоторого условия, представляющего собой логическое выражение типа Boolean. Если значение равно True, то выполняется одна группа операторов, если False, то другая группа операторов или не выполняется ничего.

В языке Паскаль имеются два условных оператора: if (оператор ветвления) и case (оператор выбора). Оператор if обеспечивает  выбор из двух альтернатив, оператор выбора case позволяет сделать выбор из произвольного числа имеющихся вариантов.

На этом уроке рассмотрим оператор If.

Условный оператор If (оператор ветвления)

Полная формы условного оператора называется If-then-else, имеет вид:

If условие 
Then [оператор1]
Else [оператор2];

Если в качестве оператора должна выполняться серия операторов, то они объединяются в операторные скобки Begin-End.

If  then
   Begin
   [операторы1]
   End
Else
   begin
   [операторы2]
   End;

Слова if (если) и Then (то) – зарезервированные.

Замечание. Перед ключевым словом else (иначе) точка с запятой не ставится, она ставиться после всего оператора If.

Условие представляют собой логические выражение. Простые условия  записываются в виде равенств или неравенств. В сложных условиях несколько простых условий объединяются с помощью логических операций or, and. В этом случае простые условия заключаются в круглые скобки.

На рисунке показана блок-схема полной формы оператора.

Алгоритм выполнения полного условного оператора:

1. Проверяется значение логического выражения, записанного в условии после слова If
2. Если условие истинно (значение выражения условие равно True), то выполняется оператор 1, указанный после слова Then
3. Если условие ложно, то выполняется оператор 2, записанный после слова  Else.

Неполная форма условного оператора называется if-then, имеет вид:

If условие 
Then [оператор];

Если в качестве оператора должна выполняться серия операторов, то они объединяются в операторные скобки Begin-End.

If условие Then 
Begin
[операторы]
End;

В неполном ветвлении ветвь Else отсутствует.
На рисунке показана блок схема оператора if-then.

Алгоритм выполнения неполного условного оператора

1. Проверяется значение логического выражения, записанного в условии после слова If
2. Если условие истинно (значение выражения условие равно True), то выполняется операторы, указанный после слова Then
3. Если условие ложно, то ничего делать не надо. Происходит переход к следующему оператору.

Операторы ветвления могут быть вложенными, т.е. один оператор if можно расположить внутри другого. В этом случае он позволяет производить выбор более чем из двух вариантов. При написании исходного кода с вложенными операторами для удобочитаемости  кода вложенные операторы выделяются отступами.

If  then begin
   [операторы 1;]
end
Else if eckjdbt 2 then begin
   [операторы2;]
End
   .
   .
   .
else if условиеN
   [операторыN;]
end
else begin
   ;
 end;

Применение условного оператора if рассмотрим на примерах.

Пример 1. С клавиатуры ввести два различных числа. Найти большее из них и вывести его на экран.

Решение

В этом примере нужно произвести выбор одного из двух вариантов, для этого используется оператор if—then—else.

program primer6_1;
   var a, b, m:integer;
begin
   writeln('Введите два числа: ');
   readln(a, b);
   if a>b then m:=a
          else m:=b;
   writeln('Большее из них: ', m);
end.

Пример 2. Даны три отрезка. Можно ли из них построить треугольник?

Решение. Для любого треугольника сумма его двух сторон  должна быть больше третьей стороны (неравенство треугольника). Если a, b, c – стороны предполагаемого треугольника, то нужно сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольник из таких отрезков не построить.

Для решения этой задачи используется оператор if—then—else со сложным условием.

program primer6_2;
var a, b, c: integer;

begin
    write (' Введите длины отрезков: ');
    readln (a,b,c);

    if (a < b+c) and (b < a+c) and (c < a+b) then
        writeln ('Можно построить треугольник.')
    else
        writeln ('Нельзя построить треугольник.');

end.

Задачи для самостоятельного выполнения

1. Найти наибольшее из трех данных чисел.
2. Запишите условный оператор, в котором значение переменной вычисляется по формуле: a + b, если a — нечетное и a*b, если a — четное.
3. Вывести на экран номер четверти, которой принадлежит точка с координатами (x, y), при условии, что x и y отличны от 0.
4. После выполнения операторов
   a := 0;
   If a<>0 Then; a := 2
   значение переменной равно двум. Объясните почему.
5. Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в противном случае — сообщение »M на N нацело не делится».

На этом уроке рассказывалось об условном операторе if и его применении при решении задач. Простой оператор ветвления используется для для выбора одного из двух возможных продолжений алгоритма, для выбора более чем из двух продолжений можно использовать вложенный оператор ветвления.

Проверь себя!

Следующий урок: Оператор выбора Case