Иллюстрированный самоучитель по Tirbo Pascal


Условный оператор - часть 2


if a > b then

if с < d then 

if с < 0 then

с := 0 else

a := b; {а равно 1}

if a > b then 

if с then 

if с then 

с := 0

else

else 

else

a := b; {а равно 2}

Рассмотрим программу (пример 2.4), которая вводит произвольное десятичное целое число в диапазоне 0...15, преобразует его к шестнадцатеричному и выводит на экран полученный результат.

Пример 2.4 

Program Hex;

{Программа вводит с клавиатуры целое число в диапазоне от 0 до 15, преобразует его к шестнадцатеричной системе счисления и выводит результат на экран}

var

n : Integer; {Вводимое число} 

ch : Char; {Результат} 

begin

Write ( ',n = ' ) ;

ReadLn(n); { Вводим число } 

{Проверяем число на принадлежность к диапазону 0...15}

if (n >= 0) and (n <= 15) then

begin {Да, принадлежит диапазону} 

if n < 10 then

ch := chr(ord('0') + n)

else

ch := chr(ord('A') + n- 10);

WriteLn('n = ',ch) 

end

else {He принадлежит диапазону}

WriteLn('Ошибка') 

end.

В шестнадцатеричной системе счисления используется 16 цифр в каждом разряде: цифры 0...9 обозначают первые 10 возможных значений разряда, буквы A...F - остальные шесть.

В программе учитывается непрерывность и упорядоченность множеств цифр 0...9, букв A...F и их кодов (см. гл.4).

 




- Начало -  - Назад -  - Вперед -



Книжный магазин