Строки и символы. Тексты программ
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Определение кода по символу и символа по коду
var
c: char;
code: integer;
begin
c := 'z';
code := Ord(c);
writeln('Код символа ',c,' равен ',code);
code := 35;
c := Chr(code);
writeln('Символ с кодом ',code,' - это ',c);
end.
Преобразование цифрового символа в соответствующее однозначное число и обратно
var
c: char;
digit: integer;
begin
c := '5';
digit := Ord(c) - Ord('0');
writeln('Цифра, соответствующая символу ''',c,''' - это ',digit);
digit := 7;
c := Chr(digit + Ord('0'));
writeln('Символ цифры ',digit,' - это ''',c,'''');
end.
Преобразование числа в строку и обратно
var
s: string;
num: integer;
begin
s := '356';
num := StrToInt(s);
writeln('Число, соответствующее строке ''',s,''' - это ',num);
num := 563;
s := IntToStr(num);
writeln('Строка, соответствующая числу ',num,' - это ''',s,'''');
end.
Формирование строки из n одинаковых символов
var
c: char;
s: string;
n: integer;
begin
n := 10;
c := 'z';
s := '';
for var i:=1 to n do
s += c;
writeln(s);
end.