Оператор условного перехода

МИНИСТЕРСТВО  ОБРАЗОВАНИЯ И НАУКИ РФ

Государственное образовательное учреждение

Высшего профессионального  образования

Тульский  государственный университет

                                                  
 
 

Информатика

Лабораторная  работа № 3

Оператор  условного перехода 
 
 
 
 
 

  
 

    Выполнил                                                   

                                                                                                    

    Проверил                                                      
 
 

                                                         Г.Тула  2011

Задания

Используя оператор условного перехода, напишите программу,

которая:

3) выводит на  экран приглашение: «Который час?»,  вводит с клавиатуры число  X, имеющее смысл времени суток,  и печатает слова «Доброе утро»,  «Добрый вечер», «Добрый день»  в зависимости от введенного  времени. Программа должна реагировать  на ввод неправильного времени:  меньше 0 или больше 24. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

PROGRAM Time;

VAR a: real;

BEGIN

    WRITELN (‘Который час?’);

    READLN (a);

    IF a<24, a>0 THEN

        BEGIN

        IF a≥5, a<12  THEN

            BEGIN

            WRITELN (‘Доброе утро’);

        END  
        ELSE

       BEGIN

       IF a≥12, a<18 THEN

         BEGIN

         WRITELN (‘Добрый день’);

         END

       ELSE

         BEGIN

         IF a≥18,a<23 THEN

           BEGIN

           WRITELN (‘Добрый вечер’);

           END

         ELSE

           BEGIN

           WRITELN (‘Доброй ночи’);

           END

         END

       END

    END

  ELSE

    BEGIN

    WRITELN (‘Неверное время’);

    END

END