Mam problem z programem w Pascalu. Niby powinno być dobrze ale wyskakuje mi błąd przy “begin”. Zamieszcze tutaj źródło i prosił bym żebyście lookneli u siebie na kompilatorach co jest źle.
program liczebniki;
type
liczba=object
L:integer;
function czytaj:integer;
end;
cyfry=object(liczba)
s,d,j:byte;
procedure rozklad;
function setki: string;
function dziesiatki: string;
function jednosci: string;
end;
liczebnik=object(cyfry)
z:string;
procedure pisz;
end;
function liczba.czytaj;
begin
write('Podaj liczbe (0=
readln (l);
czytaj:=l;
end;
prcedure cyfry.rozklad;
begin
L:=liczba.czytaj;
s:=L div 100;
d:=(L-s*100)div 10;
j:=L-s*100-d*10;
end;
function cyfry.setki;
begin
case s of
0:setki:='';
1:setki:='sto';
2:setki:='dwiescie';
3:setki:='trzysta';
4:setki:='czterysta';
5:setki:='piecset';
6:setki:='szescset';
7:setki:='siedemset';
8:setki:='osiemset';
9:setki:='dziewiecset';
end;
end;
function cyfry.dziesiatki;
begin
case d of
0:dziesiatki:='dzisiec';
1:dziesiatki:='jedenascie';
2:dziesiatki:='dwanascie';
3:dziesiatki:='trzynascie';
4:dziesiatki:='czternascie';
5:dziesiatki:='pietnascie';
6:dziesiatki:='szesnascie';
7:dziesiatki:='siedemnascie';
8:dziesiatki:='osiemnascie';
9:dziesiatki:='dziewietnascie';
end;
2:dziesiatki:='dwadziescia';
3:dziesiatki:='trzydziesci';
4:dziesiatki:='czterdziesci';
5:dziesiatki:='piecdziesiat';
6:dziesiatki:='szescdziesiat';
7:dziesiatki:='siedemdziesiat';
8:dziesiatki:='osiemdziesiat';
9:dziesiatki:='dziewiecdziesiat';
end;
end;
function cyfry.jednosci;
begin
case s+d+j of
0:jednosci:='zero'
else
case d of
0:jednosci:='';
1:jednosci:='jeden';
2:jednosci:='dwa';
3:jednosci:='trzy';
4:jednosci:='cztery';
5:jednosci:='piec';
6:jednosci:='szesc';
7:jednosci:='siedem';
8:jednosci:='osiem';
9:jednosci:='dziewiec';
end;
end;
end;
end;
procedure liczebnik.pisz;
begin
cyfry.rozklad;
z:=cyfry.setki+''+cyfry.dziesiatki+''+cyfry.jednosci;
writeln(z);
end;
var
a,b:liczebnik;
begin
a.pisz;
b.pisz;
readln;
end.