|
|
|
|
|
|
|
|
|
|
|
|
|
C1: BEGIN
CASE zeichen OF
'M': BEGIN
s := s + 900;
zustand := CM;
END;
'D': BEGIN
s := s + 400;
zustand := CD;
END;
'C': BEGIN
s := s + 200;
zustand := C2;
END;
'L': BEGIN
s := s + 150;
zustand := L1;
END;
'X': BEGIN
s := s + 100;
zustand := X1;
END;
'V': BEGIN
s := s + 105;
zustand := V1;
END;
'I': BEGIN
s := s + 100;
zustand := I1;
END;
'=': BEGIN
s := s + 100;
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
C2: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
s := s + 100;
zustand := C3;
END;
'L': BEGIN
s := s + 50;
zustand := L1;
END;
'X': BEGIN
zustand := X1;
END;
'V': BEGIN
s := s + 5;
zustand := V1;
END;
'I': BEGIN
zustand := I1;
END;
'=': BEGIN
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
C3: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
s := s + 50;
zustand := L1;
END;
'X': BEGIN
zustand := X1;
END;
'V': BEGIN
s := s + 5;
zustand := V1;
END;
'I': BEGIN
zustand := I1;
END;
'=': BEGIN
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
L1: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
zustand := FEHL;
END;
'X': BEGIN
zustand := X1;
END;
'V': BEGIN
s := s + 5;
zustand := V1;
END;
'I': BEGIN
zustand := I1;
END;
'=': BEGIN
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
X1: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
s := s + 90;
zustand := XC;
END;
'L': BEGIN
s := s + 40;
zustand := XL;
END;
'X': BEGIN
zustand := X2;
s := s + 20;
END;
'V': BEGIN
s := s + 15;
zustand := V1;
END;
'I': BEGIN
s := s + 10;
zustand := I1;
END;
'=': BEGIN
s := s + 10;
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
X2: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
zustand := FEHL;
END;
'X': BEGIN
s := s + 10;
zustand := X3;
END;
'V': BEGIN
s := s + 5;
zustand := V1;
END;
'I': BEGIN
zustand := I1;
END;
'=': BEGIN
zustand := ENDE;;
END;
END;
Schreibezust(zustand);
END;
Naechste Seite
|
|
|
|
|
|
|
|
|
Letzte Änderung: 07.02.2007
© Pädagogisches Institut für die deutsche Sprachgruppe
- Bozen. 2000 -
|
|
|
|
 |
|
|
|
|
