Informatika gyűjtemény

Egy szinttel feljebb fg_encoder.pas

2004050607080910

<<  2. óra  >>

<<  Alice és Bob kódja  >>

NézetNyomtat

fg_encoder.pas (Vissza)
Az alábbi letöltési lehetőségek közül választhatsz: (segítség)
Karakterkódolás:
Sortörés:
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: us-ascii
Méret: 954 byte
{$Q+} {$R+}
PROGRAM abcode;

PROCEDURE Convert(src: STRING; VAR dest: STRING);
VAR
    len, i: INTEGER;
    ch: BYTE;
BEGIN
    dest:= '';
    len:= Length(src);
    FOR i:= 1 TO len DO
    BEGIN
        IF Length(dest) >= 240 THEN
        BEGIN
            dest:= dest+'...';
            EXIT;
        END;
        IF src[i] IN ['A'..'Z','a'..'z'] THEN
        BEGIN
            ch:= ORD(UpCase(src[i]))-ORD('A')+1;
            IF ch DIV 10 <> 0 THEN dest:= dest + CHR((ch DIV 10) + ORD('0') );
            dest:= dest + CHR((ch MOD 10) + ORD('0'));
        END
        ELSE dest:= dest+'?';
    END;
END; {Convert}

PROCEDURE Prompt();
VAR
    src, dest: STRING;
BEGIN
    WriteLn('Uss entert a kilepeshez, vagy adj meg egy stringet.');
    src:= '';
    WHILE TRUE DO
    BEGIN
        Write('>'); ReadLn(src);
        IF src = '' THEN EXIT;
        Convert(src, dest);
        WriteLn('kodolt: ', dest);
    END;
END; {Prompt}

BEGIN
    Prompt;
END.
(Vissza)