КП-02: ветвления и циклы.

Это второй блок занятий по Компонентному Паскалю. Здесь мы научимся ветвлениям и циклам

Простое ветвление

MODULE Study;
IMPORT Out;
VAR
x:INTEGER;
BEGIN
  x := 5;
  IF x = 5 THEN
    Out.String("Отлично!");Out.Ln;
  END;
END Study.

Ветвление с альтернативным вариантом

MODULE Study;
IMPORT Out;
VAR
school_grade:INTEGER;
BEGIN
  school_grade := 5;
  IF school_grade = 5 THEN
    Out.String("Отлично!");Out.Ln;
  ELSE
    Out.String("Жаль, что не пятерка.");Out.Ln;
  END;
END Study.

Ветвление с дополнительными вариантами

MODULE Study;
IMPORT Out;
VAR
school_grade:INTEGER;
BEGIN
  school_grade := 5;
  IF school_grade = 5 THEN
    Out.String("пять!");Out.Ln;
  ELSIF school_grade = 4 THEN
    Out.String("четыре.");Out.Ln;
  ELSIF school_grade = 3 THEN
    Out.String("три.");Out.Ln;
  ELSIF school_grade = 2 THEN
    Out.String("два.");Out.Ln;
  ELSIF school_grade = 1 THEN
    Out.String("кол!");Out.Ln;
  ELSE
    Out.String("Это не отметка.");Out.Ln;
  END;
END Study.

цикл While.
Кстати, если цикл завис — жмите Ctrl+Break или Ctrl+Fn+B

MODULE Study;
IMPORT Out;
VAR
count:INTEGER;
BEGIN
  count := 0;
  WHILE count < 5 DO
    Out.String("Старт! ");
    Out.Int(count,1);Out.Ln;
    count := count + 1;
  END;
END Study.

то же с обратным отсчетом

MODULE Study;
IMPORT Out;
VAR
count:INTEGER;
BEGIN
  count := 3;
  WHILE count > 0 DO
    Out.String("Старт! ");
    Out.Int(count,1);Out.Ln;
    count := count - 1;
  END;
END Study.

Цикл For

MODULE Study;
IMPORT Out;
VAR
count:INTEGER;
BEGIN
  FOR count := 0 TO 3 DO
    Out.String("Старт! ");
    Out.Int(count,1);Out.Ln;
  END
END Study.

то же с обратным отсчетом

MODULE Study;
IMPORT Out;
VAR
count:INTEGER;
BEGIN
  FOR count := 3 TO 1 BY -1  DO
    Out.String("Старт! ");
    Out.Int(count,1);Out.Ln;
  END
END Study.

Прокрутить вверх