Mam do wykonania takie zadanie:
Wyprowadź słownie wartość przeczytanego znaku ze zbioru znaków numerycznych (0-9), pomijając inne znaki, jeżeli zostaną wprowadzone.
I właśnie z tym pomijaniem znaków jest problem.
program wartosc_znaku;
var
liczba:integer;
wartosc:string;
begin
Writeln ('wybierz liczbe, ktora odczytasz:');
Writeln ('1,2,3,4,5,6,7,8,9');
Readln (liczba);
Writeln ('wpowadz wartosc slowie');
readln (wartosc);
Case liczba of
1: begin
if (wartosc = 'jeden') then
writeln('dobrze')
else
writeln ('zle');
end;
2:begin
if (wartosc = 'dwa') then
writeln('dobrze')
else
writeln ('zle');
end;
3:begin
if (wartosc = 'trzy') then
writeln('dobrze')
else
writeln ('zle');
end;
4:begin
if (wartosc = 'cztery') then
writeln('dobrze')
else
writeln ('zle');
end;
5:begin
if (wartosc = 'piec') then
writeln('dobrze')
else
writeln ('zle');
end;
6:begin
if (wartosc = 'szesc') then
writeln('dobrze')
else
writeln ('zle');
end;
7:begin
if (wartosc = 'siedem') then
writeln('dobrze')
else
writeln ('zle');
end;
8:begin
if (wartosc = 'osiem') then
writeln('dobrze')
else
writeln ('zle');
end;
9:begin
if (wartosc = 'dziewiec') then
writeln('dobrze')
else
writeln ('zle');
end;
10:begin
if (wartosc = 'dziesiec') then
writeln('dobrze')
else
writeln ('zle');
end;
else
write('blad');
end;
readln;
end