Biraz nostalji

uses crt;
var
gelen:string;
sonuc,basamak,sayac : integer;

function us(x:longint;n:integer):longint;
Begin
if n=0 then us:=1
else
us:= x * us(x,n-1);
End;

begin
writeln(‘sayıyı girin:’);
readln(gelen);
basamak:=length(gelen);
sonuc:=0;
for sayac:=0 to basamak-1 do {}
begin
if gelen[basamak-sayac]=’1′ then
begin
sonuc:=sonuc + us(2,sayac);
end;
end;
writeln(sonuc);
readln;
end.

Yukarıdaki kod ne işe yarıyor sizce….

Reklamlar
Published in: on Mayıs 12, 2009 at 3:05 pm  Yorum Yapın  
Tags: , , ,

The URI to TrackBack this entry is: https://onderarslan.wordpress.com/2009/05/12/biraz-nostalji/trackback/

RSS feed for comments on this post.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: