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

PASCAL / Tam Kat

program Tam_Kat_Bulma; uses Forms; {$R *.RES} var a,b:byte; begin Application.Initialize; Application.Run; write(‘Birer boslukla iki sayi giriniz=’); readln(a,b); if a/b=trunc(a/b) then begin write(‘A B nin tam kati dir’); readln; end else if b/a=trunc(b/a)then begin write(‘B A nin tam kati dir’); readln end else write(‘A B nin tam kati degildir’); end. Ekleyen turkirc.com Tags: hazır kodlar, Pascal Komutları

» Devamını Oku