Bu sayfadaki yazılar
Sayfanın metni
Sayfa 25
IF THEN BEGİN 'GERCEK IKİ KOK END? IF THEN BEGİN ESİT'); LE #ROUNOD CL); WRITECKİ,!' END; IF D<8 THEN
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 24
Programımız kısaca ikinci dereceden bir denklem çözmektedir. Sırasıyla X1 ve X2'nin değerleri bulunmaktadır. Şimdi programın açıklamasına geçebiliriz. Programı bloklar halinde incelediğimizde gördüğümüz ilk şey, programın ismidir. Daha sonra ise değişkenlerin tanımlanması görülmektedir. Bu değişkenlerin bir bölümü integer, bir bölümü de real olarak tanımlanmıştır.
Bunu izleyen blokta ise Begin anahtar kelimesi ve ekranın temizlenmesi vardır. Değerlerin giderilmesi ile D adı altında verdiğimiz b■2*4*A*C formülüyle delta hesaplanmaktadır.
If deyimiyle ise D'nin alacağı sayısal değere göre X1 ve X2'nin hesaplanması ve ekrana yazdırılması vardır.
Son olarak program içerisinde bulunan Delay ise belli bir süre beklemeyi sağlamaktadır.