Лабораторные работы / zad2 / zad1

Program IndexExp;
uses crt;
var
ch: char;
fin: text;
str: string[6];


{Џа®жҐ¤га  зЁв Ґв вгЇ® зЁб«  Ї® Ї®ап¤Єг.
Ќ  ўл室Ґ Ўг¤Ґв з а, ®в«Ёз­л© ®в зЁб« }
procedure scanfigure;
begin
read(fin, ch);
write(ch);
if ch in ['0'..'9'] then
scanfigure
end;

{Ђ­ «Ё§ ®иЁЎ®Є}
procedure error(i: integer);
begin
writeln;
case i of
0: writeln('ЌҐв ЋиЁЎ®Є');
1: writeln('—Ёб«® ¤®«¦­® Ўлвм ®ваЁж вҐ«м­л¬');
2: writeln('ЌҐв §­ Є  а ў­®');
3: writeln('€¬п ­ зЁ­ Ґвбп б ЎгЄўл');
4: writeln('Cва®Є  ¤®«¦­  ­ зЁ­ вмбп б const ');
5: writeln('Џ®б«Ґ §­ Є  - ¤®«¦­л бв®пвм в®«мЄ® жЁдал ');
6: writeln('‚ Ё¬Ґ­Ё ¤®«¦­  Ўлвм в®«мЄ® 1 ЎгЄў ');
end;
end;

{Џа®жҐ¤га  Їа®ўҐаЄ  Є®­бвагЄжЁЁ.
Џ®б«Ґ read Ё¤св Їа®жҐ¤га  writeln зв®Ўл ўЁ§г «м­® Ї®­Ё¬ вм а Ў®вг Їа®Ја ¬¬л}
procedure simpExpr;
begin
read(fin, str);
write(str);
if str = 'const ' then {Џа®ўҐа塞 ­ «ЁзЁҐ const }
begin
read(fin, ch);
write(ch);
if ch in ['A'..'z'] then {—Ёв Ґ¬ Ё¬п. ЏҐаў п ЎгЄў  ўбҐЈ¤  жЁда }
begin
scanfigure; {—Ёв Ґ¬ жЁдал ў Ё¬Ґ­Ё}
if ch = '=' then
begin
read(fin, ch);
write(ch);
if ch = '-' then {—Ёб«® ®ваЁж вҐ«м­®Ґ}
begin
scanfigure; {—Ёв Ґ¬ ¬®¤г«м зЁб« }
if (ch = ' ') or (ch = #26) then {Ё ЁйҐ¬ Їа®ЎҐ« Ё«Ё Є®­Ґж ᥣ¬Ґ­в }
error(0)
else
error(5);
end
else {—Ёб«® ¤®«¦­® Ўлвм ®ваЁж вҐ«м­л¬}
error(1)
end
else
if ch in ['A'..'z'] then
error(6)
else{ЌҐв §­ Є  а ў­®}
error(2)
end
else {€¬п ­ зЁ­ Ґвбп б ЎгЄўл}
error(3)
end
else {Cва®Є  ¤®«¦­  ­ зЁ­ вмбп б const }
error(4)
end;

begin
{Џ®¤Ј®в®ўЄ  д ©« }
assign(fin, 'F:\TPascal\2semestr\zad3\exp.txt');
reset(fin);
{Ђ­ «Ё§ <®ЇЁб ­ЁҐ Є®­бв ­вл>}
simpExpr;
readln;
end.

{Ђ­ «Ё§ Є®­бвагЄжЁЁ
const <Ё¬п>=-<зЁб«®>;
<Ё¬п>=<ЎгЄў >|<Ё¬п><жЁда >;
<зЁб«®>=<жЁда >|<зЁб«®><жЁда >;

‚®-ЇҐаўл© ў Їа®Ја ¬¬Ґ ЇаҐ¤гᬮв७ в®«мЄ® 1 Їа®ЎҐ« - Ї®б«Ґ const.
‚®-ўв®але Є®­бвагЄжЁп ¤®«¦­  ®Є ­зЁў вмбп ­  Їа®ЎҐ« Ё«Ё Є®­Ґж ᥣ¬Ґ­в (бЁ¬ў®« 26).
ЋЎа й о ў­Ё¬ ­ЁҐ зв® ў Ё¬Ґ­Ё а®ў­® 1 ЎгЄў  Ё бЄ®«мЄ® гЈ®¤­® жЁда, Ё §­ зҐ­ЁҐ Є®­бв ­вл - ®ваЁж вҐ«м­®Ґ —€‘‹Ћ}