Algoritmlash p65. p65

A lgoritm ik tilim izda
BASIC
PASCAL va DELPHI
o‘tkaz23.14,L 
o‘tkaz L  R,L
INPUT "R  ni  kiriting  ", R
L =  2*3.14*R
Print "L=";  L ;  "birlik"
V ar 
R:  Integer;
L:  Real;
Begin
Write(‘R  ni  kiriting  ‘); 
ReadLn(R);
L :=  2*3.14*R; 
WriteLn(‘L=‘,L,‘birlik.‘); 
End.
Dasturni  ishga 
tushirish
F5
PASCAL:  C trl+F9; 
DELPHI:  F9
11.3-m asala
Tom onlari  mos  ravishda,  ju ft  natural  a,  b,  c  son  bo‘lgan 
ix tiy o riy  uchburchakning yuzini kvadratini Geron form ulasi orqali 
hisoblash  dasturini tuzing.
215

---

Yechim. Uchburchak yuzining kvadratini hisoblash uchun yarim  
perim etr va  Geron  form ulasini yozib  olamiz:
P =
a + b + c
G2  = ( p   (p -  a)  (p -  b)  (p -  c))  = p • (p -  a ) • (p -  b) • (p -  c).
D astur tuzishda  BA SIC   da muammo  yo ‘qku,  le kin   PASCAL 
va  D E L P H I  da yana  o ‘zgaruvchilarning  tu rin i  aniqlab  olishim iz 
shart.  Berilgan  a,  b,  c  sonlar  natural  (demak,  butun)  hamda 
ju ft.  U   holda  P  ham  ju ft  va  2  ga  b o ‘lganda  butun  son  hosil 
b o ‘ladi.  G eron  form ulasida  faqat  ayirm a  va  ko ‘paytm alar  bor, 
demak,  u n i  qiym atining  kvadrati  ham  butun.  Lekin,  PASCAL 
va D E L P H I tilla r i bo ‘lish natijasini doim  haqiqiy deb  hisoblaydi. 
Shuning  uchun,  P  ham  G   ham  haqiqiy  (R E A L)  turdagi  o ‘zga- 
ruvchi  deb  tavsiflanadi.