Main » 2013 » March » 21 » cи хэлний лавлах
2:28 PM
cи хэлний лавлах

си хэл дээр давталтыг програмчлах:

1. Эхэндээ нөхцөлтэй давталт  while (нөхцөл)   {үйлдлүүд  }

Энэ нь нөхцөл үнэн байвал үйлдлийг давтах  ба нөхцөл худал болмогц зогсооно.

2. Төгсгөх нөхцөлтэй давталт  doүйлдэлүүд } while  (нөхцөл)

Энэ нь  нөхцөл үнэн болмогц  давталтыг зогсооно.

Параметрт давталт  For (k=a ; k<=b ; k+=c ) { үйлдлүүд }   энд     k давталтыг тоологч, а -эхлэх утгад в төгсгөх утга, с өөрчлөгдөх алхам

Хэрэглэх жишээ:

/* {a- аас хэтрэхгүй тэгш тоонуудын нийлбэрийг ол.}*/

#include <stdio.h>    #include<stdlib.h>    int main()

{int  s, n, a ;

printf ("toogoo oruulna uu? a=");   scanf("%d",&a);

 s=0;  n=1;     a=a / 2 ;  /*эхэндээ нөхцөлтэй давталт аар*/

while(n<=a)    {  s:=s+2*n;  n++; }

  printf ("tegsh niilber=%d " s);

}

2-р арга Төгсгөлдөө нөхцөлтэй давталтаар бодох

/*{a- аас хэтрэхгүй тэгш тоонуудын нийлбэрийг ол.*/

#include <stdio.h>    #include<stdlib.h>    int main()

{int  s, n, a ;

printf ("toogoo oruulna uu? a=");   scanf("%d",&a);

 s:=0; n:=1;     a=a / 2 ;  /*төгсгөлдөө нөхцөлтэй давталт аар*/

do     {  s=s+2*n;  n++; }  while  (n<=a)

  printf ("tegsh niilber=%d " s);

}

3-р арга: Параметрт  давталтаар

/*  bod_7; {a- аас хэтрэхгүй сондгой тоонуудын нийлбэрийг ол.}*/

#include <stdio.h>    #include<stdlib.h>    int main()

{int  s, k, a ;

printf ("toogoo oruulna uu? a=");   scanf("%d",&a);

 s=0;  k=1;     b=a / 2 ;  /*параметрт  давталт аар */

  for (k=1; k<=b; k++) {  s=s+2*k+1;   } 

  printf ("tegsh niilber=%d " s);

}

1 to n do

       Writeln(‘my name  ’);

Program bod8;{name}

Var n,a,i:integer;

Begin

 Writeln(‘toogoo oruulna uu? n=’);

Readln(n); a:=1;

  Repeat  Write (‘my name     ’);     a:=a+1;   Until(a>n);

readln end.

 

Program bod7;

{Өгсөн бүхэл тооны цифрүүдийн нийлбэрийг ол.}

Var n, s : integer;

Begin  writeln(‘toogoo oruulna uu   n=’);

 Readln(n);

Repeat    s:=s+ n mod 10;    n:= n div 10;  until(n=0);

writeln( ‘tsifriin niilber S=’, s);    readln end.

 

Program  hurd;  {Үржүүлэхийн хүрд}

 Var a, b : integer;

Begin  

  For  a:=1 to 10 do

      Begin  For b:=1 to 10 do

                 Begin   writeln(a,  ’ * ‘,   b ,   ‘= ‘,   a*b);  end;     writeln;

      end;      readln      end.

Views: 652 | Added by: Ub-Game | Rating: 0.0/0
Total comments: 0
Name *:
Email *:
Code *:
Только новые и работающие шаблоны UCOZ под ваши проекты различных тематик можно скачать бесплатно на ucozshablony.ru.
Также легко можно найти бесплатные шаблоны UCOZ на truetemplates.ru и скачать их сразу с сервера.
Если там не смогли подобрать подходящую шкурку для вашего сайта, то на promowebber.ru вы легко найдете шаблоны UCOZ с рабочим конструктором и быстро скачаете их себе.
Если юкоз не для Вас, то используйтеjoomla! шаблоны и делайте проекты, которые Вам нравятся.
Если же Вас интересует DLE, то - шаблоны для DLE придутся очень кстати.
Но если вы блогггер, то вам пригодятся бесплатные шаблоны wordpress , переведенные на русский язык и доступные для скачивания на высокой скорости.