“informatika va axborot tehnologiyalari” fani

4- Topshiriq. Takrorlanuvchi algoritmlarni tahlil qilib ko’ring unga ta’luqli

bo’lgan misol va masalalar eching.

Misol: Quyidagi yig‘indini hisoblash masalasini ko‘raylik.

!

...

!

!

n

x

x

x

x

S

n

+

+

+

+

+

=

3

2

1

3

2

Program sum2;

Var

      s, x : real;

      i, p : integer;

Begin read(x, n);

      s:

=1;

       i:

=1;

      p:

=1;

While i<

=n do

Begin p:

=p*x/i;

           s:

=s+p;

           i:

=i+1;

End;

Write(s);

End.

Misol. Turli ko’rinishdagi mahsulotlarni o’zaro solishtirib, tahlil qilib

bajarilish foyizini hisoblash dasturini tuzishni ko’rsatib o’tamiz.

Buning uchun bizga qo’yidagi ma’lumotlar kerak bo’ladi.

Tartib raqami                            Mahsulotlar              Foiz %

    A        

B          C

 B/A     C/A      C/B

    1

100   125

    109

    2

147     87

      99

    3

200   158

    137

    4

226   195

    207

    5

334   295

    267

Dasturi

Programm (Input, output);

 Const N=5

    Var I: Integer;

        A,B,C: Array 1…..5 of real;

---

F1, F2, F3: real;

 Lp: text;

Begin

      Rewrite (Lp);

      Writeln (A massivni kiriting);

       For I:= 1 to n do read (A[I]);

      Writeln (B massivni kiriting);

      For I:= 1 to n do read (B[I]);

      Writeln (C massivni kiriting);

      For I:= 1 to n do read (C[I]);

      Writeln (lp, ---,---,---,---,---,---,);

      Writeln (lp, “:A:B:C: B/A:C/A:C/B:”);

      Writeln (lp, ---,---,---,---,---,---,);

      For I:= 1 to n do Begin

                                          F1:= B[I]/ A[I]*100;

                                          F2:= C[I]/A[I]*100

                                          F3:= C[I]/B[I]*100