Romali asker programi - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > C++

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 18:53   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Romali asker programi

Romali asker programi

#include"stdio.h"
#include"conio.h"
#include"stdlib.h"

int tarat(char *ptarat,char *pilk,int kisi)
{
int kalanlar=0; ptarat=pilk;

for(int i=0; i<kisi; i++,ptarat++)
{
if( *ptarat == 1 )
kalanlar++;
}
return kalanlar;
}
///////////////////////////////////////

void roma(char *pilk,char *pson,char *pgez,int kac,int kisi)
{//fonk.
char *ptarat; int kalanlar, sayac=1;
pgez = pilk; ptarat = pilk;
for( int h=0 ; h < kac+50 ; h++)
{//for
pgez = pilk;
for( int i=1; i < kisi+1 ; pgez++, sayac++, i++)
{//for
switch (*pgez){
case 0 : if(pgez == pson) pgez = pilk ; sayac-- ; break;

case 1 : if(sayac == kac ){*pgez = 0 ; sayac = 0 ;}
kalanlar = tarat(ptarat,pilk,kisi);
if(kalanlar < kac) goto cikis; }
}//for
}//for
cikis :
}//fonk.

////////////////////////////////////////


void main(void)
{
char *pilk,*pson,*pgez;
int kisi,kac;
clrscr();
printf("\n\tka‡ kisi? : "
scanf("%d",&kisi);
printf("\n\tka‡nc vurulacak? :"
scanf("%d",&kac);
pgez = (char *)malloc(kisi);
pilk = pgez;
pson = pgez + kisi;

for( int i=0; i<kisi; i++)
pilk[i]=1;

roma(pilk,pson,pgez,kac,kisi);

pgez = pilk;
for(int k=0 ; k<kisi; k++,pgez++)
if(*pgez == 1)
printf("\n %d. yer msait!",k+1);

getch();
}

Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
SOĞAN ÇORBASI DİYET PROGRAMI PESTEMAL Beslenme ve Diyet 0 20 February 2012 11:59
-C## consolede asal sayi programi tamerr89 C# 0 04 March 2008 14:19
VIETNAM`DAN DÖNEN ASKER............. wild_wing Öyküler & Hikayeler 3 22 May 2006 21:28
Asker Mektubu Mekansiz Yakılacak Mektuplarınız 0 01 May 2006 02:11
Asker Mekansiz Fıkra Diyarı 0 14 April 2006 18:02

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.