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: , , ,

Harika bir download sitesi

http://softarchive.net/ bu sitede mükemmel malzemeler var.

Published in: on Nisan 19, 2009 at 9:30 am  Yorum Yapın  
Tags: , , ,

Pic Programlama için ideal bir kaynak

Bu siteye Yıllık plan ararken rastladım. Benim için iyi oldu

Published in: on Nisan 5, 2009 at 10:58 am  Yorum Yapın  
Tags: , , , ,

2008 – 2009 Yıllık planlar

Yıllık planlar wordpress sebebiyle rar’ı docx olarak elle değiştirip koydum.

Dosyayı indirebilirsiniz.

Published in: on Mart 15, 2009 at 2:48 pm  Yorum Yapın  
Tags: ,

Bilişim Teknolojisinin Temelleri 2. Dönem Günlük Planları

WordPress izin vermediği için sıkıştırılmış dosyayı (rar) uzantısını elle değiştirerek docx olarak koydum. bu dosyayı indirip uzantısını tekrar rar yapıp kullanabilirsiniz.

2. dönemin tamamlanmış hali

Avira (AVP) ve offline update işlemi

AVP antivirüs programının özelliklerinden bir taneside internet bağlantısı olmadan (offline olarak) virüs veritabanını güncelleyebilmenizdir. Öncelikle internete bağlı herhangi bir yerden virüs veritabanının son sürümünü indirmelisiniz. 

Bu işlemi yaptıktan sonra kurmuş olduğunuz Avira AVP yazlımını açın. Menülerden Update / Manuel Update komutunu verin. Gözat diyerek biraz önce indirdiğiniz güncel virüs veritabanını gösterin.

Günlük plan şablonu

Günlük plan yapmak için gerekli şablon.

Published in: on Şubat 28, 2009 at 3:19 pm  Yorum Yapın  

Merhaba Dünya

Yine yeni yeniden.

Published in: on Şubat 28, 2009 at 1:00 pm  Yorum Yapın