InfoHub Logo

ينفورماتيكا 9 سىنىپ
ساباقتىڭ تاقىرىبى: ەسەپتەر شەشۋ بويىنشا پراكتيكۋم
ساباقتىڭ ماقساتى: وقۋشىلارعا پاسكال ەسەپتەرىن شىعارۋ جولدارىن ۇيرەتۋ؛
بىلىمدىلىگى: تيپتەردىڭ پاسكال تىلىندە جازىلۋ تۇرلەرى تۋرالى ۇعىمدارىن دامىتۋ؛
دامىتۋشىلىعى: وقۋشىلاردى پروگراممالاۋ ءتىلىنىڭ كوماندالارىمەن جانە قۇرىلىممەن تانىستىرا وتىرىپ، لوگيكالىق وي - ورىستەرىن دامىتۋ؛ قورشاعان ورتانىڭ ورتاق قاسيەتتەرى مەن جەكە قاسيەتتەرىن ايىرا بىلۋگە تاربيەلەۋ.
تاربيەلىك: وقۋشىلاردى ۇقىپتىلىققا، جيناقىلىققا ادامگەرشىلىككە تاربيەلەۋ.
ساباقتىڭ ءتۇرى: ءبىلىم بىلىكتى قالىپتاستىرۋ ساباعى

ساباقتىڭ بارىسى:
1. ۇيىمداستىرۋ
2. ءۇي تاپسىرماسىن تەكسەرۋ
3. ەسەپتەر شىعارۋ
4. ۇيگە تاپسىرما

ءىى. ۇيگە بەرىلگەن ەسەپتەردى تەكسەرۋ
ءىىى. ەسەپتەر شىعارۋ:
3 كە بولىنسە سانداردى قوس، 3 كە بولىنبەسە ازايت
program esep؛ var n، m: integer؛ x: real؛ begin write('n=')؛ read(n)؛
write('m=')؛ read(m)؛ if (n mod 3=0) and (n mod 3=0) then x:=n+m else x:=n - m؛
{if a=m/3 then a:=n+m else a:=n - m؛}
write('x='، x: 6: 2)؛ end.
ماكسيمۋمدى تابۋ
program esep2؛ var a، b، c، max: integer؛
begin read(a، b، c)؛ if a>b then max:=a else if b>c
then max:=b else if a>c then max:=a else max:=c؛
write('max='، max)؛ end.
پاسكال ەسەپتەرىن شىعارۋ جولدارىن ۇيرەتۋ جۇكتەۋ