Pascal Örnekleri

KlavyeSende.CoM

Kasım 23, 2008, 01:48:54 ÖS

Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun.

KlavyeSende.Com | Artık Klavye Sende !

KlavyeSende.CoM > • BilgisayaR • > Web Programlama ve Programlama > PascaL > Pascal Örnekleri

Sayfa: [1]

« önceki sonraki »

Yazdır

	Gönderen	Konu: Pascal Örnekleri (Okunma Sayısı 475 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Ocak 22, 2007, 05:08:26 ÖS | Uyarı : Dikkat bu Administrator mesajıdır |

ChaR
Administrator

Üye Bilgileri Üye ID: 1

Mesaj Sayısı: 2622

Nerden: Bilmem Sence Nerden ;)

Cinsiyet: Bay

Rep : 138

« Not Found Keyboard »

Durumum:

Admin

Pascal Örnekleri

Kayan yazı(Pascal)

uses crt;

const
m:string=('MESAJ BURAYA');

var
i:integer;

begin
clrscr;
for i:=1 to 80 do
begin
clrscr;
gotoxy(i,1);
write(m);
end;
readkey;
end.


	Logged

Herşeyi Sana Yazdım , Herşeye Seni YazdımResimlerin Görüntülenmesine İzin Verilmiyor
Resimleri Görebilmek İçin Üye Ol veya Giriş Yap
( N Resimlerin Görüntülenmesine İzin Verilmiyor
Resimleri Görebilmek İçin Üye Ol veya Giriş Yap D )

Ocak 22, 2007, 05:11:00 ÖS | Uyarı : Dikkat bu Administrator mesajıdır |

ChaR
Administrator

Üye Bilgileri Üye ID: 1

Mesaj Sayısı: 2622

Nerden: Bilmem Sence Nerden ;)

Cinsiyet: Bay

Rep : 138

« Not Found Keyboard »

Durumum:

Admin

Ynt: Pascal Örnekleri

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

Ocak 22, 2007, 05:12:27 ÖS | Uyarı : Dikkat bu Administrator mesajıdır |

ChaR
Administrator

Üye Bilgileri Üye ID: 1

Mesaj Sayısı: 2622

Nerden: Bilmem Sence Nerden ;)

Cinsiyet: Bay

Rep : 138

« Not Found Keyboard »

Durumum:

Admin

Ynt: Pascal Örnekleri

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

Ocak 22, 2007, 05:14:14 ÖS | Uyarı : Dikkat bu Administrator mesajıdır |

ChaR
Administrator

Üye Bilgileri Üye ID: 1

Mesaj Sayısı: 2622

Nerden: Bilmem Sence Nerden ;)

Cinsiyet: Bay

Rep : 138

« Not Found Keyboard »

Durumum:

Admin

Ynt: Pascal Örnekleri

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

Mayıs 06, 2007, 04:26:41 ÖÖ

Hayalet
"klavyen'in Hayaleti"
Yönetici

Üye Bilgileri Üye ID: 6

Mesaj Sayısı: 5564

Nerden: MaRDiN

Cinsiyet: Bay

Rep : 178

Ölüm bizi bulamadı,biz onu aramaya başladık

Durumum:

Ynt: Pascal Örnekleri

eline sağlık admin


	Logged

Delikanlilik ne racon kesmek,
ne adam dövmek,nede icki icip saga sola sata$maktir!!!

Delikanlilik yeri geldigi zaman Koltugunun altina bir Ekmek
alip ba$ini öne egip Evinin yolunu tutmaktir!!!

Ağustos 01, 2007, 10:42:51 ÖÖ

wind_144
Klavyenin Ustası