Bob. Algoritmlar haqida dastlabki tushunchalar

1.1.  boshlash;

1.2.  tomonlar qiymatini  kiritish  (a,  b);

1.3.  perimetr qiymatini  hisoblash (p);

1.4.  diagonal  qiymatini  hisoblash  (d);

1.5.  yuzasini  hisoblash (s);

1.6.  perimetr,  diagonal  va yuzasini qiymatini chop etish.

2. 

Formulalarda berish:

2.1.  A va В  to‘rtburchak tomonlari  qiymatlari;

2.2. 

P=2*a+2*b;

2.3. 

D = ^ r +b

2.

•

2.4.  S=a*b;

2.5.  P,  D  va  S  qiymatlarini  chop etish

3. 

Blok-sxemalarda tasvirlash:

il

---

4.  Dastur shaklida  ifodalash:  (Paskal  dasturlash tili misolida) 

Program

 to 4 rtburshak yuzi;

Var a,  b:  Integer;

P,  d,  s:  real,

Begin

Write  ( ‘a,b  tomonlarni qiymatlari kiritilsin’);

ReadLn(a,b);

P:=2*a+2*b;

D: —sqrt(sqr(a) +sqr(b));

S:=a*b;

W riteLn(‘to ‘rtburshakperim etri^ \p);

WriteLn( 'to ‘rtburshak dioganperli= ’,d);

W riteLn(‘to  rtburshakyuzasi=  \S);

End.

Hozirgi  kunda juda  ko‘p algoritmik  tillar  mavjud  bo‘lib,  ularni 

dasturlash  tillari

  deb  ataymiz.  Algoritmik  til-  algoritmlarni  bir  xil 

va  aniq  yozish  uchun  ishlatiiadigan  belgilashlar  va  qoidalar 

tizimidir.  Algoritmik  til  oddiy  tilga  yaqin  boMib,  u  matematik 

belgilarni  (yuqorida  avtilganidek)  o ‘z  ichiga  oladi.  Q o‘yilgan 

masalaiarni  yechishga  tuzilgan  algoritmlarni  to ‘g ‘ridan-to‘g‘ri 

mashinaga  berib,  yechib  bo‘lmaydi,  shu  sababli  yozilgan  algoritmni 

biror-bir  algoritm ik  tilga  o ‘tkazish  zarur.  Har  qanday  algoritmik  til 

o ‘z  q o ‘llandish  sohasiga  ega.  Masalan,  o'quv  jarayonlari  uchun 

Pascal.  Delphi,  VBA, java, C++-dasturlash tillari  va boshqalar.

1-misol:  kiritilgan  n-natural  sonni  tub  ko‘paytuvchilarga 

ajratuvchi  algoritmni  Pascal  dasturlash  tilida  ifodalanishini  ko‘rib 

chiqamiz:

var  i, к: integer;  n; integer;

a.arrayfbyte]  o f  integer;  label qq;

 

procedure opr(nn: integer);

 

begin  i:=2;

 

while(nn>0)  do

 

begin

i f  nn m od i= 0 then write(i,1 );

i:= i+ l;

nn: =nn div i;

end;

12

---

end:

begin

readln(n);

k:= l;

fo r  i:

 

=2 to n do

 

while  (n m od i=0) do

begin  a[k]:=i;  write(a[k],'');  n: =n div i ;  k:=k+J; end;

writeln;

readln: