UYGULAMA 7 -15 Ekim 2009

Klavyeden yaklasik olarak yaricap degeri ve insan sayisi verilen bir sehir icin,
yogunlugu hesaplarak ekrana yazdırılması...
---------------------------------------------------------------------------------

PROGRAM YOGUNLUK;

CONST PI: = 3.14;

VAR nufus, yogunluk, yaricap: REAL;

BEGIN

WRITELN('Yogunlugunu hesaplayacağınız şehrin: ');
WRITE('a- Yarıçap değerini km cinsinden giriniz: ');
READLN(yaricap);
WRITE('b- İnsan sayısını yazınız: ');
READLN(nufus);

yogunluk := PI * SQR(yaricap) / nufus;

WRITELN('Yoğunluk değeri = ', yogunluk:8:2, 'km2/kişi dir.');
WRITELN('Bir tuşa basınız...);

READLN;

END.