Оқу-ҽдістемелік материалдар «алгоритмдеу жҽне бағдарламалау негіздері» Баспа

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 89-сі 
 
 
89 
           S:=S*exp(p*ln(a)); 
           writeln('a= ',a:8:2,'   p= ',i:5, ' S =',S:8:2); 
      
end;
 
end.
 
        
    While do мысал 
program
 esep; 
 
var
 i,n:integer; 
      p,a,S:real; 
begin
 
     writeln('шекарасын кҿрсет: '); 
     readln(n); 
     a:=5; 
     S:=1; p:=1; 
     
while
 ido
 
     
begin
 
           i:=i+1; 
           S:=S*exp(p*ln(a)); 
           writeln('a= ',a:8:2,'   p= ',i:5, '  S =',S:8:2); 
      
end;
 
end.
 
6. 
a)  
program
 esep; 
    
 var
  i,n:integer; 
             S:real; 
   
begin
 
        writeln('n-ді енгіз:'); 
        readln(n); 
        S:=0; 
        
for
 i:=1 
to
 n 
do
 
        S:=S+1/i; 
        write(S:8:4) 
 
end.
 
ҽ)  
program
 esep; 
     
var
  i,n:integer; 
          S:real; 
     
begin
 
         readln(n); 
        S:=0; 
         
for
 i:=2 
to
 n 
do
 
        S:=S+1/((i-1)*i); 
        write(S:8:4) 
    
end.
 
б) 
program
 esep; 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 90-сі 
 
 
90 
     
var
  i,n:integer; 
                  S:real; 
    
begin
 
         readln(n); 
        S:=0; 
         
for
 i:=1 
to
 n 
do
 
         if i mod 2=0 then S:=S+(-1)/i else S:=S+1/i; 
         write(S:8:4); 
    
end
.  
  
в)  
program
 esep; 
      
var
  i,n:integer; 
                S:real; 
     
begin
 
         readln(n); 
        S:=1; 
         
for
 i:=1 
to
 n 
do
 
         S:=S*(1+1/(sqr(i))); 
         write(S:8:4); 
  
end
. 
г)  
program
 esep; 
     
var
  i,n:integer; 
              S:real; 
     
begin
 
         readln(n); 
         S:=0; 
         
for
 i:=0 
to
 n 
do
 
         S:=S+(1/(sqr((2*i)+1))); 
         write(S:8:4); 
  
 end
. 
7. 
program
 esep; 
var
 i, k, t,n,S1,S2 :integer; 
begin
 
writeln('n-ді енгіз:'); 
readln(n); 
t:=0; k:=0; 
for
 i:=1 
to
 n 
do
 
if
 i 
mod
 2=1 
then
 
begin
 t:=i; S1:=S1+i; 
end
 
else
 
begin
 k:=i; S2:=S2+i; 
