Лабораторные работы / zad3 / Mntomass
.rtfuses crt;
type Tmnchar= set of char; {Ж¿» с½´ ¼¡«ªСЯФуб, ¡ТªС¡ хб¬Ф¿юСЯ¬¿ с½´ »СУСсбю¿ ¼¡«ªСЯФуб у »бУб¼СФУ »У«µСсТУЩ}
var mn: Tmnchar; {æἫ ¼¡«ªÑßÔó«}
massbool: array[byte] of boolean; {ьТ½Су ¼бЯЯ¿у с½´ ¼¡«ªСЯФуб}
masschar: array[byte] of char; {обЯЯ¿у Я¿¼у«½«у с½´ ¼¡«ªСЯФуб}
massn: byte; {使¡á ¼áßß¿óá ß¿¼ó«½«ó}
{ЕУ«µСсТУб ю¿ФбСФ ¼¡«ªСЯФу« ¿º хб®½б.
éÕ.ñá¡¡ÙÑ - æÔÓ«¬á ß ¿¼Ñ¡Ñ¼ õᮽá. éÙÕ.ñá¡¡ÙÑ - î¡«ªÑßÔó«}
procedure Readmn(txt: string; var mn: Tmnchar);
var fin: text;
ch: char;
begin
assign(fin, 'F:\tpascal\2semestr\zad3\'+ txt); reset(fin);{ДФ¬УЩубС¼ хб®½ с½´ юФС¡¿´}
repeat
read(fin, ch); {Å«ß¿¼ó«½ý¡« þ¿ÔáѼ}
mn:=mn+[ch]; {ê ñ«íáó½´Ñ¼ ó ¼¡«ªÑßÔó«}
until eof(fin);
close(fin);
end;
{ЕУ«µСсТУб с½´ »СУСу«сб ¼¡«ªСЯФуб у нТ½Су ¼бЯЯ¿у.
éÕ.ñá¡¡ÙÑ - î¡«ªÑßÔó«. éÙÕ.ñá¡¡ÙÑ - íÒ½Ñó ¼áßß¿ó}
procedure mntobool(mn: Tmnchar; var massbool: array of boolean);
var i: byte;
begin
for i:= 0 to 255 do {ÅÓ«Õ«ñ¿¼ »« óßÑ® Ôáí½¿µÑ}
if chr(i) in mn then {аЯ½¿ Я¿¼у«½ »У¿¡бс½Сª¿Ф ¼¡«ªСЯФуТ}
massbool[i]:=true {Æ« ñ«íáó½´Ñ¼ Ñú« ó ¼áßß¿ó}
else
massbool[i]:=false;
end;
{ЕУ«µСсТУб »СУСу«с´ ¼¡«ªСЯФуб у ¼бЯЯ¿у Я¿¼у«½«у
éÕ.ñá¡¡ÙÑ - ¼¡«ªÑßÔó«. éÙÕ.ñá¡¡ÙÑ - ¼áßß¿ó ß¿¼á«½«ó ¿ Ñú« ñ½¿¡á}
procedure mntochar(mn: Tmnchar; var masschar: array of char; var massn: byte);
var i: byte;
begin
massn:=0; {'Д»ТЯФбЮбС¼ ¼бЯЯ¿у'}
for i:= 0 to 255 do {ÅÓ«Õ«ñ´ »« óßÑ® Ôáí½¿µÑ}
if chr(i) in mn then {ЕУ«уСУ´С¼ Э½-Ф ¡б »У¿¡бс½Сª¡«ЯФэ ¬ ¼¡«ªСЯФуТ}
begin
masschar[massn]:=chr(i); {ä«íáó½´Ñ¼ Ñú« ó ¼áßß¿ó}
massn:=massn+1;
end;
end;
{ЕУ«µСсТУб уЩу«сб нТ½Суб ¼бЯЯ¿уб.
éÕ.ñá¡¡ÙÑ - ßá¼ íÒ½Ñó ¼áßß¿ó}
procedure writemassbool(massbool: array of boolean);
var i: byte;
begin
for i:=0 to 255 do {ÅÓ«Õ«ñ´ »« Ôáí½¿µÑ}
if massbool[i] then write(chr(i), ' '); {àß½¿ ݽ-Ô »Ó¿¡áñ½Ñª¿Ô ¼áßß¿óÒ Ô« óÙó«ñ¿¼ Ñú«}
end;
{ЕУ«µСсТУб »СюбФ¿ Я¿¼у«½э¡«ъ« ¼бЯЯ¿уб
éÕ.ñá¡¡ÙÑ - ¼áßß¿ó ¿ Ñú« ñ½¿¡á}
procedure writemasschar(var masschar: array of char; massn:byte);
var i: integer;
begin
for i:=0 to massn do write(masschar[i], ' ');{ЕСюбФбС¼ »«сУ´с уСЯэ ¼бЯЯ¿у}
end;
{ЕУ«µСсТУб »СюбФ¿ ¼¡«ªСЯФуб.
éÕ.ñá¡¡ÙÑ - ¼¡«ªÑßÔó«}
procedure writemn(mn: Tmnchar);
var i: integer;
begin
for i:=0 to 255 do
if chr(i) in mn then write(chr(i), ' ');
end;
begin
Write('î¡«ªÑßÔó« ');readmn('mn.txt', mn); writemn(mn); writeln;
Write('üÒ½Ñó ¼áßß¿ó '); mntobool(mn, massbool); writemassbool(massbool); writeln;
Write('îáßß¿ó ß¿¼ó«½«ó ');mntochar(mn, masschar,massn); writemasschar(masschar, massn); writeln;
readln;
end.
{й »У«ъУб¼¼С ´ уº´½ ¼¡«ªСЯФу« уЯСХ Я¿¼у«½«у ¿º Зжикк.
й хб®½С Я¿¼у«½Щ УбºсС½´¯ФЯ´ »У«нС½«¼, ¿ »СУуЩ® »У«нС½ Ф«ªС уХ«с¿Ф у ¼¡«ªСЯФу« ¬б¬ Э½С¼С¡Ф Зжикк.
ЕУ«ъУб¼¼б »СУСу«с¿Ф ¼¡«ªСЯФу« у нТ½Су ¼бЯЯ¿у, Ф« СЯФэ «Ф¼СюбСФ (TRUE) у ¼бЯЯ¿уС »«º¿µ¿¯, ¡б ¬«Ф«У«® ЯФ«¿Ф Я¿¼«½ у »«У´с¬С char
Жб¬ ªС »У«ъУб¼¼б »СУСу«с¿Ф ¼¡«ªСЯФу« у ¼бЯЯ¿у ½¿ФСУ«у. Е«Я½Сс«убФС½э¡« с«нбу½´СФ ¬бªсЩ® Э½-Ф ¼¡«ªСЯФуб у ¼бЯЯ¿у.}