Исправте если не сложно

[Kot070]

Помогите с решением.
Вводить символы с клавиатуры. Присвоить логической переменной L значение ‘true’, если выполняются указанные условия, и значение ‘false’ иначе:
значением L является символ '*';
значением L является символ 'а';
значением L является цифра..
Вводимые символы и значение L выводить на экран монитора. Ввод символов продолжать до нажатия клавиши ‘Del’ на дополнительной клавиатуре.

program pr1;
uses crt;
var L: char;
begin clrscr;
if l='*' and l='a' and l='0..9'
 then 
    readln('l=tue');
   else 
       readln('l=false');
begin l:= readkey;
        if l = #061  then begin
                break end
   end
end;
readkey
end.

[Poma][a]

[psychic mode on]

var
   ch : Char;
   l : Boolean;

begin
   ReadLn (ch);
   l := (ch = '*') or (ch = 'a') or (ch in [0..9]);
   WriteLn (l)
end.

[psychic mode off]

[Kot070]

а как же закрытие программы при нажатии клавиши del?

[Poma][a]

Точняк! До меня дошло!!
Теперь осталось придумать красивый способ реализации без лишних переменных..

[Kot070]

а разве так можно? надо ведь еще одну переменную которая будет ловить код клавиши дел а именно 046 и по этому коду закрывать

[Poma][a]

а разве так можно? надо ведь еще одну переменную которая будет ловить код клавиши дел а именно 046 и по этому коду закрывать

Это отдельная песня.. Я думаю как нам сделать проверку в цикле без лишних переменных и по-красивее..
В дельфи (а может и во free) есть Булевские типы данных (не просто Boolean), можно там попробовать.. А можно что-нить придумать с Byte..
Мне больше нравится химичить с байтом, НО опять же ради спортивного интереса хочется найти формулу, а не использовать case of \ if then..

[Stilet]

var
   ch : Char;
begin
repeat
   ch:=readkey;
   WriteLn((ch in ['0'..'9','*','a','A']));
until ch=46;
end.

Подходит?

P.S. Чуть оптимизировал...

[Poma][a]

Подходит?

Я дак думаю, что нет..

repeat
   ch:=readkey;
   if ch = '*' then
       Inc (a)
   else if ch = 'a' then
       Inc (b)
   else if ch in ['0'..'9'] then
       Inc (c);
until ch=46;

   l := (a>0) and (b>0) and (c>0);
   WriteLn (l)

Но хочется красоты..

begin
r := 0;
repeat
   ch:=readkey;
   r := (r<200)*(-100)+r + Ord(ch='*')*100 + Ord(ch='a')*10 + Ord(ch in ['0'..'9']);
until ch=46;
WriteLn (r>=111)
end.

Не проверял, но должно работать, и я доволен

[Stilet]

Мдя... С каждым годом задачи все больше выходят за пределы мироздания...
Ладно. Пусть автор решает. Как ты вариантную запись не пришлось использовать для решения.

[Serge_Bliznykov]

ну, тогда я и свой вариант скину:

uses Crt;
var ch: char;
  l, isDelPressed: boolean;
begin
  isDelPressed := false;
  repeat
    ch := readkey;
    if ch = #0 then begin
      ch := readkey;
      if ch = #83 then isDelPressed := true;

    end
    else begin
      l := (ch = '*') or (ch = 'a') or (ch in ['0'..'9']);
      WriteLn('You press key:', ch, '  L = ', l);
    end
  until isDelPressed;
  WriteLn('Your press DEL. for quit press any key...');
  readkey;
end.