Algoritmlash p65. p65

A lgoritm ik
tilim izda
BASIC
PASCAL va DELPHI
o‘tkaz a+b,  p 
o‘tkaz c+p,  p 
o‘tkaz p/2,  p 
o‘tkaz p-a, a 
o‘tkaz p-b,  b 
o‘tkaz p-c,  c 
o‘tkaz p  a,  G 
o‘tkaz G  b,  G 
o‘tkaz G  c,G
INPUT "a  ni  kiriting  ",  a 
INPUT "b  ni  kiriting  ",  b 
INPUT "c  ni  kiriting ",  c
P=(a+b+c)/2 
Gkv=  p*(p-a)*(p-b)*(p- 
c)  Print "G  kvadrat="; 
Gkv
Var 
a,b,c:  Integer;
P,  Gkv:  Real;
Begin
Write(‘a  ni  kiriting  ‘);  ReadLn(a); 
Write(‘b  ni  kiriting  ‘);  ReadLn(b); 
Write(‘c  ni  kiriting  ‘);  ReadLn(c); 
P:=(a+b+c)/2; 
Gkv:=p*(p-a)*(p-b)*(p-c); 
WriteLn(‘G  kvadrat=‘,Gkv);
End.
Dastur tuzish  oson tuyilayotgan bo‘lsa,  quyidagi  masalani  hal 
eting.
10.4-m asala
A  va  B sonlar berilgan.  Q o‘shimcha  o‘zgaruvchi  kiritm asdan A 
va  B  sonlarning  qiym atini  almashtiring  ya’ni,  masalan,  A =  7  va 
B = 2 1   bo‘lsa,  dastur  ishlaganidan  keyin  A =  21  va  B = 7   bo‘lishi 
kerak.