Forum
Aktif konular
Üyeler
Kurallar
Arama
Pascal Projesi Yardım (2 Kere Düşün Öyle Gir :) ) Pascal Projesi Yardım (2 Kere Düşün Öyle Gir :) )
-
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...
-
Hoca bu pascaldan cok matematik :)
-
konunun boku çıkmış sanırsam :D, mesajlar felan kaymış gitmiş. keşke copy paste yapmasaydın bee
-
iiyykkk matematik :| bu hoca kimdir nedir hacı? sor bakayım kendisi çözebiliyormuş bu olayı. başım döndü yaw
-
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 -
ceza abü forumun aq sun ha :D
-
benim ekran bide 800*600 hiçbişe göremiyom düşünün artık :|
-
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 Projesi
Tanı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 (Üs alma) 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 "" (bos) olsun.
2.İnfix ifadedeki her karakter icin {
3.Eger sayi ise: deger postfix ifade ekle
4.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.
{isaret önceliği "(">"*,/">"+,-")
}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 göre ç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ı ise
4.Karakteri Stack'e koy
5.Eger karakter aritmetik islem ise {
6.iki tane elemani stack den çıkar
7.iki eleman üzerinde verilen islemi yap
8.sonucu stack'e yaz
}}
9.Sonucu olan değer Stack'den çıkar ve yazdır.
birde beyler bu programın template i var (hazır dizili şablonu)
(* ******************************************************* *)
(* 1. Partner Adi Soyadi: *)
(* 1. Partner Numarasi: *)
(* 2. Partner Adi Soyadi: *)
(* 2. Partner Numarasi: *)
(* Program Adi: Odev1.Pas *)
(* Aciklamasi: *)
Program Odev1;
Uses crt;
Type
(* Ozel veri tiplerini yazin *)
dizi = Array [1..100] of char;
Const
(* sabit degerler varsa yazin *)
MAX_STACK_SIZE = 100;
STACK_FULL = -1;
Var
(* Degisken tanimlamalari *)
StackDolu : Boolean;
StackBos : Boolean;
sp: integer;
stack: dizi;
(*Label
Etiketler varsa yazin *)
(* Buradan sonra Procedure ve Function'lar yazilacak *)
procedure push(stack: dizi; ch: char);
begin
if sp >= MAX_STACK_SIZE then begin
StackDolu := True;
end
else
begin
stack[sp]:=ch;
sp := sp+1;
end;
end;
Function pop(stack : dizi): char;
begin
if sp <> 0 then begin
pop := stack[sp];
sp := sp -1;
if sp = 0 then
StackBos := True;
end;
end;
Begin
(*Ana program *)
End.
İşte Hepsi Buuuu :) Walla beyler 3.senede aynı dersi almak istemiyom,gece gündüz kasacam buna...onun için elinde dökümanı olanda,bilgisi olanda paylaşırsa çok sevinirim...İnanın hazır istemiyorum,fikir versenizde olur...Şimdiden Sağolun...! -
yok mu beyler fikri olan :)
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla