Программирование на языке паскаль

Пример 2.2.

Создать программу взаимных преобразований строковых и символьных типов. Она должна отображать слово World строками разного типа и добавлять к строке символ восклицательного знака ( ! ).

Листинг программы

program Prg_2_2;

uses

Classes, SysUtils, RusTrans;

var

Str_1:string;

Str_2:string[10];

ShortStr:ShortString;

AnsiStr:AnsiString;

WideStr:WideString;

MyChar:char;

begin

Str_1:=’World’;

writeln(Rus(‘Строки в разных типах’));

writeln;

Str_2:=Str_1;

ShortStr:=Str_1;

AnsiStr:=Str_1;

WideStr:=Str_1;

writeln(Rus(‘Значения и размер в байтах в разных типах’));

writeln;

writeln(‘AnsiStr =’,AnsiStr:7,SizeOf(AnsiStr):5,’  AnsiString’);

writeln(‘Str_1 =’,Str_1:9,SizeOf(Str_1):5,’  String’);

writeln(‘WideStr =’,WideStr:7,SizeOf(WideStr):5,’  WideString’);

writeln(‘ShortStr =’,ShortStr:6,SizeOf(ShortStr):5,’  ShortString’);

writeln(‘Str_2 =’,Str_2:9,SizeOf(Str_2):5,’  String[..]‘);

readln;

writeln(Rus(‘Добавим к строке символ !’));

writeln;

MyChar:=’!';

Str_2:=Str_2+MyChar;

writeln(‘Str_2 =’,Str_2:9,SizeOf(Str_2):5,’  String[..]‘);

readln;

end.

Консоль перед закрытием программы: