Вообщем программа такая что если вводим символы a * или цифры то это правда, если остальные символы то ложь и программа должна заканчиваться при нажатии клавиши делете.
Моя беда в том что я не могу сделать чтобы программа закрывалась, при нажатии делете ничего не происходит и еще не могу добавить в ложь заглавные буквы от A до Z
program tek;
uses crt;
var
l:char;
begin clrscr;
while true do
begin
l:=readkey;
case l of 'a', '*', '0'..'9' :
begin
writeln ('l=true', l );
end;
'b'..'z':
writeln ('l=false', l);
#0:
begin
l:=readkey;
if l=#46 then
break;
end;
end;
end;
end.
Добавлено: Извиняюсь за дубль темы, интернет немного залагал
Моя беда в том что я не могу сделать чтобы программа закрывалась, при нажатии делете ничего не происходит и еще не могу добавить в ложь заглавные буквы от A до Z
program tek;
uses crt;
var
l:char;
begin clrscr;
while true do
begin
l:=readkey;
case l of 'a', '*', '0'..'9' :
begin
writeln ('l=true', l );
end;
'b'..'z':
writeln ('l=false', l);
#0:
begin
l:=readkey;
if l=#46 then
break;
end;
end;
end;
end.
Добавлено: Извиняюсь за дубль темы, интернет немного залагал
