Меню
Назад » » »
Паскаль тілінде оқу құралындағы кейбір есептердің шығарылу
загрузка...

загрузка...

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.                                                          

 

 

Тәлімгер.орг Полный текст материала на тему Паскаль тілінде оқу құралындағы кейбір есептердің шығарылу можно смотреть в скачиваемом файле. На этой странице приведен фрагмент материала

Авторы:

Бөлімі: Информатикадан ашық сабақтар | Логин: Публикатор
Көрсетілім: 425 | Жүктеулер: 0 | Рейтинг: 0.0/0
Барлық пікірлер: 0
avatar