Sonsuz Döngü

Nerde hata yaptım daha araştırmadım ama program sonsuz döngüye giriyor çalıştırınca. Deneyin görün bilen varsa bana da haber eylesin. Yapmaya çalıştığım şey bu linkte.
Bu link
#include
int main( void )
{
int i,kontrol=1,a;
while(kontrol==1)
{
printf("sayiyi giriniz\n");
scanf("%d",&i);
a=i%2;

while(i/=1)
{if(a==0){i=i/2;
a=i%2;
printf("%d",i);}


if(a==1){
i=i*3+1;
a=i%2;
printf("%d",i);}
}

printf("bir kez daha\n");
scanf("%d",&kontrol);
}
return 0;
}

C de Roma Rakamı Çeviricisi

Yeni C öğrenme çabalarımın ilk meyvelerinden, buyrunuz.

#include stdio.h //stdio.h ın başina kucuktur, sonuna buyuktur işareti konması gerekir
int main()
{
int b1000,b100,b10,b1,kontrol;
printf("Bu program 4 basamaga kadar olan sayilari Roma rakamlarina cevirmeye yarar. Eger daha kucuk basamakli sayilar kullanmak istiyorsaniz bir onceki basamaga '0' yaziniz\n");
printf("Sayinin 1000'ler basamagindaki rakami giriniz\n");
scanf("%d",&b1000);
printf("Sayinin 100'ler basamagindaki rakami giriniz\n");
scanf("%d",&b100);
printf("Sayinin 10'ler basamagindaki rakami giriniz\n");
scanf("%d",&b10);
printf("Sayinin 1'ler basamagindaki rakami giriniz\n");
scanf("%d",&b1);
switch(b1000)
{
case 1: printf("M"); break;
case 2: printf("MM"); break;
case 3: printf("MMM"); break;
case 4: printf("MMMM"); break;
case 5: printf("MMMMM"); break;
case 6: printf("MMMMMM"); break;
case 7: printf("MMMMMMM"); break;
case 8: printf("MMMMMMMM"); break;
case 9: printf("MMMMMMMMM"); break;
case 0: printf(""); break;
}
switch(b100)
{
case 1: printf("C"); break;
case 2: printf("CC"); break;
case 3: printf("CCC"); break;
case 4: printf("CD"); break;
case 5: printf("D"); break;
case 6: printf("DC"); break;
case 7: printf("DCC"); break;
case 8: printf("DCCC"); break;
case 9: printf("CM"); break;
case 0: printf(""); break;
}
switch(b10)
{
case 1: printf("X"); break;
case 2: printf("XX"); break;
case 3: printf("XXX"); break;
case 4: printf("XL"); break;
case 5: printf("L"); break;
case 6: printf("LX"); break;
case 7: printf("LXX"); break;
case 8: printf("LXXX"); break;
case 9: printf("XC"); break;
case 0: printf(""); break;
}
switch(b1)
{
case 1: printf("I\n"); break;
case 2: printf("II\n"); break;
case 3: printf("III\n"); break;
case 4: printf("IV\n"); break;
case 5: printf("V\n"); break;
case 6: printf("VI\n"); break;
case 7: printf("VII\n"); break;
case 8: printf("VIII\n"); break;
case 9: printf("IX\n"); break;
case 0: printf("\n"); break;
}
printf("Sonuc %d%d%d%d sayisinin Roma Rakamlari ile yazilmis halidir\n",b1000,b100,b10,b1);
printf("baska islem yapmak icin 1'i tuslayin yoksa 0' tuslayin\n");scanf("%d",&kontrol);
if (kontrol==1) main();
return 0;
}

Flock

Süper bir firefox klonu. Bloggerlar için büyük kolaylıklar sağlıyor. Mesela bu mesajı direk olarak tarayıcı ayarları kullanarak kolayca yapıyorum. Herkeslere tavsiye edilir efendim.

Blogged with Flock

Prolog da Berber Paradoksu

Meraklısı için, bernard Russel'ın berber paradoksunun Prolog da programlanışı.
Programı çalıştırmak için aşağıdaki veritabanını bir text dosyasına yazın ve "dosyaadi.pl"
şeklinde kaydedin. Bu haliyle SWI Prologda açılmaya hazır bir dosyanız olacaktır. SWI Prologda
dosyayı açtıktan sonra;
basla. ve paradoks. komutlarıyla kuralları yürütün.

%Seville’de bir berber var. Bu berber o köyde kendini
%tıraş etmeyenleri tıraş eder .Kendini tıraş edenleri ise tıraş
%etmez. Bu berber kendini tıraş eder mi etmez mi?

:-op(600, xfx, tras_eder).
koy_halki(X):-(X=emre ; X=ahmet ; X=berber).
traslama(X):-
berber tras_eder X ; X tras_eder X.
berber tras_eder X:-!,koy_halki(X), X\=berber, print(X), write(' berber tarafından traş edilir'), nl.
X tras_eder X:-!, koy_halki(X), X\=berber, print(X), write(' kendini traş eder'), nl.
X tras_eder Y:-print(X), write(' tras eder '), print(Y), write(' OLMAZ!'), nl, fail.
basla:-koy_halki(X),traslama(X),fail.
paradoks:-trace, koy_halki(kim), kim tras_eder berber.

Rölativite hesaplarıyla alakalı fortran programları

Meraklısına programlar:

program relativity
!bu program hareketli cisme göre ölçülen zamanın genleşmesini hesaplar
real::t,tson,v,c
c=299792458
print*,"hareketli cisimde olculen zamani giriniz"
read*,t
print*,"haraketli cismin hizini giriniz"
read*,v
tson=t/sqrt(1-(v**2)/(c**2))
print*,tson
end program relativity


program relativity
!bu program verilen hızda hareket eden cismin boyunu hesaplar
real::l,v,lson,c
character(len=1)::a
c=299792458
do
print*,"cismin ilk boyunu giriniz"
read*,l
print*,"cismin hizini giriniz"
read*,v
lson=l*sqrt(1-(v**2)/(c**2))
print*,"cismin",v,"hizindaki boyu",lson,"m"
print*,"bir daha hesap yapmak istiyor musunuz?"
read*,a
if (a=="e")then
cycle
endif
if (a/="e")then
exit
endif
enddo
end program relativity