ceza abü forumun aq sun ha :D

iiyykkk matematik :| bu hoca kimdir nedir hacı? sor bakayım kendisi çzebiliyormuş bu olayı. başım dndü yaw kendinize ayığ olunuz

yok mu beyler fikri olan :) Makaleyaz. Net - Türkiye'nin Makale Alım-Satım Platformu

benim ekran bide 800 600 hiçbişe gremiyom düşünün artık :| zgürlüğü anladıkça ona daha az sahip olursun.

Neyse beyler az bucuk düzenlemeye çalıştım... Şimdi bişi anlaşılır umarım... Not: Sagol Compu abi, Allah razı olsun :) Pascal Yaz Okulu ProjesiTanımı: 1) Bu devde Scientific Hesap Makinesi yazılacak.2) Hesap Makinesinde parantezler ile girilen İnfix ifadeler, postfix ifadeye çevrilerek, ve ondan sonra stack veri yapısı kullanılarakçzülecektir. Hesap makinasının ana 4 işlemden başka; Cos, Sin, Tan, Log, Exp işlemleride yapılacaktır. Amaç: İnfix ifadeli hesapları Postfix ifadeye çevirip işlem yaptırmak... İnfix İfadeyi PostFix'e Çevirme Algorityması1. Baslangıcta Stack bos ve postfix ifade "" olsun.2. İnfix ifadedeki her karakter icin {3. Eger sayi ise: deger postfix ifade ekle4. Eger ac-parantezse "(": Stack'e koy '('koy.5. Eger kapa-parantez ")": Stackten '(' ac-parantez gorene kadar stackten karakterleri çıkar, postfix ifadeye ekle.6. Eger aritmetik islemse : Stackten karakterleri nceliği yükselt ve esit olanları stackten çıkar, postfix ifadeye ekle. Yeni aritmetik karakteri stack'e koy. stack te geri kalan karakterleri çıkar, postfix ifadeye ekle... İşte burda şu parantezli işlemleri Postfix 'e (yani sıradan 4 işleme, işaret nceliğine gre çeviren) kodların algoritmasını yaptık beyler.. Bu çevirme algoritması, bir postfix elde eden algoritma var:1. Bas bir stack tanımla.2. Postfix ifadedeki her karakter için {3. Eger karakter sayı ise4. Karakteri Stack'e koy5. Eger karakter aritmetik islem ise }9. Sonucu olan değer Stack'den çıkar ve yazdır. birde beyler bu programın template i var ( 1. Partner Adi Soyadi: )( 1. Partner Numarasi: )( 2. Partner Adi Soyadi: )( 2. Partner Numarasi: )( Program Adi: Odev1. Pas ) Program Odev1;Uses crt;Type dizi = Array of char;Const MAX_STACK_SIZE = 100; STACK_FULL = -1;Var StackDolu : Boolean; StackBos : Boolean; sp: integer; stack: dizi; procedure push ;beginif sp >= MAX_STACK_SIZE then begin StackDolu := True;endelsebeginstack :=ch;sp := sp+1;end;end;Function pop : char;beginif sp <> 0 then begin pop := stack ; sp := sp -1; if sp = 0 then StackBos := True;end;end;Begin End. İşte Hepsi Buuuu :) Walla beyler 3. senede aynı dersi almak istemiyom, gece gündüz kasacam buna... onun için elinde dkümanı olanda, bilgisi olanda paylaşırsa çok sevinirim... İnanın hazır istemiyorum, fikir versenizde olur... Şimdiden Sağolun...! Makaleyaz. Net - Türkiye'nin Makale Alım-Satım Platformu

anaaa kıçı başı kaymış :D ya kusura bakmayın, hoca progjeyi verdi direk gittik cafe ye anca yapabildim bu kadarını, c/p yapmak zorundaydım... neyse konu silinsin adminlerce, ben derleyip yeniden açıklarım... zor bişey gerçekden, ama yapamazsamda kalıyom :S araştırcam bakalım bu hafta... Not: adminler silsin, ne olsa boşa açılmış gibi duruyo, herbiden bişi anlaşılmamış :D Makaleyaz. Net - Türkiye'nin Makale Alım-Satım Platformu

Hoca bu pascaldan cok matematik :) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Edit: ComputerWolf http://www.speedyshare.com/671794627.html Word'e aktardim, bakmak isteyen dosyayi cekip baksin, furumun anasi aglamis kaymis :D duzenle butonunu bulana kadar ne cektim... Konunun ilk mesaji dahil hepsi linkteki dosyada oradan cekin... Makaleyaz. Net - Türkiye'nin Makale Alım-Satım Platformu

konunun boku çıkmış sanırsam :D, mesajlar felan kaymış gitmiş. keşke copy paste yapmasaydın bee Bizim olduğumuz her yerde herşey bizim yüzümüzden olmuştur. Ben benim amk bana bişey olmasın!