Şimdi Ara

C + + CODELER Yeni Baslayanlara Hediyemiz Olsun Bunlar :-)

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
28
Cevap
0
Favori
928
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Öne Çıkar
0 oy
Sayfa: 12
Sayfaya Git
Git
sonraki
Giriş
Mesaj
  • ŞİFRE ÇÖZÜCÜ



    USES CRT;
    var
    i:longint;
    a:longint;

    begin writeln('bir say girin '); readln(a);
    for i:=1 to 100 do
    begin
    textcolor(2);
    writeln(succ(a)+i," ,succ(a)+i+i,",succ(a)+i+454,", succ(a)+i+32,", succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454);
    writeln(succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454,", succ(a)+i+32,", succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454);
    writeln(succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454,", succ(a)+i+32,", succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454);
    writeln(succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454,", succ(a)+i+32,", succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454);

    writeln(succ(a)+i," ,succ(a)+i+i,",succ(a)+i+454,", succ(a)+i+32,", succ(a)+i ,",succ(a)+i+i);
    writeln(succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454,", succ(a)+i+32,", succ(a)+i ,",succ(a)+i+i);
    writeln(succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454,", succ(a)+i+32,", succ(a)+i ,",succ(a)+i+i);
    writeln(succ(a)+i ,",succ(a)+i+i,",succ(a)+i+454,", succ(a)+i+32,", succ(a)+i ,",succ(a)+i+i);



    end;
    writeln('sifre ---> ',a,' dir');
    readln;
    end.


    Coded By Asi_MoLFeuS

    ------------------------------------------------------------------------------------------------------------------------------


    HESAP MAKİNESİ



    uses crt;
    var
    x,y,z,w,q,k:real;
    begin
    clrscr;
    writeln('1. sayy giriniz..:');
    readln(x);
    writeln('2. sayy giriniz..:');
    readln(y);
    z:=x+y;
    w:=x-y;
    q:=x*y;
    k:=x/y;
    writeln('iste toplam....:',z:0:0);
    writeln('iste ‡karma....:',w:0:0);
    writeln('iste carpma....:',q:0:0);
    writeln('iste bolme....:',k:0:0);
    readln;
    end.


    ------------------------------------------------------------------------------------------------------------------------------


    DİJİTAL SAAT



    uses crt;
    var
    x,y,z:integer;
    k,l:integer;
    T2,a,b,c,d:real;
    begin clrscr;
    repeat
    write(#201);
    gotoxy(80,1);
    write(#187);
    gotoxy(80,49);
    write(#188);
    gotoxy(1,49);
    write(#200);
    for k:=2 to 79 do
    begin
    gotoxy(k,1);
    write(#205);
    end;
    for k:=1 to 47 do
    begin
    gotoxy(1,49-k);
    write(#186);
    end;
    for k:=2 to 79 do
    begin
    gotoxy(k,49);
    write(#205);
    end;
    for k:=2 to 48 do
    begin
    gotoxy(80,50-k);
    write(#186);
    end;
    begin
    gotoxy(35,10); write('KENAN BALCI');
    gotoxy(32,12); write('GAZI UNIVERSITESI');
    end;
    gotoxy(45,22);
    write(#187);
    gotoxy(45,26);
    write(#188);
    gotoxy(34,26);
    write(#200);
    gotoxy(34,22);
    write(#201);
    gotoxy(34,23);
    write(#186);
    gotoxy(34,24);
    write(#186);
    gotoxy(34,25);
    write(#186);
    gotoxy(45,23);
    write(#186);
    gotoxy(45,24);
    write(#186);
    gotoxy(45,25);
    write(#186);
    for k:=35 to 44 do
    begin
    gotoxy(k,26);
    write(#205);
    end;
    for k:=35 to 44 do
    begin
    gotoxy(k,22);
    write(#205);
    end;
    begin
    gotoxy(38,24);
    write(':');
    gotoxy(41,24);
    write(':');
    gotoxy(36,24);
    write('00');
    gotoxy(39,24);
    write('00');
    gotoxy(42,24);
    write('00');
    for z:=1 to 23 do
    begin
    for y:=1 to 59 do
    begin
    for x:=0 to 59 do
    begin
    gotoxy(42,24);
    if x<10 then write('0',x)
    else write(x:2);
    delay(1000);
    end;
    gotoxy(39,24);
    if y<10 then write('0',y)
    else write(y:2);
    end;
    gotoxy(36,24);
    if z<10 then write('0',z)
    else write(z:2);
    end;
    end;
    until readkey=#27;
    readkey;
    end.


    ------------------------------------------------------------------------------------------------------------------------------


    BASİT BİR EKRAN KORUYUCU


    Favori Takiminiz Icin Sifreli Ekran Koruyucu..Renkler Degisebilir.>
    uses crt,graph;
    var a,b,c,d,e,h,f1,g1,secure,gd,gm:integer;
    g,f:string;parametr:word;
    label askhiz,bas;
    begin
    askhiz:write('Hiz [0-100] : ');readln(e);
    if (e<0) or (e>100) then goto askhiz;
    write('Sifreniz [string] : ');readln(f);
    if paramstr(parametr)='gs.exe -secure' then
    begin
    write('Sifreniz [integer] : ');readln(f1);
    end;
    detectgraph(gd,gm);initgraph(gd,gm,");
    bas:a:=0;b:=0;c:=0;d:=480;
    repeat
    while a<640 do begin setcolor(yellow);
    line(a,b,c,d);inc(a,1);inc(c,1);delay(100-e);end;
    while a>0 do begin setcolor(red);
    dec(a,1);dec(c,1);line(a,b,c,d);delay(100-e);end;
    until keypressed;
    cleardevice;
    highvideo;textcolor(red);
    writeln('Sifre str: ');
    readln(g);
    if paramstr(parametr)='gs.exe -secure' then
    begin
    writeln('Sifre int: ');readln(f1);
    end;
    if (g=f) and (g1=f1) then halt else goto bas;
    end.

    ------------------------------------------------------------------------------------------------------------------------------
    SAYISAL LOTO PROGRAMI BELLİ OLUR BELKİ ZENGİN OLURSUNUZ


    uses crt;
    var
    x,t,s:integer;
    begin
    clrscr;
    for x:=1 to 6 do begin
    write('tahminlerinizi giriniz:');readln(tah);
    t:=random(41);
    if t=tah then s:=s+1;
    end;
    write('tutturduğunuz tahmin sayısı:',s);
    readln;
    end.

    ------------------------------------------------------------------------------------------------------------------------------CODED By Asi_MoLFeuS



    < Bu mesaj bu kişi tarafından değiştirildi Asi_MoLFeuS -- 10 Haziran 2005, 11:28:44 >



    _____________________________
    Karanlığa Küfür Edeceğine Bir Mum Yak..




  • _____________________________
    Karanlığa Küfür Edeceğine Bir Mum Yak..
  • http://forum.donanimhaber.com/forumid_202/tt.htm

    konunun yeri burası degil üstte verdigim yere taşınmalı ilgililere duyurulur...
    _____________________________
  • abım kusura bakma genemi yanlıslık yapdım :-((
    _____________________________
    Karanlığa Küfür Edeceğine Bir Mum Yak..
  • bilmemek ayıp değil öğrenmemek ayıptır , sadece bildirmek istedim çalışmalarının devamını dilerim kolay gelsin
    _____________________________
  • TAMAM ABİ YAVAS YAVAS ÖGRENİYORUM AMA HEP DİKKATSİZLİGİMDEN OLUYOR KUSURA BAKMA
    _____________________________
    Karanlığa Küfür Edeceğine Bir Mum Yak..
  • C++ değil mi bu?
    _____________________________
  • Yapay Zeka’dan İlgili Konular
    Daha Fazla Göster
  • pascall bunlar yaws. adamın programlamdan haberi yok.
    _____________________________


    Dil Okulu İngilizce
    Eğitim kategorisinin en çok satan #1. uygulaması
  • Harbiden ya bunlar Pascal...

    Yinede paylaştığın için saol ama Başlığı editle en azından örnek pascal kodları diye...
    Elinde olan şeyleri başkaları ile paylaşmak istemen çok güzel ama içeriğe hakim olduğun ve başkalarını yanlışa düşürmeyecek şekilde olmasına özen göstermelisin.

    Teşekkürler...
    _____________________________
    "Data: Hayat Like Ref Null."
  • Ya Güzel Kardelerim Kusuruma Bakmayın 3 tane foruma daha yaziyordum oraya yazacagım topicleri buraya buraya yazacaklarımı oraya yazdım soryyy
    _____________________________
    Karanlığa Küfür Edeceğine Bir Mum Yak..
  • yaw bende c++ ne kadar değişmiş diyecektim :)
    _____________________________
    Traffic Racer - Ana Konu - Facebook
  • quote:

    Orjinalden alıntı: rextr

    yaw bende c++ ne kadar değişmiş diyecektim :)

    _____________________________
    CCVP, CCDP, CCNP, CCIP
    Cisco Cisco partizani !!
  • kendimi ezik hissettim birden ben yarın gidip hocamın kafasını kesecem
    adam bu fonksiyonları hiçç göstermedi hep uzun yoldan yahu 10 satırsa 50 satır.
    _____________________________
  • şaka tabiki bunlar ellerine sağlık dostum kendimi ilk öğrendiğim yıllarda hissetim birden
    _____________________________
  • hönk ne ilk öörendiiin yılları yaf:S aynı sınıftayız ule biz pascal görmedikki



    < Bu mesaj bu kişi tarafından değiştirildi the_condor -- 16 Haziran 2005, 11:52:34 >
    _____________________________
  • olm bende onu dıom işte ben pascal görmedim.ama sağolsun mert gösterdi bea.Pascal nedir biliyorum ya.
    _____________________________
  • bakıyorum bakıyorum c yide amma unutmuşuz be diyorum
    _____________________________
  • HARBİ PASCAL MIŞ.USES CRT LER FALAN.
    _____________________________



  • < Bu mesaj bu kişi tarafından değiştirildi ZombieW -- 3 Kasım 2005, 11:16:28 >
    _____________________________
  • bu ne la

    hani C ?
    _____________________________
    İmzanız kural dışı. ( hadi canım sen de , ben bu imzayı 6 ay kullandım , mod a da sormuştum o zamanlar , kurallar ne kadar sık değişiyor !!! )
  • 
Sayfa: 12
Sayfaya Git
Git
sonraki
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.