Sayfa 52

Sonunda x -216.689825 ve 1-23

— olarak hesaplanır ve print edilir. 250 x? — (Pisagor B Xx s XB — |600? 4 (1000-x)* teoreminden) 125 250 Bataklığı 0X-250 | seçme süresi - SI SAX saat x Normal yeri 3000 NALET seçme adresi S2- XB saat 125 187-5 250 5000 0X-125 Toplam süre - SI * S2 10 15

26 ve 25 sa 35 45 sa

İF THEN IF THEN IF THEN 15 PRINT DEGERİ VEREN "ITERASYON

Programda yukarıdaki sistem kullanılmıştır. Yalnız Y değerleri toplam sürenin 1000 katı olarak hesaplanır. Çünkü her iki Y değerini de 1000'e bölmek kıyaslamayı etkilemediğinden bu işleme gerek yoktur. O

Adres: Mustafa ATA Rüştüsarp Cad. Gonca Sok. Gonca Apt. No: 4/8 Küçükyalı/ İstanbul

Sayın Commodore Dergisi İlgilileri, Derginizin 5. sayısında yayınlanan yarışma sorusunu çözdüğümü sanıyorum. BASIC programına esas olan denklem ve bu denklemin parçalanmış halde yer aldığı program aşağıdadır. Ödül olarak verilen Türkçe Reference Guide kitabını kazandığımı umarım. Saygılarımla, H. Ahmet Kurşun

Adres: T. Emlak Kredi Bankası Fen Servisi Bornova-İzmir

DENKLEM: ( BASIC PROGRAM:

10 160000: W— 360000: 1000 20 DEF FNA(X)— ((SOR(X*X * 4 13) 4 ((SOR(Y-X)* (Y-X) 4 30 .NIM- FNA(0) 40 FOR X-.I TO 1000 STEP .1 SO0IFMIN FNA(X) THEN MIN—- FNA(X):XM-X 60 NEXT 70 PRİNT “EN KISA SÜRE İÇİN X'İN DEĞERİ-”; XM

80 PRINT “EN KISA SÜRE ”; MİN 90 END

* 600?) * 60 100 (Dk.)

NETİCE: m. MİN — 20.94 dk.

İLE PROGRAMLAMA

|