end
; 
write('1-ден ', n, ' -ге дейінгі тақ сандардың қосындысы ', S1:6, ' жҧп 
сандардың қосындысы', S2:6); 
end
. 
8. 
program
 bakterialar; 
var
 a,S:real; 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 91-сі 
 
 
91 
begin
 
writeln('минут санын енгіз:'); 
readln(a); 
S:=exp(a*ln(2)); 
writeln(a:6:2,'-минуттан кейін бактериялардың саны ',S:6:2, ' болады' ); 
end
. 
 
          Массивтер
 
9. 
program
 massiv; 
var
 a,b:
array
[1..10] 
of
 integer; 
    i:integer; 
    min:integer; 
begin
 
    
for
 i:=1 
to
 10 
do
 
    read(a[i]); 
    
for
 i:=1 
to
 10 
do
 
    min:=a[1]; 
    
for
 i:=2 
to
 10 
do
 
    
if
 (i 
mod
 2 =0) 
and
 (a[i] < min) 
then
  min:=a[i]; 
    write(min:8); 
end.
  
  
10. 
program
 massiv; 
var
 a:
array
[1..10] 
of
 integer; 
    i:integer; 
    max:integer; 
begin
 
    
for
 i:=1 
to
 10 
do
 
    read(a[i]); 
    
for
 i:=1 
to
 10 
do
 
    max:=a[1]; 
    
for
 i:=2 
to
 10 
do
 
    
if
 a[i] > max 
then
  max:=a[i]; 
    write(max:8); 
end
. 
11.
 
program
 suriptau; 
const
 n=10; 
var
 z:
array
[1..n] 
of
 integer; 
    i,j,k:integer; 
 
begin
 
     
for
 i:=1 
to
 n 
do
 read(z[i]); 
     
for
 j:=1 
to
 n-1 
do
 
                        
begin
 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 92-сі 
 
 
92 
                              
for
 i:=1 
to
 n-1 
do
 
                              
if
 z[i]>z[i+1] 
then
 
begin
 k:=z[i]; 
                                                                 z[i]:=z[i+1]; 
                                                                 z[i+1]:=k; 
                                                       
end
; 
                        
end
; 
      
for
 i:=1 
to
 n 
do
 write(z[i],' '); 
 
end
. 
  
12. 
program
 massiv; 
label 1; 
const
 n=5; 
var
 a,b:
array
[1..5] 
of
 integer; 
    i,k:integer; 
    max:integer; 
begin
 
    
for
 i:=1 
to
 5 
do
 
    read(a[i]); 
    
for
 i:=1 
to
 5 
do
 
    max:=a[1]; k:=1; 
    
for
 i:=2 
to
 5 
do
 
    
if
 a[i] > max 
then
  
begin
 max:=a[i]; k:=i; 
end
; 
    
if
 k=1 
then
  
begin
 
for
 i:=2 
to
 n 
do
  write(a[i],' '); 
goto
 1; 
end
; 
    
for
 i:=1 
to
 k-1 
do
 
    write(a[i],' '); 
    
for
 i:=k+1 
to
 5 
do
 
    write(a[i],' '); 
1:
end
. 
  
13. 
program
 matrica; 
 
var
 a:
array
[1..5,1..4] 
of
 integer; 
     min:integer; 
     i,j:integer; 
 
begin
 
      
for
 i:=1 
to
 5 
do
 
      
for
 j:=1 
to
 4 
do
 
      read(a[i,j]); 
      min:=a[2,1]; 
      
for
 j:=2 
to
 4 
do
 
      
if
 a[2,j]then
 min:=a[2,j]; 
      write(min:8); 
 
end
. 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 93-сі 
 
 
93 
14. 
program
 matrica; 
 
var
 a:
array
[1..5,1..4] 
of
 integer; 
     p:integer; 
     i,j:integer; 
 
begin
 
      
for
 i:=1 
to
 5 
do
 
      
for
 j:=1 
to
 4 
do
 
      read(a[i,j]); 
      p:=1; 
      
for
 i:=1 
to
 5 
do
 
      p:=p*a[i,4]; 
      write(p:8); 
 
end
.  
  
15. 
program
 matrica; 
var
 a:
array
[1..3,1..3] 
of
 integer; 
     p:integer; 
     i,j:integer; 
 
begin
 
      
for
 i:=1 
to
 3 
do
 
      
for
 j:=1 
to
 3 
do
 
      read(a[i,j]); 
      
for
 i:=1 
to
 3 
do
 
                      
begin
 
      
                 for
 j:=1 
to
 3 
do
 
      
                 if
 (i+j) 
mod
 2=1 
then
 
                                               write(a[i,j],' '); 
                       writeln; 
                      
end
; 
  
end
. 
 
16. 
program
 matrica; 
var
 a:
array
[1..4,1..5] 
of
 integer; 
     p:integer; 
     i,j:integer; 
 
begin
 
      
for
 i:=1 
to
 4 
do
 
      
for
 j:=1 
to
 5 
do
 
      read(a[i,j]); 
       
for
 i:=1 
to
 4 
do
  
begin
 
      
for
 j:=1 
to
 5 
do
 
      
if
 a[i,j] 
mod
 2=1 
then
 a[i,j]:=1 
else
 a[i,j]:=0; 
                             
end
; 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 94-сі 
 
 
94 
      
for
 i:=1 
to
 4 
do
 
begin
 
      
for
 j:=1 
to
 5 
do
 
      write(a[i,j],' '); 
      writeln; 
                       
end
; 
 
end
. 
  
17. 
program
 matrica; 
var
 a:
array
[1..5,1..5] 
of
 integer; 
     S:integer; 
     i,j:integer; 
 
begin
 
      
for
 i:=1 
to
 4 
do
 
      
for
 j:=1 
to
 4 
do
 
      read(a[i,j]); 
      S:=0; 
      
for
 i:=1 
to
 4 
do
 
      
for
 j:=1 
to
 4 
do
 
      
if
 i=j 
then
  S:=S+a[i,j]; 
      write(S:8); 
  
end
. 
  
18. 
program
 matrica; 
 
const
 n=4; 
 
var
 a:
array
[1..n,1..n] 
of
 integer; 
     S:integer; 
     i,j:integer; 
 
begin
 
      
for
 i:=1 
to
 n 
do
 
      
for
 j:=1 
to
 n 
do
 
      read(a[i,j]); 
      S:=0; 
      
for
 i:=1 
to
 n 
do
 
      
for
 j:=1 
to
 n 
do
 
      if ((i+j)>(n+1)) 
and
 (a[i,j]<0) 
then
  S:=S+1; 
      write(S:8); 
  
end
. 
  
19.
  
program
 matrica; 
const
 n=5; 
 
var
 a:
array
[1..n,1..n] 
of
 integer; 
     S:integer; 
     i,j:integer; 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 95-сі 
 
 
95 
 
begin
 
      
for
 i:=1 
to
 n 
do
 
      
for
 j:=1 
to
 n 
do
 
      read(a[i,j]); 
      S:=0; 
      
for
 i:=1 
to
 n 
do
 
      
for
 j:=1 
to
 n 
do
 
      
if
 (iand
 (a[i,j]=0) 
then
  S:=S+1; 
      write(S:8); 
 
end
. 
  
20.
  
program
 auistiru; 
const
 n=20; 
 
var
 a:
array
[1..n] 
of
 integer; 
       i:integer; 
 
begin
 
  
for
 i:=1 
to
 n 
do
 
  read(a[i]); 
  
for
 i:=1 
to
 n 
do
 
  
if
 i 
mod
 4=0 
then
  a[i]:=0; 
 
for
 i:=1 
to
 n 
do
 write(a[i],' '); 
 
end
.  
  
21. 
program
 suriptau; 
const
 n=4; m=5; 
 
var
 a:
array
[1..n,1..m] 
of
 integer; 
     i,j,s,k:integer; 
 
BEGIN
 
for
 i:=1 
to
 n 
do
 
  
for
 j:=1 
to
 m 
do
 
  read(a[i,j]); 
  
for
 i:=1 
to
 n 
do
 
begin
 
  
for
 j:=1 
to
 n 
do
  
begin
 
  
for
 s:=1 
to
 n 
do
 
                   
if
 a[i,s]>a[i,s+1] 
then
 
                                       
begin
 
                                            k:=a[i,s]; 
                                            a[i,s]:=a[i,s+1]; 
                                            a[i,s+1]:=k; 
                                       
end
; 
                    
end
; 
                   
end
; 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 96-сі 
 
 
96 
  
for
 i:=1 
to
 n 
do
 
begin
 
                       
for
 j:=1 
to
 m 
do
 
                        write(a[i,j],' '); 
                        writeln; 
                  
end
; 
       
END
.  
  
22.
  
program
 almalar; 
 
const
 n1=100; 
 
var
 a:
array
[1..n1] 
of
 integer; 
     i,j,k,m,n:integer; 
     f1,f2:text; 
     S:integer; 
 
BEGIN
 
      Writeln('Алмалардың санын енгіз:'); 
      Readln(n); 
     Writeln('балалардың санын санын енгіз:'); 
      readln(m); 
if
 (m>n) 
or
 (m=n) 
then
 writeln('балалардың саны алмалардың санынан 
аспауы немесе тең болмауы керек'); 
      
for
 i:=1 
to
 n 
do
  read(a[i]); 
      
for
 j:=1 
to
 n-1 
do
 
      
begin
 
      
for
 i:=1 
to
 n-1 
do
 
      
if
 a[i]>a[i+1] 
then
 
      
begin
 
         k:=a[i]; 
         a[i]:=a[i+1]; 
         a[i+1]:=k; 
      
end
; 
      
end
; 
      S:=0; 
      
for
 i:=m+1 
to
  n 
do
 S:=S+a[i]; 
      writeln(S:8); 
 
END
. 
  
Процедуралар мен функциялар
 
 
  
23. 
program darezhesepteu; 
 
var
 a,b,c,d,n,m,r,k,Z,f1,f2,f3,f4:real; 
 
procedure
 darezhe(s,t:real; 
var
 q:real); 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 97-сі 
 
 
97 
begin
 
       q:=exp(t*ln(s)); 
end
; 
BEGIN
 
       read(a,n,b,m,c,r,d,k); 
       darezhe(a,n,f1); 
       darezhe(b,m,f2); 
       darezhe(c,r,f3); 
       darezhe(d,k,f4); 
       Z:=(f1+f2)*f3-f4; 
       write(Z:8:2); 
 
END
. 
  
          Сөз тіркестері
 
  
 
24. 
 
program
 sozder; 
 
var
 S:string; 
     k,i:integer; 
 
BEGIN
 
       read(S); 
       k:=0; 
       
for
 i:=1 
to
 length(S) 
do
 
       
if
 S[i]=' ' 
then
 k:=k+1; 
       write(k+1:8,' soz'); 
 
END
. 
         
25.
  
program
 esep; 
var
 s:string; i,k:integer; 
begin
 
       read(S); k:=0; i:=1; 
       
while
 i<=length(S) 
do
 
                            
begin
 
                                 
if
 s[i]<>' ' 
then
 
begin
 
                                                   k:=k+1; 
                                                   i:=i+1; 
                                                   
end
 
                                               
else
 
begin
 
                                               
if
 k=3 
then
 
begin
 
                                                           writeln(copy(S,i-k,k)); 
                                                           k:=0; i:=i+1; 
                                                           
     end
 
                                                   
    else begin
 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 98-сі 
 
 
98 
                                                            k:=0; 
                                                            i:=i+1; 
                                                            
end
; 
                                                            
end; end;
 
                                                            
if
 k=3 
then
 writeln(copy(S,i-k,k)); 
    
end
. 
 
 
 
  
 
 
 
 
 
 
 
 
 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж.  121 беттің 99-сі 
 
 
99 
3 Зертханалық сабақтар 
 
№1 ëàáîðàòорÿëûº æ´íûð 
«Ñûçûºòûº º´ðûëûíäû àëãîðèòíäåðäi ïðîãðàííàëàñ»  
 
Æ´íûðòû» íàºðàòû; íèêðîÝÅÐ-» æ´íûð ïðèìôèïòåðiì ¶éðåìñ, ºàðàïàéûí 
ïðîãðàííàëàðäû Ïàðêàëü òiëiìäå æàçûï, ºàòåëåðiì ò¶çåòñ. 
 
Ñûçûºòû àëãîðèòíäi åðåïòåðäi øåøñ ïðîãðàííàðû ºàðàïàéûí àðèóíåòèêàëûº µðìåêòåðäåì 
ò´ðàäû æ¸ìå åðåæå áîéûìøà ò´ðàºòûëûëàðäû, àéìûíàëûëàðäû, îïåðàòîðëàðäû ðèïàòòàñ 
áµëiíäåðiìå áµëiìåäi. 
 
Ó´ðàºòûëàðäû ðèïàòòàñ áµëiíi. Ð´ìäà ò´ðàºòûëàð àòòàðû æ¸ìå îëàð 
ºàáûëäàéòûì í¸ìäåð êµððåòiëåäi. Ïðîãðàííàäà á´ë àòòàð êîìðòàìòàëàðäû» ðàìäûº 
í¸ìäåðiìi» îðìûìà ºîëäàìûëàäû. 
 
Ðûðàëû, ðûçûºòû àëãîðèòíäi åðåïòåðäi øåøñ ïðîãðàííàðûìäà åêi ò´ðàºòû 
ºîëäàìûëàäû: 3,5 æ¸ìå 2. 
 
Ò´ðàºòûëàðäû ðèïàòòàñ áµëiíiìäå áiðiìøi êîìðòàìòà¹à Í, åêiìøiðiìå À àòòàðûì 
áåðåíiç. Æàçûëñû íûìà ò¶ðäå áîëàäû: 
CONST 
 
 
H=3.5; 
 
 
A=2; 
Áið ò´ðàºòûìû» í¸ìi åêiìøiðiìåì  ― ; ‖ áµëãiøiíåì àæûðàòûëàäû. 
 
Àéìûíàëûëàðäû ðèïàòòàñ áµëiíi. Ð´ìäà ïðîãðàííàäà ºîëàìûëàòûì áàðëûº 
àéìûíàëûëàð, îëàðäû» òèïòåði ºîëäàìûëàäû. Ðûðàëû, ïðîãðàííàäà ìàºòû òèïòåãi áåð 
àéìûíàëû ºîëäàìûëàäû. Æàçûëñû: 
 
 
VAR A, B, C, P, S:REAL; 
Îïåðàòîðëàð áµëiíi. Á´ë áµëií BEGIN  ºûçíåòòiê ðµçiíåì áàðòàëûï,  END ðµçiíåì 
àÿºòàëàäû äà, íiìäåòòi ò¶ðäå îäàì êåéiì ì¶êòå ºîûéëàäû. Á´ë ºûçíåòòiê ðµçäåð æ´áû 
«îïåðàòîðëûº æàºøàëàð» äåï àòàëàäû. Åãåð BEGIN æ¸ìå END ðµçäåði ïðîãðàííà iøiìäå 
êåçäåððå, îìäà îìäà¹û îïåðàòîðëàðíåì áiðãå º´ðàíà îïåðàòîðëàðäû º´ðàéäû. 
 
²àðàïàéûí ïðîãðàííàëàðäû º´ðñ ¶øiì åìãiçñ, øû¹àðñ æ¸ìå åðåïòåñ îïåðàòîðëàðû 
æàòàäû. 
 
 
Åìãiçñ îïåðàòîðëàðû. Êåç-êåëãåì åðåïòi øåøñ ¶øiì íiìäåòòi ò¶ðäå àë¹àøºû 
áåðiëãåìäåðäi åìãiçñ ºàæåò. Áåðiëãåìäåðäi åìãiçñ áiðìåøå ¸äiðòåðíåì æ¶ðãiçiëåäi. 
 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж. 
121 беттің 100-
сі 
 
 
100 
READ, READLN åìãiçñ îïåðàòîðëàðûì ºîëäàìñ. Îïåðàòîðëàðäû» æàëïû æàçûëñ 
óîðíàðû. 
 
 READ (åìãiçiëåòiì àéìûíàëûëàð òiçiíi); 
 READLN (åìãiçiëåòiì àéìûíàëûëàð òiçiíi); 
Òiçiíäå êµððåòiëãåì àéìûíàëûëàð ¶òiðíåì àæûðàòûëàäû. Àéìûíàëûëàðäû» ðàìäûº 
í¸ìäåði ïðîãðàííà æ¶êòåëãåììåì ðî» åìãiçiëåäi. 
READ, READLN îïåðàòîðëàðûìû» áið-áiðiìåì àéûðíàøûëû¹û. READ  îïåðàòîðûì 
ºîëäàì¹àìäà àéìûíàëûëûàðäû» ðàìäûº áåðiëãåìäåðiìi»  í¸ìäåðiì æîë áîéûìøà æàë¹àðòûðàäû. 
 
READ (А,Н); 
          READLN (V,R); 
А, Н, V, R àéìûíàëûëàðûìû» í¸ìäåði  ïðîãðàííà æ¶êòåëãåììåì êåéiì áið æîëäà ¶òið 
ìåíåðå ïðîáåëíåì æàë¹àðàäû. 
READLN åìãiçñ îïåðàòîðûì ºîëäàì¹àìäà àéìûíàëûëàð áiðiìåì êåéiì áiði æà»à æîëíåì 
æàçûëàäû. 
READLN (А,Н); 
READ (V,R); 
Øû¹àðñ îïåðàòîðëàðû. Äèðïëåé ýêðàìûìà àðàëûº, ðû åðåïòåñ ì¸òèæåëåðiì æ¸ìå 
ò¶ðiìäiðíå òåêðòi øû¹àðñ ¶øiì øû¹àðñ îïåðàòîðû ºîëäàìûëàäû. Îïåðàòîðäû» æàëïû 
æàçûëñ óîðíàðû: 
 
WRITE (åìãiçiëåòiì àéìûíàëûëûð òiçiíi, ‗ò¶ðiìäiðíå òåêðò‘); 
 
WRITELN (åìãiçiëåòiì àéìûíàëûëûð òiçiíi, ‗ò¶ðiìäiðíå òåêðò‘); 
 
Òiçiíäåãi àéìûíàëûëàð ¶òið àðºûëû àæûðàòûëàäû. Òiçiíìi» êåç-êåëãåì æåðiìå 
ò¶ðiìäiðíå òåêðò åìãiçñãå áîëàäû. Òåêðò àïîðòðîóòàð¹à àëûìûï, ¶òiðíåì àæûðàòûëàäû. 
Îïåðàòîðëàð ðàìû íåì îðìàëàðñû øåêòåëíåéäi. 
 
WRITE æ¸ìå WRITELN øû¹àðñ îïåðàòîðëàðûìû» àéûðíàøûëû¹û íûìàäà. WRITE 
îïåðàòîðûì ºîäàì¹àìäà í¸ëiíåòòi øû¹àðñ (åìãiçñ) ðîë æîëäà æàë¹àðàäû. WRITELN 
îïåðàòîðûì ºîëäàì¹àìäà æà»à æîëäû» êåëåði ïîçèôèÿðûìûì æàçûëàäû. 
 
1.1.  íûðàë.  ¶øá´ðûøòû»  áèiêòiãiì  åðåïòåñ  ïðîãðàííàðûì  º´ðû»ûç.  а,b,  c 
æàºòàðûìû» ´çûìäûºòàðû áåëãiëi. 
Áåëãiëåñëåð åìãiçåéiê:  LA – а æà¹ûìû» ´çûìäû¹û; LB –b æà¹ûìû» ´çûìäû¹û,      LC – 
с æà¹ûìû» ´çûìäû¹û; Р – ¶øá´ðûøòû» æàðòûëàé ïåðèíåòði; S – ¶øá´ðûø àñäàìû., 
НА – à æàºòà¹û ´çûìäûº áèiêòiãi. ¶øá´ðûø áèiêòiãiì åðåïòåãåìäå àëòû àéìûíàëûìû 
ºîëäàìàíûç. Îëàðäû» ¶øåñi LA, LB, LC åðåïòi» áàðûìàì áåëãiëi. ²àë¹àìäàðû Р, S , НА  
åðåïòi øåøñ áàðûðûìäà åðåïòåëåäi. 

ПОҼК 042-11.1.20/03-2014
 
Баспа  №1 кҥні 11.09.2014 ж. 
121 беттің 101-
сі 
 
 
101 
Ïàðàêàëü òiëiìäåãi ïðîãðàííàìû» æàçûëñû: 

жүктеу/скачать 1,33 Mb.

Достарыңызбен бөлісу: