InfoHub Logo

ساباقتىڭ تاقىرىبى: §19. «سيكلدەردى ۇيىمداستىرۋ» تاقىرىبى بويىنشا تاجىريبەلىك جاتتىعۋلار
ساباقتىڭ ماقساتى:
بىلىمدىلىك: وقۋشىلاردىڭ سيكلدى ۇيىمداستىرۋ ارەكەتتەرىن مەڭگەرتۋ، ءتۇسىندىرۋ، ۇيرەتۋ
دامىتۋشىلىق: وقۋشىلاردىڭ ويلاۋ قابىلەتىمەن قىزىعۋشىلىعىن ارتتىرۋ
تاربيەلىك: ەڭبەككە، ۇقىپتىلىققا، ىزدەنىمپازدىققا تاربيەلەۋ.
ساباق ءتيپى: وتكەن ساباقتى قايتالاۋ
ساباق ءتۇرى: پراكتيكالىق ساباق
ساباق جابدىعى: دك، تقە، وقۋلىق، Free Pascal، TURBO PASCAL 7. 1 پروگرامماسى

ساباقتىڭ بارىسى
1. ۇيىمداستىرۋ كەزەڭى
2. ءۇي جۇمىسىن سۇراۋ
3. تاپسىرما ورىنداۋ
4. ساباقتى بەكىتۋ (تاپسىرمالاردىڭ ورىندالۋىن تەكسەرۋ)
5. ۇيگە تاپسىرما بەرۋ
ءۇي جۇمىسى: §18. For وپەراتورى

جاڭا ساباق بويىنشا
تاپسىرمالار ورىنداۋ
ا دەڭگەيى
№1 ەسەپ. 1 - دەن 15 - كە دەيىنگى بارلىق ءبۇتىن سانداردىڭ كۆادراتتارىنىڭ قوسىندىسىن تابىڭدار
Program Esep_1A؛
Uses crt؛
Var i، S: integer؛
Begin
S:=0؛
For i:= 1 to 15 do S:=S+Sqr(i)؛
Writeln؛
Write (‘Kbadrattarinin kosindisi - ’، S)؛
Readln
End.
RUN Kbadrattarinin kosindisi - 1240
12 + 22 + 32 + 42 + 52 +62 + 72 + 82 + 92 + 102 + 112 + 122 + 132 + 142 + 152 =
1+4 +9+16+25+36+ 49+64 +81+100+121+144+169+196+225 += 1240
RUN For i:= 1 to 5 do S:=S+Sqr(i)؛ 5 - كە وزگەرتسەك، Kbadrattarinin kosindisi - 55
RUN For i:= 1 to 10 do S:=S+Sqr(i)؛ 10 - عا وزگەرتسەك، Kbadrattarinin kosindisi - 385

قىزىلوردا وبلىسى،
قارماقشى اۋدانى، تۇرماعامبەت اۋىلى
ت. ىزتىلەۋوۆ اتىنداعى №29 ورتا مەكتەپتىڭ
ينفورماتيكا ءپانىنىڭ ءمۇعالىمى
احمەتوۆا ءابيبا كالاج قىزى

سيكلدەردى ۇيىمداستىرۋ تاقىرىبى بويىنشا تاجىريبەلىك جاتتىعۋلار. جۇكتەۋ