Реферат Розробка лабораторного практикуму з курсу "Розробка трансляторів для мов програмування"

"justify"> readln (s);

col: = 1; fillchar (ws, sizeof (ws), 0);

DRIVE: = # 0;

writeln (s); i: = 1; q: = 1;

while (i <= byte (s [0])) and ee do

begin

oq: = q;

if s [i] in num then ns: = 1 else {Визначення}

if s [i] in sym then ns: = 2 else {номери}

if s [i] = ':' then ns: = 3 else {символу}

if s [i] = '' then ns: = 4 else ns: = 0; {}

case ps [q, ns] of

1: Drive: = s [i];

2: inc (col);

3: ws [col]: = ws [col] + s [i];

end;

q: = ms [q, ns];

if ns = 0 then

begin

ee: = false;

writeln (1);

end else

if q = 0 then

begin

ee: = false;

writeln (2);

end;

inc (i);

end;

if ee then

if q = 5 then

begin

writeln ('0 ');

write ('D =', drive);

for i: = 1 to col do write ('S (', i, ') =', ws [i]);

writeln;

end else writeln ('3 ');

close (input);

close (output);.

Варіант № 10ms: array [1 .. 8,1 .. 5] of byte = (

(* Ц., {} *)

{S} (0,0,0,2,0),

{T} (3,0,0,0,0),

{Q} (3,4,0,0,0),

{C} (0,5,0,0,0),

{A} (6,0,0,0,0),

{D} (6,0,7,0,8),

{B} (3,0,0,0,0),

{Z} (0,0,0,0,0)); ps: array [1 .. 8,1 .. 5] of byte = (

(* Ц., {} *)

{S} (0,0,0,0,0),

{T} (1,0,0,0,0),

{Q} (1,0,0,0,0),

{C} (0,2,0,0,0),

{A} (1,0,0,0,0),

{D} (1,0,3,0,0),

{B} (1,0,0,0,0),

{Z} (0,0,0,0,0));

num: set of char = ['0 '.. '9'];

ee: boolean = true; s: string;

i, q, oq, ns: byte;

col: byte;

m: array [1 .. 100] of longint;

n: byte;

assign (input, 'input.txt');

Назад | сторінка 22 з 40 | Наступна сторінка