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

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

Else Y: = 'Такой оценки нет';
end;
WriteLn;
WriteLn ('X соответствует –', Y);
ReadLn;
End.
Пояснения к задаче 1
В переменную Х по запросу программы вводим оценку. Эта же перемен-
ная Х используется в операторе множественного выбора в качестве переклю-
чателя, который объявлен в разделе описаний как целочисленная переменная
Integer. Имеющиеся пять альтернатив выбора – это константы выбора, содер-
жащие наименование оценок.
Необязательная часть с Else исполнится в том случае, если введенное
значение переменной Х не совпадет ни с одним из пяти предложенных вари-
антов.
Переменной Y, объявленной как строковая размерность 17, присваивает-
ся словесное наименование оценки в соответствии со значением переключа-
теля X.
В случае несовпадения ни с одним из значений константы выбора будет
сообщение: «Такой оценки нет».
Задача 2
Определить, какая клавиша нажата на клавиатуре – цифра или буква.
Program Lab4_2;
Uses Crt;
Var Symbol: Char;
Begin
WriteLn ('Введите любую буквенную или цифровую клавишу');
Symbol: = ReadKey;
Write('Нажатая клавиша –');
Case Symbol of
'0'..'9': WriteLn ('Это цифра');
'a'..'z': writeLn ('Это строчная латинская
буква');
'A'..'Z': WriteLn ('Это прописная латинская буква');
'A'..'Я': WriteLn ('Это прописная русская буква');
'а'..'я': WriteLn ('Это строчная русская буква')
Else WriteLn ('Это другой символ');
End;
End.
Пояснения к задаче 2
Переключатель
Symbol объявлен в разделе описаний как символьная пе-
ременная Char. В нее считывается символ нажатой клавиши посредством спе-
циализированной функции
ReadKey модуля CRT.
53
                        Else Y: = 'Такой оценки нет';
                  end;
            WriteLn;
            WriteLn ('X соответствует –', Y);
            ReadLn;
            End.

     Пояснения к задаче 1
     В переменную Х по запросу программы вводим оценку. Эта же перемен-
ная Х используется в операторе множественного выбора в качестве переклю-
чателя, который объявлен в разделе описаний как целочисленная переменная
Integer. Имеющиеся пять альтернатив выбора – это константы выбора, содер-
жащие наименование оценок.
     Необязательная часть с Else исполнится в том случае, если введенное
значение переменной Х не совпадет ни с одним из пяти предложенных вари-
антов.
     Переменной Y, объявленной как строковая размерность 17, присваивает-
ся словесное наименование оценки в соответствии со значением переключа-
теля X.
     В случае несовпадения ни с одним из значений константы выбора будет
сообщение: «Такой оценки нет».

    Задача 2
    Определить, какая клавиша нажата на клавиатуре – цифра или буква.
    Program Lab4_2;
    Uses Crt;
            Var Symbol: Char;
    Begin
                WriteLn ('Введите любую буквенную или цифровую клавишу');
                Symbol: = ReadKey;
                Write('Нажатая клавиша –');
                Case Symbol of
                        '0'..'9': WriteLn ('Это цифра');
                        'a'..'z': writeLn ('Это строчная латинская буква');
                        'A'..'Z': WriteLn ('Это прописная латинская буква');
                        'A'..'Я': WriteLn ('Это прописная русская буква');
                        'а'..'я': WriteLn ('Это строчная русская буква')
                Else WriteLn ('Это другой символ');
                End;
    End.

    Пояснения к задаче 2
    Переключатель Symbol объявлен в разделе описаний как символьная пе-
ременная Char. В нее считывается символ нажатой клавиши посредством спе-
циализированной функции ReadKey модуля CRT.
                                     53

Страницы