Dersizle Forumlarý

Bu program kullanýcýnýn girdiði mesajý, yine kullanýcýnýn girdiði sayý kadar tekrarlýyor...

program x_mesaji_y_kez_tekrarla;

{ programýn adýný yazýyoruz. }

uses crt;

{ CRT unitini kullanacaðýmýzý belirtiyoruz. }

var

{ Deðiþkenleri ve tiplerini tanýmlýyoruz. }

x:string;

{ String tipinde bir X deðiþkeni tanýmlýyoruz. }

y,i:integer;

{ Integer tipinde Y ve I deðiþkeni tanýmlýyoruz. }

Begin

{ programý yazmaya baþlýyoruz. }

clrscr;

{ ekraný temizliyoruz. }

gotoxy(10,10);

{ imleci 10. satýr 10. sütuna konumlandýrýyoruz. }

Write('Mesaj Yaziniz..........: ');

{ mesaj yazdýrýyoruz. }

readln(x);

{ kullanýcýdan mesaj girmesini istiyoruz. }

gotoxy(10,12);

{ imleci 12. satýr 10. sütuna konumlandýrýyoruz. }

write('Kac Kere Tekrarlansin..: ');

{ mesaj yazdýrýyoruz. }

readln(y);

{ kullanýcýdan sayý girmesini istiyoruz. }

clrscr;

{ ekraný temizliyoruz. }

for i:=1 to y do writeln(x);

{ for döngüsüyle kullanýcýnýn girdiði mesajý, yine }

{ kullanýcýnýn girdiði sayý kadar tekrar yazdýrýyoruz. }

readln;

{ sonucu görmek için programý bekletiyoruz. }

end.

{ programý bitiriyoruz. }

-----------------------------------------------------------------------
Bu program kullanýcýnýn girdiði sayýnýn faktoriyelini buluyor...

program faktoriyel_hesabi;

{ programýn adýný yazýyoruz. }

uses crt;

{ CRT unitini kullanacaðýmýzý belirtiyoruz. }

var

{ Deðiþkenleri ve tiplerini tanýmlýyoruz. }

n,f,i:longint;

{ LongInt tipinde N,F ve I deðiþkeni tanýmlýyoruz. }

Begin

{ programý yazmaya baþlýyoruz. }

clrscr;

{ ekraný temizliyoruz. }

gotoxy(10,10);

{ imleci 10. satýr 10. sütuna konumlandýrýyoruz. }

Write('Faktoriyel Hesabi Icin Sayi Giriniz(n!) : ');

{ mesaj yazdýrýyoruz. }

readln(n);

{ kullanýcýdan sayý girmesini istiyoruz. }

clrscr;

{ ekraný temizliyoruz. }

f:=1;

{ F deðiþkenine bir deðer atýyoruz. }

for i:=1 to n do F:=f*i;

{ f deðiþkenini i ile çarpýyoruz ve sonucu tekrar }

{ f deðiþkenine atýyoruz }

writeln('Girilen Sayi(n!)..:',n);

{ kullanýcýnýn girdiði sayýyý yazdýrýyoruz }

writeln('Sonuc.............:',f);

{ sonucu yazdýrýyoruz. }

readln;

{ sonucu görmek için programý bekletiyoruz. }

end.

{ programý bitiriyoruz. }

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

Bu program 1 den 100 e kadar olan çift sayýlarýn toplamýný buluyor.

uses crt;

var

i:integer;

x:integer;

toplam:integer;

{ bu deðiþkenleri tek tek tanýmlamak yerine }

{ tek satýrda da tanýmlayabilirdik. }

begin

clrscr;

for i:=0 to 49 do

{ for döngüsü içinde birden fazla iþlem yapacaðýmýz için }

{ begin-end bloðunu kullanýyoruz. Sizin de fark ettiðiniz }

{ gibi döngümüz 49 da son buluyor. Niye 100 e kadar }

{ devam etmiyor derseniz aþaðýdaki iþlemde i yerine }

{ 49 koyarsanýz cevabý görmüþ olursunuz. }

begin

x:=2*i+2;

toplam:=toplam+x;

end;

writeln(toplam:5);

readln;

end.

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

