Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 41 стр.

UptoLike

If x > 0 Then y: = x;
If x = 0 Then y: = 0;
If x < 0 Then y: = –sqr(x);
WriteLn ('значение x =', х);
WriteLn('значение f(x) =', y);
ReadLn;
End.
2.3. Cоставной оператор
Если после Then или Else необходимо выполнить действия, описанные
несколькими операторами, то эти операторы должны быть заключены в опе-
раторные скобки
begin – end. Такая конструкция называется составным опе-
ратором.
1) IF < условие > THEN
begin
< оператор 1 >;
< оператор 2 >;
………………
< оператор n >;
end
ELSE
< оператор >;
2) IF < условие > THEN < оператор >
ELSE
begin
< оператор 1 >;
< оператор 2 >;
………………
< оператор n >;
end;
3) IF < условие > THEN
begin
< оператор 1 >;
< оператор 2 >;
………….
< оператор n >;
end
ELSE
begin
< оператор 1 >;
< оператор 2 >;
………….
< оператор n >;
end;
41
           If x > 0 Then y: = x;
           If x = 0 Then y: = 0;
           If x < 0 Then y: = –sqr(x);
           WriteLn ('значение x =', х);
           WriteLn('значение f(x) =', y);
           ReadLn;
    End.

    2.3. Cоставной оператор
    Если после Then или Else необходимо выполнить действия, описанные
несколькими операторами, то эти операторы должны быть заключены в опе-
раторные скобки begin – end. Такая конструкция называется составным опе-
ратором.
    1) IF < условие > THEN
              begin
              < оператор 1 >;
              < оператор 2 >;
              ………………
              < оператор n >;
              end
                   ELSE
                   < оператор >;
    2) IF < условие > THEN < оператор >
             ELSE
                  begin
                  < оператор 1 >;
                  < оператор 2 >;
                  ………………
                  < оператор n >;
                  end;
    3) IF < условие > THEN
             begin
             < оператор 1 >;
             < оператор 2 >;
             ………….
             < оператор n >;
             end
                  ELSE
                  begin
                  < оператор 1 >;
                  < оператор 2 >;
                  ………….
                  < оператор n >;
                  end;

                                       41