Информатика • 8 класс

Обработка символьных данных (Паскаль)

Входные данные	Выходные данные
var c, upperC, predC, succC, newChar: char; asciiCode: integer; Begin write ('Введите один символ: '); read (c);	Введите один символ: y
asciiCode := Ord (c); writeln ('1. ASCII-код символа "', c, '" = ', asciiCode); // 1. Получение ASCII-кода (Ord)	1. ASCII-код символа "y" = 121
newChar := Chr (asciiCode + 1); writeln ('2. Символ со следующим кодом (', asciiCode + 1, ') = "', newChar, '«'); // 2. По-лучение символа по коду +1 (Chr)	2. Символ со следующим кодом (122) = "z"
upperC := UpCase (c); writeln ('3. Верхний регистр: "', c, '" → "', upperC, '"'); // 3. Перевод в верхний регистр (UpCase)	3. Верхний регистр: "y" → "Y"
predC := Pred (c); writeln ('4. Предыдущий символ: "', c, '" → "', predC, '«'); // 4. Предыдущий символ (Pred)	4. Предыду-щий символ: "y" → "x"
succC := Succ (c); writeln ('5. Следующий символ: "', c, '" → "', succC, '"'); End. // 5. Следующий символ (Succ)	5. Следую-щий символ: "y" → "z"

Было полезно?