Читать статья по информатике, вычислительной технике, телекоммуникациям: "Арифметические операции. Стандартные математические функции" Страница 4


назад (Назад)скачать (Cкачать работу)

Функция "чтения" служит для ознакомления с работой. Разметка, таблицы и картинки документа могут отображаться неверно или не в полном объёме!

BEGIN WRITE('введите какой-нибудь символ '); READ(c);

WRITELN('вы ввели символ',Space,c,Space,'его номер=',Ord(c));

WRITELN('соседние с ним символы :',Space,Pred(c),Space,

'и',Space,Succ(c));

WRITELN('UpCase(',c,')=',UpCase(c)); WRITELN;

Space:='"'; WRITE('теперь введите число от 33 до 255 '); READ(n);

WRITELN('символ с номером ',n,' - это ',Space,Chr(n),Space);

WRITELN;

END.



Интересная статья: Быстрое написание курсовой работы