Bu program kullanýcýdan nüfus bilgilerini alýyor ve toplu olarak ekrana yazýyor...

uses crt;

type

{ programa veri tipi oluþturacaðýmýzý bildiriyoruz. }

KisaBilgiler=Record

{ veri tipinin adýný yazýyoruz. }

Ad,Soyad,BabaAdi,DogumYeri:string[20];

DogumTarihi:string[10];

{ deðiþkenleri ve tiplerini belirliyoruz. }

end;

NufusBilgileri=Record

KisaBilgi:KisaBilgiler;

TCNo,AnaAdi,ilce,Mahalle:string[20];

Dini,il:string[15];

MedeniHali:string[5];

KanGrubu:string[6];

end;

var

Bilgi:KisaBilgiler;

{ bilgi deðiþkeninin tipini kisabilgiler olarak ayarlýyoruz. }

Nufus:NufusBilgileri;

Begin

clrscr;

write(' TC Kimlik No..: ');readln(Nufus.TCNo);

write(' Ad............: ');readln(Bilgi.Ad);

write(' Soyad.........: ');Readln(Bilgi.Soyad);

write(' Baba Adi......: ');readln(Bilgi.BabaAdi);

write(' Ana Adi.......: ');readln(Nufus.AnaAdi);

write(' Dogum Yeri....: ');readln(Bilgi.DogumYeri);

write(' Dogum Tarihi..: ');readln(Bilgi.DogumTarihi);

write(' Medeni Hali...: ');readln(Nufus.MedeniHali);

write(' Dini..........: ');readln(Nufus.Dini);

write(' Kan Grubu.....: ');readln(Nufus.KanGrubu);

write(' Il............: ');readln(Nufus.il);

write(' Ilce..........: ');readln(Nufus.ilce);

write(' Mahalle/Koy...: ');readln(Nufus.Mahalle);

{ Yukarýdaki iþlemleri With-Do ile de yapabilirdik }

clrscr;

writeln;

writeln(' -- Nufus Bilgileri --');

writeln;

writeln(' TC Kimlik Numrasi...: ',nufus.tcno);

writeln(' Adi.................: ',bilgi.ad);

writeln(' Soyadi..............: ',bilgi.soyad);

writeln(' Baba Adi............: ',bilgi.babaadi);

writeln(' Ana Adi.............: ',nufus.anaadi);

writeln(' Dogum Yeri..........: ',bilgi.dogumyeri);

writeln(' Dogum Tarihi........: ',bilgi.dogumtarihi);

writeln(' Medeni Hali.........: ',nufus.medenihali);

writeln(' Dini................: ',nufus.dini);

writeln(' Kan Grubu...........: ',nufus.kangrubu);

writeln(' Il..................: ',nufus.il);

writeln(' Ilce................: ',nufus.ilce);

writeln(' Mahalle/Koy.........: ',nufus.mahalle);

readln;

end.

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

Bu program ile bir iþçinin ücretini hesaplayacaðýz. Fakat iþçi 25 günden az çalýþmýþsa yaptýðý parça baþýna ücreti farklý 25 günden fazla çalýþmýþsa farklý olacak.

uses crt;

var

gs,ps,ucret:Integer;

begin

clrscr;

write('kac gun calisti:');readln(gs);

write('parca sayisini giriniz:');readln(ps);

if (gs<=25) then ucret:=ps*2500000

else ucret:=ps*3000000;

gotoxy(5,10);writeln('paca sayisi:',ps);

gotoxy(5,12);writeln('gun sayisi:',gs);

gotoxy(5,14);writeln('ucret: ',ucret:15);

readln;

end.

-----------------------------------------------------------------------
Bu örnekler PASCAL programlama dilini az çok bilenler için oldukça basit gelecektir. Fakat bu dile yeni baþlayanlar için iyi bir alýþtýrma olacaðýný düþünüyorum. En azýndan bazý fikirler verebilir.



[ALINTI]

konuyu buraya taþýdým daha uygun

iyi yaptýn.

pascal bölümü açarak bu konularý oraya taþýyabiliriz
o zaman daha düzenli olacak

