PASCAL / Metin Bir Sonraki Harfinin Sifreleme
program lenghth_fonk; uses crt; var asckod, uz, j : integer; sif, st, st2 : string[10]; k, ch : char; begin window(15,10,60,10); textcolor(white + blink); textbackground(red); clrscr; write(‘Bir string giriniz >’);readln(st); uz := length(st); write(‘Girilen stringin uzunlugu = ‘, uz); readln; for j := 1 to uz do begin st2 := copy(st,j,1); for k := ‘a’ to ‘z’ do if st2 […]
» Devamını Oku