Pascal Dersleri-1
 

Merhaba Arkadaşlar.....

Eğer Pascal hakkında bilginiz yoksa önce ilk konuyu okumanızı davsiye ederim hem dowload şansınızda var....

Öncelikel bi kaç not ::::,Pascal küçük büyük harf ayrımı yoktur .ama türkçe karakter kullanılmaz..mesela

>>gokhan aygun ---->GOKHAN AYGUN-- (DOĞRU)
>>CIHAD VE FEVZI---->cihad ve fevzi (doğru)

>>CİHAT---İSMAİL---ALİ---ÇALİ-->(YANLIŞ)
YANI KISACASI (İ,Ğ,Ç,Ö,Ş,Ü,KÜÇÜK I KULLANILMAZ..AMA KÜÇÜK İ HARFİ KULLANILABİLİR..)

ve (*asd*) bu kisim derleyici tarafından dikkate alınmaz..yanı diyelimki 1 yıl önce bi program yazdınız bu programa bu gün baktınızda -acaba ben bu nu niçin kullanmıştım demeyesiniz. diye açıklama için sadece ..
ve ifadelerin sonunda ; ifadesiii vardır bir kaç deyim dışında mesela begin ın sonunda yoktur bu tabi zamanla alışırsınız..buna...
basit olarak

uses crt ;(*burada uses sürekli kalır ama crt bi unittir yanı farklı bi unitte belirleyebiliriz.mesela uses dos; uses printer; uses graph; gibi veya bunları bir aradada kullanabiliriz..uses crt,dos,printer,graph; gibi..elbette daha fazla unit var ama şimdilik bunlar yeterli.. yada kendinizde unit oluşturabilirsiniz*)


var;
değişkenler..(*değişken derken mesela ad soyad vs gibi şeyler yanı kullanıcıdan bilgi almak ve gerekli şeyleri yapmak için ..*)
begin(*başla anmına gelir bu ifade..pascal kodları bundan sonra başlar..*)

komutlar.(komutlar kısmına ise döngüler fonksiyon ve prosedürler yazılır..yanı begin end. bloğu içerisinde yazılan kodlar gelir.. )
end.(evet end sözcüğüde zaten bilirsiniz son anlamına gelir..yanı burda begin ile başladık kodlarımızı yazdık ve end diyerek bitirdik...)
--------------------------------------------------------------------------
Şİmdi ilk örneğimizi yazalım ....

uses crt; (*unit olarak crt..belirttik ki her pascal programında vardır ve en çok bu kullanılır.*)
begin (*başlıyoruz*)
clrscr; (*bu ifadenin türkçesi ekranı temizle anlamındadır. yanı bunuda sürekli kullnıcaz ve bunları uygulayarak göremelisiniz.yoksa okumak tek başınma yetmez*)

writeln('gökhan aygün');(*writeln anlamı yazmaktır.burda ekrana gökhan aygün yazması istiyoruz*)
readln;(*bu komut ise oku demektir yanı yazdırdık ve okumasını sölüyoruz..*)
end.(*ve nihayet son diyoruz ve bitti..*)

şimdi bunları yazdık ve ctrl +f9 tuşu ile çalıştırıyoruz....
----------programın ekran çıktısı ---------------------------

gökhan aygün

--------------------------------------------------------------
evet şimdide kısa bi tekrar yapalım malum işi baştan sıkı tutmak lazım
şimdi
uses crt ; "dedik ve unit olarak crt belirledikkk..."

begin "dedik başla anlamında programı başlatıyoruz"

clrscr; "buda ekranımızı temizledi eğer yazamasaydık bunu pascal reklamını şirketinı tanıtacaktı ekranın üstünde..:d"

writeln(' buraya istediğim şeyi yazabiliriz yanı türkçe arapça hiç farketmez. ');

readln;(*buda okumak anlamında molum makine sonuçta ne versen onu alıyosun bide yaz dedik şimdi readln ile oku diyoruz*)
end.(*bitiriyoruz...*) ve bitti sonunda adımı yazdınız ...:d

haa bu arada write diyede veya read diye de yazılabilir.....
writeln veya readln ifaderinin sonundaki 'ln' yanı bi satır aşağiya anlamındaddır..
ama biz genelde ln kullanıcaz sonunda...

