
Паскаль тілінде оқу құралындағы кейбір есептердің шығарылу
Сабақ жоспары | Предметы | Информатикадан ашық сабақтар Загрузок: 0 | Просмотров: 3215 | Размер: | Автор: Публикатор9 сыныптарға арналған
Паскаль тілінде оқу құралындағы кейбір есептердің шығарылу
Авторы:
С.Адамбеков атындағы жалпы орта мектебі
Информатика пәні мұғалімі Иса Балзия Темірханқызы
Кіріспе
«Информатика және есептеуіш техника негіздері » пән ретінде іргелі ғылымның бір саласы ғана емес, қазіргі уақыттағы заман талабына сай пән ретінде маңызы зор.
Осы ғылымның бір түсінігі алгоритмдеу мен програмалау болып табылғандықтан,
жалпы білім беретін 9 сыныпқа арналған «Информатика және есептеуіш техника негіздері» оқулықтағы / авторлары: Бөрібаев.Б, Нақысбеков .Б, Мадиярова.Г. 2005ж/ тапсырмалардың шешілуін, яғни Паскал тіліндегі бағдарламаларын жас мамандарға және Паскаль тілінде бағдарлама құруды оқып үйренушілерге комекші құрал ретінде ұсынылады.
І.Бөлім
Сызықтық алгоритмдерді бағдарламалау
№1 |
Бірінші оқушы бір сағатта М себет, 2-оқушы К себет, 3 оқушы l себет алма жинаса, олар t сағатта қанша алма жинайды? |
№1 /74 бет/ |
program e1_174bet; var m,k,l,t,ba : integer; begin Writeln('m,k,l,t мәндерiн енгiз'); read (m,k,l,t); Ba:=t*(m+k+l); Writeln (t,' сағатта , барлык алма ',ba,' себет '); end.
|
№2 |
1-есептің шартын пайдалана отырып, 1 оқушы х, 2 оқушы у, 3 оқушы Z сағат жұмыс атқарғанда , олар қанша алма жинайтынын есептеу |
№2 /74 бет// |
program e274bet; var m,k,l : integer; x,y,z,ba : real; begin writeln('m,k,l мәндерiн енгiз'); read(m,k,l); writeln('x,y,z мәндерiн енгiз'); read(x,y,z); Ba:=x*m+y*k+z*l; writeln(' жиналган барлык алма ',ba:4:2,' себет '); end.
|
№3 |
Бір шәйнек жасауға Р г, табақша жасауға С г, кесе жасауға К г дайын масса керек. Ал дана шәйнек, 0,5 А дана табақша және 0,2 А дана кесе жасауға қанша дайын масса керек? |
№4 /74 бет/ |
program e39c74bet; var p,c,k,a : integer; ap,ac,ak,ba : real; begin writeln('p,c,k мәнiн енгiз'); read(p,c,k); writeln('a мәнiн енгiз'); read(a); ap:=a*p; ac:=0.5*a*c; ak:=0.2*a*k; writeln(a,' шайнек жасауға ',ap:4:2,' дайын масса керек'); writeln (0.5* a:4:2,' табакша жасауға ',ac:4:2,' дайын масса керек'); writeln(0.2* a:4:2,' кесе жасауға ',ak:4:2,' дайын масса керек'); Ba:=ap+ac+ak; writeln(' барлык қажеттi дайын масса ',ba:6:2); end.
|
№4 |
Қызы 8 , ал шешесі 38 жаста болса, қанша жылдан соң шешесі қызынан үш есе үлкен болады? |
№7 /74 бет// |
program e5-74bet; var k,sh,j,i: integer; begin k:=8; sh:=38; writeln('жылдар санын енгiз'); read (i); writeln((sh+i)/(k+i)); writeln('sh жасы k-нан 3 есе үлкен болу керек!'); write('jauabi=',i); end.
|
№5 |
Доп жер бетінен 10 м биіктіктен 20 м/с жылдамдықпен вертикаль жоғары лақтырылды. 3 с уақыттан соң доп жерден қандай қашықтықта болады? |
№15 /74 бет/ |
program esep15bet72; сonst q=9.8; var t, h0,v0:integer;h,ht:real; begin v0:=20;t:=3;h0:=10; ht:=v0*t-q*sqr(t)/2; h:=h0+ht; writeln('bіiktigi- ',h:6:3); end.
|
№6 |
Дүкенші алғашқы сатып алушыға матаның 25 пайыз, 2 алушыға сол матаның қалғанының 30 пайызын, ал 3 алушыға одан қалған матаның 40 пайызын сатқан болса, онда дүкенде сол матаның қанша пайыз қалған? |
№10 /74 бет// |
program es10_74bet; var m,ba,ea,ya,dk: real; begin m:=100; ba:=m*0.25; ea:=(m-ba)*0.3; ya:= (m-(ba+ea))*0.4; dk:=m-(ba+ea+ya); writeln('дүкенде калган мата-',dk:4:2); end.
|
ІІ бөлім
Тармақталу алгоритмдерін бағдарламалалау
№7 |
Берілген сөз тіркесіндегі «е» және «о» әріптерінің санын анықтайтын және осы әріптің қасйсысы көп екенін анықтайтын бағдарлама құру |
|
program es; var a: string;I,e,o:integer; begin writeln(a); readln(a); e:=0;o:=0; for i:=1 to length(a) do begin if copy (a,i,1)='e' then e:=e+1; if copy(a,i,1)='o' then o:=o+1; end; writeln ('e=',e); writeln('o=',o); if e>o then writeln ('e aripkop=',e) else writeln('o aripkop=' o); end.
|
№8 |
Берілген мәтіндегі таңдалған әріптерді өшіруге арналған бағдарлама құру |
№10 /74 бет// |
program es; var a: string;I:integer; begin writeln(a); readln(a); for i:=1 to length(a) do begin if copy (a,i,1)='d' then delete (a,i,1); end; writeln (a); end. |
№9 |
Адамның берілген жасына қарап, оның жас бала , оқушы, жұмыс істейтін жаста, зейнеткер екендігін анықтау/таңдау командасы арқылы/ |
№ 10 /103 бет/ |
program es1; var jac:integer; begin writeln ('jacin engizy'); readln (jac); write (jac:4);case jac of 0..5:writeln (' jac bala'); 6..16:writeln(' okyshi'); 17..63:writeln(' jymicker'); 64..100:writeln(' zeinetker') else writeln ('backa jagdai karactirilmaidi'); end; writeln;end.
|
№10 |
Мектеп бағасы санмен белгіленген. Оның аты бар екенін ескеріп жазылған бағаның мәні бойынша атын анықтау |
|
program es; var baga:integer; begin writeln ('bagacin engizy'); readln (baga); write (baga:4);case baga of 5:writeln (' ote jakci'); 4:writeln(' jakci'); 3:writeln(' orta'); 2:writeln(' hashar') else writeln ('backa jagdai karactirilmaidi'); end; writeln;end. |