Onur arkadaþým yazmýþ olduðun programlarý çok güzel açýklayarak yazmýþsýn gerçekten çok beðendim.Katkýlarýndan dolayý teþekkür ederim.Bende pascal programlama diliyle birkaç program yazayým.Belki bu konuyla ilgilenenlerin iþine yarar.
1-255 arasýnda girilen bir sayýnýn gauss toplamýný bulan program.
uses crt;
var
i,deger,toplam:integer;
begin
clrscr;
write('Gauss Toplamý Bulunacak Sayýyý Giriniz:!);
readln(deger);
writeln;
toplam:=0;
for i:=1 to deger do
toplam:=toplam+i;
write('Toplam deðer:', toplam=;
readln;
end.

Programý kullanan erkek veya kadýnlarýn boyuyla kilosunu klavyeden girilmesini isteyip boylarýyla kilolarý arasýndaki farký ekrana yazdýran program.

USES CRT;
VAR
B,K:BYTE;
C,D:CHAR;
IKK,IK:BYTE;
BEGIN
CLRSCR;
WRITE('KÝLO HESABI YAPMAK ÝSTÝYORMUSUNUZ (E/H) :');
READLN(D);
WRITE( (D='E') OR (D='e') ) DO
BEGIN
WRITE(CÝNSÝYETÝNÝZ E/K :'); READLN©;
WRITE('BOYUNUZ            :'); READLN(B);
WRITE('KÝLONUZ              :'); READLN(K);
IF ( (C='K') OR (c='k') ) THEN
BEGIN    
     IKK:=B-100;
  IF(K<B-100) THEN WRITELN(IKK-K,' KÝLO ZAYIFSINIZ BAYAN');
  IF(K>B-100) THEN WRITELN(K-IKK,' KÝLO FAZLANIZ VAR BAYAN');
     END;
IF( (C='E') OR (c='e') ) THEN
  BEGIN
      IKK:=B-110;
IF(K<B-110) THEN WRITELN(IKK-K,' KÝLO ZAYIFSINIZ BEYFENDÝ');
IF (K>B-110) THEN WRÝTELN(K-IKK,' KÝLO FAZLANIZ VAR BEYFENDÝ');
END;
WRITE('KÝLO HESABI YAPMAK ÝSTÝYORMUSUNUZ (E/H) :'); READLN(D);
END;
READLN;
END.

Takým renklerini veren basit bir program.

uses crt;
begin
clrscr;
gotoxy(25,10); textcolor(4); textbackground(1); write('TRABZON');
gotoxy(25,11); textcolor(15); textbackground(0); write('Forum Kurallarýný Okuyalým !!!');
gotoxy(25,12); textcolor(14); textbackground(4);write('Forum Kurallarýný Okuyalým !!!');
gotoxy(25,13); textcolor(14); textbackground(1):write('Forum Kurallarýný Okuyalým !!!');
READLN;
END.

teþekkürler pascal cýlarýn iþine yarayacak

saol gülþen...
fikir sahibi olmalarýna yardýmcý olacaktýr...

Hem bana antreman oluyor hem de Pascal'la ilgilene arkadaþlarýn iþine yarýyor.
Bilgisayara a ile e harfleri arasýnda bir harf giren ve hangi harfin girildiðini ekrana yazdýran bir pascal programý.
use crt;
var
  harf:char;
begin
  clrscr;
wrýteln('a-e arsasý bir harf seçin');
REadln(harf);
case harf of
'a': writeln('a harfi girildi');
'b': writeln('b' harfi girildi');
'c': writeln('c harfi girildi');
'd': writeln('d harfi girildi');
'e': writeln('e harfi girildi');
else writeln('farklý bir harf girildi.');
END;
READLN;
end.
Yazdýðým programlarla ilgi sorularýnýz varsa yazabilirsiniz.

baba ben lise ögrencisiyim pc bölümü okuyorum su pascaldan cektýgýmý baska dersten... cekmedým programlar acýklayýcý olmus zaten bu programlarý anladýmda su dosyalama konusundada paylasýmlarýnýzý beklýyorum elýnýze saglýk hadý kolay gelsýn

Ne sorduðunuzu pek anlamadým biraz açýklarsanýz yardýmcý olabiliriz.