Siema.
Mam prośbe mógłby ktokolwiek, pomóc mi poprawić poniższą procedurę?
Działa ona tak samo jak read, z taką różnicą, że ma przyjmować tylko pojedynczą literę T lub N.
Procedura spisuję się dobrze dopóki nie klikne 2x enter pod rząd, wtedy wywala program oraz traktuje tak Tblbalblalb jako T tak samo z N,
nie widzi jak gdyby tego drugiego warunku.
Dziękuje bardzo za pomoc.
Kod:
procedure readCHAR(var outp:char); // POPRAWNOSC WPROWADZANYCH ZNAKOW T i N
var
b: set of 'N'..'T';
inp:string;
begin
b:=['T','N'];
readln(inp);
while not (inp[1] in b) and (inp[2]=' ') do
begin
writeln('Blednie podana wartosc. podaj ponownie');
readln(inp);
end;
outp:=inp[1];
end;
Do nadgorliwych modów: “Orthodoxy means not thinking–not needing to think. Orthodoxy is unconsciousness.”