eyvallah hocam dkümanlar için. işimize yarayabilir belki bunlar Ban Sebebi : Molrada Haarket Eiğtti için Bdnlaanı... Türkçe ğretmenliği okuyan arkadaşım sana ders verebilir admin arkadaş :)

sen sor ben kaynak dokumanim Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

hocam pascal bilmiyorum ama en alttaki end. var ; yok ondan olabilir mi? DeadSoul tarafından 25/Şub/13 21:01 tarihinde düzenlenmiştir

bigwave'e pm atarsan onda üniversiteden kalan ders notlar olabilir. herkes programcı olmak zorunda değildir, lütfen bir zorunluluk gibi programlama dilleri ğrenmeye çalışmayın. yabancı dil filan ğrenin amq.// s. kimin etini yerim, kasaba minnet etmem.// ince düşünene kalın girer.//

burdan ulaşabilirsiniz http://hotfile.com/dl/78315332/e0fe707/delphi7 . pdf respects 4G Bilişim Mehmet Sait DAŞ Software Programmer www.4gbilisim.com www.facebook.com/4gbilisim

Hocam bende 1. sınıftan pascal notları vardıda bakalım bulabilecekmiyim. Bulursam atarım buraya. Bide soruyu yazsana yardım edebilirmiyim bakayım, gerçi 3 sene geçti aradan hatırlıybilecekmiyim orası mechul :D Bilge insanlar konuşurlar çünkü syleyecek bir şeyleri vardır. Aptal insanlar konuşurlar çünkü bir şey sylemek zorundadırlar. Demokrasi, bir eğitim işidir. Eğitimsiz kitlelerle demokrasiye geçilirse oligarşi olur. Devam edilirse demagoglar türer. Demagoglardan da diktatrler çıkar. --Platon, Devlet

Bi pascal devim var ama pascala dair birşey bilmeyince sıkıntı. Şyle zet geçen basit bi kaynak lazım, varmı gren duyan bilen? Ben tık tık hallederim, yahut ben iskeleti kodlarım kalanını sen yaparsın diyen çıkarsa onlar da kabulum :) :)

neyse hallettim if and then yapGitsin; olacakmış. Parantezler olmadan olmuyomuş wasd tarafından 05/Mar/13 11:47 tarihinde düzenlenmiştir :)

Bulunduğun il neresi. Elimde pascal kitabı fotokopisi var. Akıl verme para ver a. q.

Hocam buyur bizim blümün bilgisayar programlamaya giriş notları. https://docs.google.com/open?id=0ByahjZ0QIf58ejI2eU1FaWFjRms Tüm Dosyalar https://docs.google.com/open?id=0ByahjZ0QIf58ZnJKcnB4dFlWaVk Tüm Dosyalar2 https://docs.google.com/open?id=0ByahjZ0QIf58aW9UYlJWUjcxWEE 2 https://docs.google.com/open?id=0ByahjZ0QIf58T0JzREpHd185dG8 3 https://docs.google.com/open?id=0ByahjZ0QIf58ekIwN3RyRFlUdlk 4 https://docs.google.com/open?id=0ByahjZ0QIf58c1VTU2U4V0hDZzA 5 https://docs.google.com/open?id=0ByahjZ0QIf58MlhZdUNxNmlrY0E 6 https://docs.google.com/open?id=0ByahjZ0QIf58MmF6blprekQtcXM 7 https://docs.google.com/open?id=0ByahjZ0QIf58TDQyTENlODVYN00 7_2 https://docs.google.com/open?id=0ByahjZ0QIf58aVQ1X0lsWWdoTjA 8 https://docs.google.com/open?id=0ByahjZ0QIf58eEx1WDgxbUd3NE0 8_2 https://docs.google.com/open?id=0ByahjZ0QIf58ZUthTVBubEVYY3M 9 https://docs.google.com/open?id=0ByahjZ0QIf58TmZpNk9OVWU2M28 9_2 https://docs.google.com/open?id=0ByahjZ0QIf58a2lfYTJQSTFVTTg 10 https://docs.google.com/open?id=0ByahjZ0QIf58aW1uZGVEZ05VNDg rnek sorular. pdf https://docs.google.com/open?id=0ByahjZ0QIf58YjNMSWR6LW05UDQ rneksorular. doc Bilge insanlar konuşurlar çünkü syleyecek bir şeyleri vardır. Aptal insanlar konuşurlar çünkü bir şey sylemek zorundadırlar. Demokrasi, bir eğitim işidir. Eğitimsiz kitlelerle demokrasiye geçilirse oligarşi olur. Devam edilirse demagoglar türer. Demagoglardan da diktatrler çıkar. --Platon, Devlet

