Предыдущая страница реферата | 1  2  3  4  5  6

Напишем простую программу, обрабатывающую символьные величины.

 VAR c : Char;  n : Byte;

 CONST Blank =' '; Space:Char =Blank;

 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.

Скачали данный реферат: Ruvim, Lebedinskij, Savkin, Дейнеко, Amelfa, Федин, Солдатов.
Последние просмотренные рефераты на тему: конспект 2 класс, психологические рефераты, контрольные работы по математике, культура шпори.



Предыдущая страница реферата | 1  2  3  4  5  6

Поделитесь этой записью или добавьте в закладки