| Ocak 22, 2007, 06:08:26 ÖS
| Uyarı : Dikkat bu Administrator mesajıdır | |
|
| Ocak 22, 2007, 06:11:00 ÖS
| Uyarı : Dikkat bu Administrator mesajıdır | |
|
|
Pascal Programlama Diliyle Yazılmış Bir Saat Programı
uses crt,dos;
type
datetimetype=string[8];
var
reg:registers;
h,m,s,w,time:datetimetype;
i:integer;
begin
clrscr;
repeat
reg.ax:=$2c00;
intr($21,reg);
str(hi(reg.cx):2,h);
str(lo(reg.cx):2,m);
str(hi(reg.dx):2,s);
w:=h+':'+m+':'+s;
for i:=1 to length(w) do
if w=' ' then w:='0';
gotoxy(30,10); write(w);
delay(500);
clrscr;
until keypressed;
readkey;
end.
|
|
|
|
|
Logged
|
Resimlerin Görüntülenmesine İzin Verilmiyor Resimleri Görebilmek İçin Üye Ol veya Giriş YapHerkes dalgasına baksın ,
Ama benim dalgamda boğulmasın ,
Bilsin ki yüz verip adam ettiysem ,
Sıfırla çarpar , yok ederim ,
Bu saatten sonra uğraşmam ,
Dünümle ve dünümdekilerle ,
Ben yarına bakarım yanımdakilerle... |
|
| Ocak 22, 2007, 06:12:27 ÖS
| Uyarı : Dikkat bu Administrator mesajıdır | |
|
|
Hareketli menü......(Pascal)
uses crt;
const
menu:array[1..5] of string[20]=('kayit','listele','sil','arama','‡ks');
sat:array[1..5] of integer=(1,10,1,10,5);
sut:array[1..5] of integer=(1,1,20,20,10);
var
tus:char;
sayac:integer;
begin
clrscr;
for sayac:=1 to 5 do
begin
gotoxy(sut[sayac],sat[sayac]);
textbackground(BLACK);textcolor(WHITE);
write(menu[sayac]);
sayac:=1;
repeat
textbackground(cyan);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]);
tus:=readkey;
if tus=#0 then tus:=readkey;
if tus=#27 then halt;
if tus=#80 then
begin
textbackground(black);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]) ;
sayac:=sayac+1;
if sayac=6 then sayac:=1;
end;
begin
textbackground(black);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]);
sayac:=sayac-1;
if sayac=0 then sayac:=5;
end;
if (tus=#13) and (sayac=5) then halt;
until 1=2;
end;
end.
NOT:ALİNTIDIR.....
|
|
|
|
|
Logged
|
Resimlerin Görüntülenmesine İzin Verilmiyor Resimleri Görebilmek İçin Üye Ol veya Giriş YapHerkes dalgasına baksın ,
Ama benim dalgamda boğulmasın ,
Bilsin ki yüz verip adam ettiysem ,
Sıfırla çarpar , yok ederim ,
Bu saatten sonra uğraşmam ,
Dünümle ve dünümdekilerle ,
Ben yarına bakarım yanımdakilerle... |
|
| Ocak 22, 2007, 06:14:14 ÖS
| Uyarı : Dikkat bu Administrator mesajıdır | |
|
|
Sayı bulma oyunu (Pascal)
uses crt;
hak,tah,max,t,x:integer;
x:integer;
begin
clrscr;
write^('hak sayısını giriniz:');readln(hak);
write('maximum sınırı giriniz:');readln(max);
randomize;
t:=random(max);
for x:=1 to hak do begin
write(x,'.sayıyı giriniz:');readln(tah);
if t=tah then begin write('kazandınız...');readln;halt;end;
if t>tah then write('daha büyük sayı giriniz:');
if t<tah then write('daha küçük sayı giriniz:');
end;
readln;
end.
|
|
|
|
|
Logged
|
Resimlerin Görüntülenmesine İzin Verilmiyor Resimleri Görebilmek İçin Üye Ol veya Giriş YapHerkes dalgasına baksın ,
Ama benim dalgamda boğulmasın ,
Bilsin ki yüz verip adam ettiysem ,
Sıfırla çarpar , yok ederim ,
Bu saatten sonra uğraşmam ,
Dünümle ve dünümdekilerle ,
Ben yarına bakarım yanımdakilerle... |
|
| Mayıs 06, 2007, 05:26:41 ÖÖ
|
|
| Ağustos 01, 2007, 11:42:51 ÖÖ
|
|
|
Yükleniyor...
| | | | | |
KlavyeSende.Com | Artık Klavye Sende !
