C CODELER Yeni Baslayanlara Hediyemiz Olsun Bunlar :-)

21 yıl (491 mesaj)

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 >

A

Asi_MoLFeuS

21 yıl (491 mesaj)

Yüzbaşı

Konu Sahibi