Символ по ASCII код, предишен и следващ

Да се въведе ASCII кода на символ и да се отпечата символа, който съответства на него, както и предишният и следващ символ.

Публикувано в с етикети . Постоянна връзка.

4 Responses to Символ по ASCII код, предишен и следващ

  1. Lubomir Dizela каза:
     program project1;
       var
          s: integer;
          p, d, f: char;
    
    begin
    WriteLn('Vuvedete ASCII koda na simvol: ');
    ReadLn(s);
    p:=Chr(s);
    d:=Pred(p);
    f:=Succ(p);
    WriteLn('Simvol: ', p);
    WriteLn('Predhoden simvol: ', );
    WriteLn('Sledvasht simvol: ', f);
    ReadLn;
    
    end.                 
  2. kaloyan каза:
    VAR ascll_kod : integer;
        simvol : char;
    BEGIN
      write('vavedete ASCLL kod: '); readln(ascll_kod);
      simvol:=chr(ascll_kod);
      writeln('simvola e ', simvol);
      writeln('predishniq simval e ', pred(simvol));
      writeln('sledvashtiq simvol e ', succ(simvol));
    readln;
    END.  
  3. Violeta каза:
     program Project1;
    var
    ASCII_kod:integer ;
    simvol:char;
    begin
    Write('vavedete ASCII_kod :');
    ReadLn(ASCII_kod);
    simvol:=chr(ASCII_kod);
    WriteLn('Simvola mu e ',simvol);
    simvol:= Pred (simvol);
    WriteLn ('Predniq simvol e -', Pred(simvol));
    simvol:=Succ(simvol);
    WriteLn  ('Sledva6tiq simvol -' , succ(simvol));
    ReadLn;
    end.
                                                   

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