( ********************************G PROGRAMI YUKLEMEDEN ONCEg SIMON'S BASIC'I YUKLEMEYI UNUTMAYIN......!!! ******************************** ******************************** SIMPLEX YONTEMI ILE  LINE ER PROGRAMLAMA  SELCUK BIROL<  ********************************a d CO(12,12),WE(12),IB(12),RT(12)} n "DEGISKEN SAYISI:";NV x "KISIT SAYISI:";NE "ITERASYON SAYISI";NT d3 GIRIS  T1 NT S1WE(1) JE1  J2 NV  WE(J)S1 560 S1WE(J)" &JEJ* 0 J: :S2999999.9I D I1 NEa N CO(I,JE)0 630w XRART(I)CO(I,JE) b RAS2 630 lS2RA: ILI v I JLIB(IL) d3 CIKIS  S10 S2999999.9 1650 CNCO(IL,JE)  J1 NV CO(IL,J)CO(IL,J)CN 2 RT(IL)RT(IL)CNA  I1 NER * IIL 860b 4CNCO(I,JE)q > J1 NV HCO(I,J)CO(I,J)CNCO(IL,J) M RRT(I)RT(I)CNRT(IL) \ fCNWE(JE) p J1 NV zWE(J)WE(J)CNCO(IL,J)  OBOBCNRT(IL) IB(IL)JE 7  "OPTIMAL COZUM";OB^ r "OPTIMUM COZUM":d 2,10::di:k d1 GIRISu  ""  : : "  AMAC FONKSIYONU KATSAYILARI " d 2,10: 1,0  "(X)";: J0 NV1  J4NV1);J1;  : "=MAX Z"0  " -----------------------------------------"A  J0 NV1]  J4 NV);:1,WE(J1)c |  "=";:1,OB : :: " KISITLARIN KATSAYILARI " I1 NE: I;">"; J0 NV1 J4NV);:1,CO(I,J1) : "=";:1,RT(I): : :2 " ESAS DEGISKENLER "A I1 NER ;:1,IB(I)Z Ie 1:dil d4yd1 CIKIS "": T1;".";"ITERASYON" "  AMAC FONKSIYONU KATSAYILARI " " (X)";: J0 NV1 J4 NV );J1;  : "=MAX Z"> " -----------------------------------------"O J0 NV1y J4 NV);:d, "##.#",(WE(J1)): ;d, "###.#",(OB): " KISITLARIN KATSAYILARI " I1 NE: I;">"; J0 NV1 J4NV);:d, "##.#",(CO(I,J1)): ;A :d, "###.#",(RT(I)):;: : :j "GIREN DEGISKEN";JE;"CIKAN";JLu 1:di X$: X$"" 5055d4