diyelimki programda writeln; bu şekilde yanı parantes açılmamış ve içine hiç bişey yazılmamışsa buda bir satır aşaği kaydırır kursörü..

evet 1 .ders bitti ..fazla sıkmak istemem zamanla ...şimdi bu derte neler gördük...

uses crt (program uniti)
writeln (yaz)
readln(oku)
begin(başla)
end(son )
var(değişken)

Dua ile ...

Allaha emanet olun van.gen.tr ye tşk..
Nacizhane programci gokhan...

Case Of

Nerdesun

Heee burdayımmm

LOOO
derslere bak sen ..:D

sanırım küçük bi hata var orda sen 22/7 dikkat edersen sen writeln('22/7');
yanı bu sadece ekrana 22/7 yazdırır..yanı işlem yapmaz çünkü işlem yapması ya apstrof içine almıcan ya değişken yada fonksiyon kullanman lazım ..pi sayısı için ister kendin bi değişken yazarak bulabilirsin istersen pi fonksiyonu ile de yazdırabilirsin değişken kullanmadan ..

mesela
uses crt;
var
i,j:=real;
begin
i:=22;
j:=7;
writeln(i/j);
readln;
end.

veya
uses crt;
begin
clrscr;
writeln(22/7);
readln;
end.

veya
uses crt;
begin
clrscr;
writeln(pi);
readln;
end.
veya...:D

uses crt;
var
i:real;
begin
clrscr;
i:=22/7;
writeln(i);
readln;
end.

yanı salimcim her noktada aynı yola çıkıyo ..işte programlamanın da en önemli özelliği bir şeyi bir çok yoldan yapabilmen ..ama önemli olan ihtiyacımız olan kodu en kısa yoldan yazma...

hadi kolay gelsin ..pascala devam kardeşim :D:4:

Abi hepsi için teşekkürler özellikle ''var'' değişkenini çok sevmiştim onunla yeni çığırlar açılıyor, aslında her öğrendiğim yeni şeyle bissürü şey yapılır ama ''var'' bi başka geldi:1:

ve abi çok süper bişey gördüm senin 3. örneğinde, (pi) yazmışsın ve çıkmış bende bunun gibi diğer fonksiyonları yazabilirmiyim diye çalıştım, lise'den aklımda kalan bütün fonksiyonları döktüm ortaya (hazırlık okuyorum şimdi o yüzden fazla bişey hatırlamıyorum) ama bütün uğraşlarıma rağmen bi çözüm yolu bulamadım:18::19:

Mesela ben bununla cosinüs, sinüs tanjant,logaritma, mutlak değer gibi fonksiyonlarıda yapabilirmiyiz, veya ne bileyim karesini almak aynı sayıyı 2 kere yazıp çarparız diyecen ama başka bi yol var mı?

Allah razı olsun:4::1:

eyw salimcim ..valla var dedinmi zaten iş orda biter ..bende çok severim kerateyi..her bişe yazılıy valla ..yanı pascalda dediğim gibi yapıbileceklerin hayal gücünle sınırlı.kardeşim ama işte bizim pek işimize yaramıyo pi sin cos gibi sayısal fonksiyonlar. filan ..ama onlarıda pi gibi fonksiyon olarak kullanabilirsin....
bahsettiğin fonksiyonlar
cosinus için cos
sinüs için sin
arctan için arctan
sayının kökü için sqr
sayının karakökü için sqrt ..

ama ben sana şu tavsiye ederim kardeşim ..sen
kendi fonksiyonu oluştur ..derim ben mesela nasıl dersen..
uses crt;
var
i,j:integer;
begin
clrscr;
writeln('karesini bulmak istediğiniz sayıyı girin');
readln(i);
j:=i*i;
clrscr;
writeln(i,'','sayısının kökü','',j);
readln;
end.

gibi işte anladın sanırım artık bunlar gibi geliştir kendini tabi en basit örneği..
ama bu sayısal fonsiyon ve procedureler için sanırım bi konu açmak lazım..
kardeşim ben açmaya çalışıcam şimdilik sanırım 20 tane falan sayısal lar var ben açıklamaya çalışırım ..ama sen yine sor başka bişey varsa aklında...

bu arada çalışmalarını beyendim ..maşallah böle gidersen bizi aşarsın valla bi kaç aya..
hadi kolay gelsin ..

devam salim ..