Geri git   Van.GEN.TR Forum | Yerel Van Forumu > Bilgisayar > Programlama > Pascal

Cevapla
 
Konu Araçları Stil
Alt 01/04/07, 22:28   #1
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart 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...

Konu gokhanaygun tarafından (21/05/07 Saat 21:21 ) değiştirilmiştir..
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 10/04/07, 22:19   #2
HUSEYIN 18
Acemi Er
 
HUSEYIN 18 - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Yaş: 36
Mesajlar: 2
Tecrübe Puanı: 0 HUSEYIN 18 will become famous soon enough
Standart

Case Of
__________________
HUSEYIN 18 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 0
Alt 10/04/07, 22:21   #3
HUSEYIN 18
Acemi Er
 
HUSEYIN 18 - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Yaş: 36
Mesajlar: 2
Tecrübe Puanı: 0 HUSEYIN 18 will become famous soon enough
Standart

Nerdesun
__________________
HUSEYIN 18 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 0
Alt 10/04/07, 22:29   #4
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart

Heee burdayımmm

LOOO
derslere bak sen ..
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 19/05/07, 18:35   #5
bûme
Çavuş
 
bûme - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2007
Bulunduğu yer: Ankara
Yaş: 34
Mesajlar: 98
Tecrübe Puanı: 0 bûme will become famous soon enough
Standart

Teşekkürler, programı indirdim kurdum ve derslere başladım.Şimdi soracağım bişey var, yukarıda anlatılanlara göre yaptım hatta abi ben burada toplama çıkarma çarpma bölme bile yaptım


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

pi sayısına yakın bi değer veriyor mesela...
__________________
bûme isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 2
Alt 21/05/07, 21:17   #6
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart

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...

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
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 22/05/07, 02:21   #7
bûme
Çavuş
 
bûme - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2007
Bulunduğu yer: Ankara
Yaş: 34
Mesajlar: 98
Tecrübe Puanı: 0 bûme will become famous soon enough
Standart

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

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

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
__________________

Konu bûme tarafından (22/05/07 Saat 02:25 ) değiştirilmiştir..
bûme isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 2
Alt 22/05/07, 11:01   #8
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart

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 ..
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 23/05/07, 16:37   #9
bûme
Çavuş
 
bûme - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2007
Bulunduğu yer: Ankara
Yaş: 34
Mesajlar: 98
Tecrübe Puanı: 0 bûme will become famous soon enough
Standart

Karekök ve karesini alma işini sonda anlattığın yoldan yapıyordum ben abi ama sqr işi'de kısaltmak için gerekli(senin dediğin gibi asıl önemli olan aynı şeyi daha kısa yoldan yazmak).Kitabı bugün alacam inş. akşam bi kurcalarım, düzenli bi anlatımı varmış sanırım, teşekkürler tavsiyen için
__________________
bûme isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 2
Alt 28/05/07, 10:28   #10
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart

devam salim ..

Konu gokhanaygun tarafından (28/05/07 Saat 11:26 ) değiştirilmiştir..
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Konu Araçları
Stil

Yetkileriniz
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Gitmek istediğiniz klasörü seçiniz


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 13:39 .


Powered by vBulletin
Copyright © 2000-2007 Jelsoft Enterprises Limited.
Sitemap
6, 5, 3, 7, 8, 9, 10, 11, 12, 13, 14, 15, 113, 16, 17, 18, 19, 81, 20, 27, 22, 23, 24, 25, 26, 48, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 43, 136, 40, 58, 45, 42, 44, 46, 47, 53, 54, 55, 56, 57, 59, 60, 70, 61, 62, 63, 64, 65, 66, 68, 69, 71, 72, 74, 75, 76, 77, 78, 79, 80, 82, 83, 96, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 98, 97, 100, 101, 102, 103, 106, 104, 105, 112, 109, 108, 107, 110, 111, 114, 115, 118, 116, 117, 119, 148, 154, 124, 165, 122, 120, 123, 121, 150, 153, 125, 128, 129, 131, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 151, 149, 202, 175, 164, 152, 167, 155, 156, 157, 158, 159, 160, 161, 162, 163, 195, 169, 166, 168, 170, 171, 172, 199, 174, 173, 196, 200, 176, 177, 180, 178, 179, 182, 189, 187, 184, 186, 191, 192, 193, 194, 197, 198, 201, 203, 229, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 236, 231, 232, 233, 234, 235, 237, 240, 239, 241, 243, 242, 244,