C CODELER Yeni Baslayanlara Hediyemiz Olsun Bunlar :-)

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb C + + CODELER Yeni Baslayanlara Hediyemiz Olsun Bunlar :-)

Bu konudaki kullanıcılar: 1 misafir

27
Cevap 918
Tıklama 0
Öne Çıkarma

1. sayfa

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

Cevap Yaz

Asi_MoLFeuS

20 yıl

Yüzbaşı

Konu Sahibi

Şİ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. sayy giriniz..:');
readln(x);
writeln('2. sayy 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

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

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

ulwi

20 yıl

Yarbay

http://forum.donanimhaber.com/forumid_202/tt.htm

konunun yeri burası degil

üstte verdigim yere taşınmalı ilgililere duyurulur...

Bu mesaja 1 cevap geldi.

shurzan

20 yıl

Onbaşı

Bu yazdıkları ne C nede C++ adamın programcılıkdan zerre kadar haberi yok.
Ondan sonara işte falanca yere yazacaktımda yanlışlıkla buraya yazmışım eee... o zaman doğrusunu yaz ardında programda olan fonksiyonları döngüleri veya sınıfları anlatda engin bilginden yararlananlım.
peh.. verdiği C++ kodlarına bak bu kadar pot kırılırmı.
Allah bilir bunların C++ kod'u olmadığını o da bu odada öğrenmiştir ha ha ha...

Al sana doğru dökümanların olduğu adres Necati Erginin hocanın ders notları --->>http://www.csystem.org/downloads.php

Birde hiç bir yerde bulamayacağın bir "GNU C Kütüphanesi Başvuru Kılavuzu" C nin Standart kütüphanesindeki tüm fonksiyonlarının anlatımı var. --->>http://belgeler.org/glibc/glibc.html

< Bu mesaj bu kişi tarafından değiştirildi shurzan -- 23 Haziran 2005, 5:06:27 >
Bu mesaja 1 cevap geldi.

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb C + + CODELER Yeni Baslayanlara Hediyemiz Olsun Bunlar :-)