Aşağıdaki kodlarda syntax hatası veriyor ama anlamadım neye hata verdiğini program yol_bilgisayari; uses crt; procedure islemMenusu; begin end; procedure yolBilgisayariMenusu; begin end; procedure anaMenu; var secim : Integer; begin clrscr; writeln('1 - Islemler'); writeln('2 - Yol Bilgisayari'); writeln('3 - Cikis'); readln ; case secim of 1 : islemMenusu; 2 : yolBilgisayariMenusu; 3 : halt; end; begin anaMenu end. :)

Harcanan benzinin hesabını yapmadığım için alınan benzin aynen duruyor, haliyle ortalama yakıt tüketimi hesabıda yok. Nesne kullanmam lazım ama ben düz yazdım, bazı fonksiyonlarla değişkenleri bi yapı içinde toplayınca bitmiş olcak. Ondalık sayıların gsteriminde sıkıntı var; 6,000000E01 gibi upuzun yazıyo, bunun hakkında sorabilirim. Şu anda herşey roundlanmış durumda :D pascalda nesne konusunu bilmiyorum, diğer dillerdeki gibi mi kullanıcam? Yani type begin yolBilgisayari = object; degiskenler fonksiyonlar end; şeklinde tanımlayıp daha sonrada var yolBilgisayariNesnesi : yolBilgisayari; yapıp yolBilgisayariNesnesi. Fonksiyon; şeklinde mi kullanıcam? :)

Banada lazım up... Ban Sebebi : Molrada Haarket Eiğtti için Bdnlaanı... Türkçe ğretmenliği okuyan arkadaşım sana ders verebilir admin arkadaş :)

Sakaryadayım. Hepsiburadada var kitap 15kağıda, ama pascalla bu dev dışında işim olmayacağı için almak istemiyorum. Yinede sağol :) :)

Sorunların çoğunu çzdüm hallettim. 30 satırlık kod şu anda 221 satır oldu ancak bazı yerlerde takılmış bulunmaktayım. Mesela; c'de falan if yapGitsin; şeklinde yapılan kontrolü yapamıyorum çünkü && operatrü hata veriyor, and diyorum o da hata veriyor. Buna bi çzüm bulmalıyım :/ :)

Kolay gelsin Müritler; Belki bunun yeri burası değil Elimde güzel merkez bankasını delphi ye atan kod var belki birinin işini grür ben çok uğraştım benden sonrakiler byle zahmete girmesin Şimdi Türkiye standarları ondalık basamıklı sayılar, ile ayrılır. ama Avrupa standartı. ile ayrılır şimdi aşağıdaki kodlamada kurları nokta ile alıyor bunu virgülle çeviriyor procedure TForm3. BitBtn6Click ; var s, alis, satis, aranan:string; yer, i:integer; begin try form8. servis. Insert; bildirimtarihi. Date:=date; randevutarihi. Date:=date; s:=IdHTTP1. Get ; aranan:='ABD DOLARI'; for i:=0 to 1 do begin yer:=pos ; if yer=0 then begin //StatusBar. SimpleText:='Kur Bilgisi Alınamadı'; exit; end else begin yer:=yer+length ;//bulunan yerden sonraki kısmı al s:=copy(s, yer, length -yer); //boşlukları at s:=Trim ;//sonraki basamak kura ait alış fiyat bilgi alis:=StringReplace(Trim(copy(s,1,6) ),'.',',', ); s:=copy(s,7, length -6);//boşluklar atılır s:=Trim ; satis:=StringReplace(Trim(copy(s,1,6) ),'.',',', ); if aranan='ABD DOLARI' then begin ////dolar satis dbedit1. Text:=satis; end else begin ////euro satis dbedit3. Text:=satis; end; end; aranan:='EURO'; end; except on e:Exception do begin StatusBar1. SimpleText:='Kur Bilgisi Alınamadı'+e. Message; end; end; end; şimdi sizlere nerede çevirme yaptığını anlatayım çevirmesiz alis:=copy(s,1,6) -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- çevirmeli alis:=StringReplace(Trim(copy(s,1,6) ),'.',',', ); -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- -. _.- bunları yapmadan blgesel dil ayarları kısmında da nokta yı virgül virgüllü nokta yapabilir siniz ama bu seferde büyük bir proje yapımında karışıklıklar meydana getirecektir... respects 4G Bilişim Mehmet Sait DAŞ Software Programmer www.4gbilisim.com www.facebook.com/4gbilisim

Dkümanlar için teşekkürler :) daha fazlası için up up :)