Deskripsi untuk soal nomor 44 - 45

Perhatikan potongan program berikut:

var input : string;
procedure ubah(s:string)
var i,j:integer;
begin
 for i:=1 to length(s)-1 do
 begin
 s[i] := chr((((ord(s[i])-65) + (ord(s[i+1]) - 65)) mod 26) + 65);
 end;
 writeln(s);
end;
begin
 ubah(input);
end.

Catatan:

Fungsi ord(cc: char) menghasilkan nilai kode ASCII karakter CC;
Fungsi chr (K: integer) menghasilkan karakter yang kode ASCII-nya adalah K.
Potongan tabel konversi kode ASCII dari karakter ‘A’ s.d. ‘Z’ diberikan sebagai berikut: ord(‘A’) = 65
ord(‘B’) = 66
ord(‘C’) = 67
….
… dst
ord(‘X’) = 88
ord(‘Y’) = 89
ord(‘Z’) = 90