Algoritmlash p65. p65

A lgoritm ik tilim izda
BASIC
PASCAL va DELPHI
o‘tkaz 21 -7,  d
INPUT a
var 
s,a,b:  real;
o‘tkaz b  a,  g
INPUT b
g,d:  real;
o‘tkaz a  d,  d
d=21-b
begin
o‘tkaz d/7,  d
g=b*a
Read(a);
o‘tkaz a+g-d,  S
d=a*d
Read  (b);
d=d/7
d:=21-b;
S=a+g-d
g:=b*a;
Print S
d:=a*d;
d:=d/7;
S:=a+g-d;
Write(S);
end
Dasturni  ishga
F5
PASCAL:  C trl+F9;
tushirish
DELPHI:  F9
10.2-m asala
Radiusi  butun R  bo‘lgan aylananing uzunligini hisoblash dasturi 
tuzilsin.
Yechim:  A ylananing  u z u n lig in i  hisoblash  fo rm u la sin i  esga 
olam iz:  L=2nR .  D asturlash  tilid a   esa  o ‘ng  tom ondagi  ifoda 
2 *3 .1 4 *R   k o ‘ rinishga  yo z ila d i.  D asturda  ik k ita   o ‘zgaruvchi 
qatnashadi:  R va  L.  Masala  shartiga ko ‘ra butun  son.  Shu  sababli 
R  o ‘zgaruvchi  tu rin i  Integer  deb  olamiz.  Aylananing  uzunligi  L  
esa  ko ‘paytmada  n   qatnashgani  uchun,  albatta  haqiqiy  (Real) 
tu rli bo‘ladi. A ytHganlarni hisobga olib quyidagi algoritm  va dastur- 
la rn i  tuzamiz: