Basamak Sayısı Hesaplama

Kylix, Lazarus, Freepascal ile ilgili konuları buraya yazabilirsiniz.
meyd
Üye
Mesajlar: 1
Kayıt: 31 Eki 2016 07:59

Basamak Sayısı Hesaplama

Mesajgönderen meyd » 01 Kas 2016 10:58

Klavyeden girilen bir sayının kaç basamaklı olduğunu veren minik bir algoritma yaptım. Bunu sağlayan hazır bir fonksiyon var mı acaba?..
program basamak_sayisi;
uses crt;
var n:real;i:byte;
begin
clrscr;
writeln('Bir sayi giriniz');readln(n);

repeat
n:=int(n/10);
i:=i+1;
until n=0;
writeln('Girdiginiz sayi',i,' basamaklidir');
readln;
end.

“Kylix / Lazarus / Freepascal” sayfasına dön

Kimler çevrimiçi

Bu forumu görüntüleyen kullanıcılar: Hiç bir kayıtlı kullanıcı yok ve 1 misafir