Проверка дали е буква

Да се въведе символ и да се изведе TRUE ако е буква (главна или малка) и FALSE, ако не е.
Публикувано в с етикети . Постоянна връзка.

3 Responses to Проверка дали е буква

  1. Violeta каза:
     program Project1;
    var
    sinvol:char;
    proverka:Boolean;
    begin
    Write(' vavedete sinvol ');
    ReadLn(sinvol);
    Proverka:= (( sinvol>= 'A') and ( sinvol <='Z'  ))or ((sinvol>='a') and (sinvol<='z')) ;
    WriteLn('Dali e sinvol ot  A do  Z ' , (proverka));
    ReadLn;
    end.
               
  2. kaloyan каза:
    VAR proverka  : boolean;
        simvol    : char;
    BEGIN
      write('vavedete simvol: '); readln(simvol);
        // cifra
          proverka:=((simvol>='0') and (simvol<='9'));
          writeln('dali e cifra: ', proverka);
        // malka bukva
          proverka:=((ord(simvol)>=97) and (ord(simvol)<=122));
          writeln('dali e malka bukva: ', proverka);
        // golqma bukva
          proverka:=((ord(simvol)>=65) and (ord(simvol)<=90));
          writeln('dali e golqma bukva: ', proverka);
        // aritmetichna operaciq
          proverka:=((simvol='*') or (simvol='/') or (simvol='+') or (simvol='-'));
          writeln('dali e aritmetichna operaciq: ', proverka);
    readln;
    END.         
    
  3. Данаил каза:

    Много добре – и за двете решения!

Вашият коментар