Информатика предметинен мисалдарды чыгарууга мисалдар

Информатика предметинен мисалдарды чыгаруу

1.Мисал. Оюн соокчосун он жолу ыргытуудан топтолгон упайлардын
суммасын эсептоочу программа тузуу талап кылынсын.
Оюн соокчосундо 1 ден 6 га чейинки маанилер бар. Соокчону
ыргытууда ушул маанилердин бири тушот. Циклдин кайталануу саны
белгилуу болгондуктан анык параметрлуу циклдик операторду
колдонобуз. Упайларды кокустук санды аныктоочу функцияны
колдонуп n int( rnd (1) * 4 1) туюнтмасынын жардамында алабыз.
Чыгаруу.
s=0
For i=1 to 10
n=int(rnd(1)*4+1)
s=s+n
Next i
? “10 жолку ыргытуудагы упайлардын суммасы ”;s

2.Мисал. Спортсмен машыгууну 1 км аралыкты чуркап отуу
менен баштайт. Ар бир кийинки куну мурунку кунго караганда 150 м
ге аралыкты узартат. Канчанчы куну спортсмендин чуркап отуу
аралыгынын узундугу 3 км ден ашат?
Чыгаруу.
s = 1000
k = 1
While s s = s + 150
k = k + 1
Wend
Print k; “ – куну”
3.Мисал. Киргизилген нол эмес сандардын арасынан канча сан озунун
он жактан жана сол жактан коншулаш сандарынан чон экендигин
аныктоочу программа тузгуло.
Чыгаруу.
K = 0
1: Input "Биринчи эки санды кийириниз"; P, X
35
If P = 0 or X = 0 then 1
While X 0
Input " кийинки санды кийириниз(0 - чыгуу)"; S
If X P and X S then K = K + 1
P = X
X = S
Wend
? "Коншулаш сандарынан чон б-н сандардын саны"; K