Программа не прерывается после выполнения оператора If

[fs444]

Есть код, который определяет, есть пользователю 16 лет или еще нету.

Код: Выделить всё

Program n17_izvestna_tekushaja_data;
Var year,month,day,user_year_birthday,user_month_birthday,user_day_birthday:Integer;
Begin
  year:=2008;
  month:=10;
  day:=2;
  Writeln('Введите год своего рождения');
  Readln(user_year_birthday);
  If (year-user_year_birthday<16)
  Then Writeln('Вам меньше 16 лет')
   Else If (year-user_year_birthday>16) Then Writeln('Вам больше 16 лет')
    Else If (year-user_year_birthday=16) Then
    Writeln('Введите цифру месяца своего рождения (январь - 1)');
    Readln(user_month_birthday);
    If (month<user_month_birthday) Then Writeln('Вам меньше 16 лет')
     Else If (month>user_month_birthday) Then Writeln('Вам больше 16 лет')
      Else If (month=user_month_birthday) Then
      Writeln('Введите число дня своего рождения');
      Readln(user_day_birthday);
       If (day<user_day_birthday) Then Writeln('Вам меньше 16 лет')
        Else If (day>=user_day_birthday) Then Writeln('Вам больше 16 лет');
  Readln;
End.


В коде программы задается текущий год, номер месяца и число. Пользователь вводит год, номер месяца и число своего рождения с клавиатуры.

Мне не нравится, что программа запрашивает год рождения до тех пор, пока не закончится переменная year. Я хочу чтобы она один раз проверила, действительно ли year-user_year_birthday=16, year-user_year_birthday<16 или year-user_year_birthday>16, и после этого закончила свою работу, то есть вышла из черного экрана, и снова был показан код программы, или пошла дальше выполнять оператор If.

Можно было бы поставить после Writeln('Вам больше 16 лет') оператор Readln, но тогда надо ставить две точки с запятой, что оператор If сделать не позволяет. Как быть?

[Brainenjii]

0.o Не осилил, но на секунду показалось, что тут попахивает незнанием begin end'ов ^_^

[Logo]

Код: Выделить всё

Program n17_izvestna_tekushaja_data;
Var year,month,day,user_year_birthday,user_month_birthday,user_day_birthday:Integer;
Begin
  year := 2008;
  month := 10;
  day := 2;
  Writeln('Введите год своего рождения');
  Readln(user_year_birthday);
  If (year - user_year_birthday < 16) Then Writeln('Вам меньше 16 лет')
   Else If (year - user_year_birthday > 16) Then Writeln('Вам больше 16 лет')
    Else If (year - user_year_birthday = 16) Then
      BEGIN
        Writeln('Введите цифру месяца своего рождения (январь - 1)');
        Readln(user_month_birthday);
        If (month < user_month_birthday) Then Writeln('Вам меньше 16 лет')
         Else If (month > user_month_birthday) Then Writeln('Вам больше 16 лет')
          Else If (month = user_month_birthday) Then
        BEGIN
          Writeln('Введите число дня своего рождения');
          Readln(user_day_birthday);
           If (day < user_day_birthday) Then Writeln('Вам меньше 16 лет')
            Else If (day >= user_day_birthday) Then Writeln('Вам больше 16 лет');
        END;
      END;
  Readln;
End.   


[SII]

Есть код, который определяет, есть пользователю 16 лет или еще нету

Интересно, а программисту, написавшему код, есть 16 лет или ещё нет?

[fs444]

Я даже не знал, что в операторе if можно использовать begin/end. Я еще удивился, что в других языках, например, в php, границы кода для then и else (хотя then там нету, это я уж так ) обозначаются фигурными скобочками, а в паскале никак не обозначаются. Я по книжке паскаль учу, там написано, что оператор if имеет форму

Код: Выделить всё

If <оператор 1> Then <оператор 2>

или

Код: Выделить всё

If <оператор 1> Then <оператор 2> Else <оператор 3>

Поэтому и не знал, что тут можно еще и begin/else ставить.

SII
Да, мне 20 ))

[Padre_Mortius]

Стоит внимательно прочитать про операторы. Они бывают простые и составные.

[SII]

Я по книжке паскаль учу, там написано, что оператор if имеет форму

begin операторы end -- это составной оператор. Компилятор рассматривает его как единое целое. Поэтому-то в if, while и других указывается оператор, а не операторы.

[fs444]

Понятно