8-9 сыныптар?а арнал?ан сараманды? ж?мыстар жина?ы

Амалдарды орындау тәртібі.Алгоритмдік тілдерде (Паскаль, Бейсик, Си т.б.) арифметикалық амалдардың орындалу тәртібі олардың математикалық орындалу тәртібіне сәйкес келеді, яғни алдымен жақша ішіндегі амалдар, сонан соң көбейту, бөлу, қосу, азайту т.б. амалдар орындалады. Төмендегі кестеде әр түрлі амалдардың орындалу реті көрсетілген.

 Амалдардың орындалу тәртібін өзгерту үшін жақшаларды пайдалануға болады. Мысалы 2*5+10 өрнегінде әуелі көбейту емес, қосуды орындау қажет болса, 5 пен 10 санының қосындысын жақшаға алып жазамыз. Сонда өрнектің нәтижесі 20 емес, 30-ға тең болады. 2*(5+10)=30.

11

Негізгі математикалық функциялар Турбо Паскальдің жүйелік кітапханасында алдын ала программалары жасалып стандартты модульге жинақталып қойылған, қажет кезінде пайдалануға болатын объектілер бар. Солардың бірі стандартты функциялар болып табылады. Олар жиі кездесетін математикалық және басқа да функцияларды есептеу үшін қолданылады. Стандартты функцияны жазу үшін міндетті түрде фунцияның аты және жақшаның ішінде аргументі көрсетілуі қажет.

   Турбо Паскальдің негізгі математикалық функцияларына мыналар жатады:

Abs(X)- X-тің абсолюттік шамасын

Cos(X), Sin(X) -Х санының  косинусын (синусын) береді, мұндағы Х – радиан бұрышы.

Тангенс және котангенс функциялары Турбо Паскаль тілінде жоқ. Оларды есептеу үшін sin(x)/cos(x) (немесе cos(x)/sin(x) – котангенс үшін) өрнегі қолданылады.

ArcTan(X) -Х санының арктангенcін береді.

Exp(X) -е-нің Х дәрежесін есептейді.  

Ln(x) - Х санының натурал логарифмін есептейді.

Pi-дің мәні, pi = 3.14159265  

Sqr(X)- X-тің квадратын есептейді .

Sqrt(X)-X-тің квадрат түбірін есептейді.  Trunc(X)Х нақты санының бүтін бөлігін береді. (Х санының бөлшек бөлігі алынып тасталып, функция нәтижесінің типі Longint болады)

Frac(X)- X санының бөлшек бөлігін береді. 

Int(X) -Х санының бүтін бөлігін береді. Бұл функцияның Trunc функциясынан айырмашылығы есептеу нәтижесінің типі real түрінде болады.

 Round(X)- Х нақты санын бүтін санға дөңгелектейді.

12

for i:=1 to n do;

for j:=1 to m do

begin read(A[i,j]);

write ('A[',i,j,']=');

end;

begin

for i:=1 to n-1 do

for j:=1 to m-1 do

begin

a[1,1]:=max;

if a[i,j]max then

max:=a[i,j];

write(A[i,j]:4); writeln; end; end; end.

Жауабы:12 85 95 74 57 21 64 52 13 Нәтижесі: A[1,2]=85 74 57

Сарамандық жұмыс №6

4х5 матрица берілген. Матрицаның әрбір жолын өсу реті бойынша сұрыптаңыз. 

program suriptau6;

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

37

 A[4]=56 A[9]=63 A[14]=22

A[19]=89 A[5]=82A[10]=20

A[15]=64A[20]=90 Нәтижесі: S=4.7316991431E+00

Сарамандық жұмыс №4

Екі өлшемді массив

Матрицаның ең кіші элементін табу

program massib_4;

const N=3;M=4;

var A:array[1..N,1..M] of integer;

K,I,Min:integer;

begin for K:=1 to N do for I:=1 to M do read(A[K,I]);

Min:=A[1,1];

for K:=1 to N do

for I:=1 to M do if A[K,I]

writeln('MIN=',Min);

readln; readln end.

Жауабы:56813176524368794368

Нәтижесі: Min=5

Сарамандық жұмыс №5

А[3,3] массиві берілген. Кері диагональдан жоғары орналасқан элементтердің арасынан ең үлкенін табу керек.

Program massiv_5;

Const n=3;

Const m=3;

Var A:array[1..n,1..m] of integer;

max:integer; i,j:integer;

begin

write('элемент енгіз');

36

Random(X) -0..Х диапазоны арасынан кездейсоқ бүтін санды анықтайды.   

Программада Random функциясын қолданбас бұрын, әуелі кейдейсоқ сандардың генераторы Randomize процедурасын іске қосқан жөн. Егер бұл процедура жазылмай кетсе, кездейсоқ сандардың бір тізбегі қайта-қайта шыға беретін болады.

Мысал    .-10..10 диапазоны арасынан кездейсоқ 5 санды шығару. var i: integer;

begin

   randomize;

   for i:=1 to 5 do writeln(random(21)-10);

end. 

Inc(X,Y) Х-тің мәнін Y-ке арттырады. Егер Y саны көрсетілмей кетсе, Х-тің мәні автоматты түрде 1-ге артады.  

Dec(X,Y) Х-тің мәнін Y-ке кемітеді. Егер Y саны көрсетілмей кетсе, X-тің мәні 1-ге кемиді.

Паскаль тіліндегі программа құрылымы

Паскаль тілінде программа үш бөліктен: тақырыптан, сипаттау бөлімінен және операторлар бөлімінен тұрады.

Программаның тақырыбында программаның аты жазылады, мысалы:Program ESEP;

Сипаттау бөлімінде:-  кітапханалық модульдерді сипаттау бөлімі;

-       белгілерді сипаттау бөлімі;

-       тұрақтыларды сипаттау бөлімі;

-        типтерді сипаттау бөлімі;

-      айнымалыларды сипаттау бөлімі;

· процедуралар мен функцияларды сипаттау бөлімдері;

13

Кітапханалық модульдерді сипаттау бөлімі USES түйінді сөзімен басталып, сипаттау бөлімінде басқаларынан бұрын жазылуы керек. Программада қолданылатын модуль атауларының саны бірнеше болса, олардың арасы үтірмен ажыратылып жазылады:uses CRT, Graph; Программадағы кез келген операторды белгімен белгілеп қоюға болады.Бұл белгі арқылы қажетті жағдайда программаның кез келген жолынан осы белгісі бар операторға көшіп, оны қайталап кезексіз орындауға болады. Белгі ретінде төрт цифрдан аспайтын кез келген санды немесе сөздерді қолдануға болады.

Оператор тек бір белгімен ғана белгіленеді. Бір белгі бірнеше операторды белгілей алмайды. Белгілер операторлар бөлімінде сол оператордың алдына жазылып, арасы қос нүктемен ажыратылады. Сипаттау бөлімінде белгілер label түйінді сөзінен кейін жазылады. Мысалы: label 3, 471, 29, Quit;  Программадағы тұрақтылар өз мәнімен (мысалы, 5,14,13.5, т.б.) немесе оған қойылған атау арқылы берілуі мүмкін. Тұрақтылар өз атауы арқылы берілсе, онда оның атауын жаза отырып программаның кез келген жерінде пайдалануға болады, бірақ оның атауы мен мәні тұрақтыларды сипаттау бөлігінде төмендегідей түрде көрсетілуі тиіс. Мысалы:

const p=3.14;  e=2.7;  a=’bol’;  max=1000;   

Айнымалыларды сипаттау бөлімінде программада қолданылатын барлық айнымалалыларды және олардың типтерін көрсету қажет:

 var P,Q,R: Integer;     A,B:   Char; F1,F2: Boolean;

   Паскаль тілінде программа құрған кезде программада қолданылатын барлық компоненттер (айнымалылар,

14

begin S:=1;

for k:=1 to N do

if (k0) then

S:=S*A[k]; writeln('S=',S); end; end.

Жауабы:

À[1]=6 A[2]=9 A[3]=12 A[4]=25 A[5]=36 A[6]=48 A[7]=28 A[8]=44 A[9]=65 A[10]=78

Нәтижесі: S=1.7485474406 E+14

Сарамандық жұмыс №3

А (20) массиві берілген. Массив мүшелерінің

арифметикалық ортасын табу керек.

Program massib_3;

Const N=20;

Var A:Array [1..N] of real;

S:real; k:integer;

begin

For k:=1 to N do

begin

write('A[', k, ']=');

readln(A[k]);

end;

begin

S:=0;

For k:=1 to N do

S:=(S+A[k])/N;

Writeln('S=', S);

end;end.

Жауабы:A[1]=15 A[6]=25 A[11]=34 A[2]=45 A[3]=47 A[16]=14A[7]=96A[12]=8A[17]=91A[8]=31A[13]=23A[18]=69

35

9-сыныптар үшін сарамандық жұмыстар

Сарамандық жұмыс №1

Бір өлшемді массивтер.

A(15) массив элементтерін өсу реті бойынша сұрыптау программасын құру.Program massib_1;

var K,I,S,P:integer;

X:array[1..15] of integer;

begin for k:=1 to 15 do read(x[K]); writeln;

for K:=1 to 14 do

for I:=K+1 to 15 do

if X[I]

P:=X[K]; X[k]:=X[I]; X[I]:=P end;

writeln; for K:=1 to 15 do write (X[K]:5);

readln; readln end.

Жауабы:енгізу A[1]10 A[2]24 A[3]31 A[4]12 A[5]47 A[6]72 A[7]58 A[8]66 A[9]74 A[10]65 A[11]23 A[12]15 A[13]8 A[14]33 A[15]85

Нәтижесі: 8 10 12 15 23 24 31 33 47 58 65 66 72 74 85

Сарамандық жұмыс №2

А(10) сандық массивінің 0-дік емес элементтерінің көбейтіндісін есептеу керек.

Program massib_2;

const N=10;

var A:array[1..n] of real;

S:real;K:integer;

begin

for k:=1 to N do

begin

write('A[',K,']=');

read(A[k]);

end;

34

олардың типтері, тұрақтылар, белгілер т.б. ) сипаттау бөлімінде көрсетіліп кетуі қажет. Олай болмаған жағдайда программа қате деген мәлімет береді.

 Операторлар бөлімінде программа мазмұнына сәйкес бір немесе бірнеше оператордың болуы мүмкін. Операторлар бір-бірінен нүктелі үтір (;) арқылы бөлініп жазылады. Операторлар бөлімі begin түйінді сөзінен басталап, end сөзімен аяқталады. Begin мен end сөздерін операторлық жақшалар деп те атайды. Сәйкесінше begin – ашылатын, end – жабылатын жақшалар. Оператор дегеніміз - алгоритмді жүзеге асыру барысында орындалатын іс-әрекеттерді анықтайтын тілдің қарапайым сөйлемі. Операторлардың жалпы жазылу түрі төмендегідей болады:BEGIN

       1-оператор;       2-оператор;       .................;

       n-1-оператор;       n-оператор

END.

 Әдетте программа мәтіні end сөзімен аяқталып, одан кейін нүкте қойылады. Егер программада бір емес, бірнеше операторлық жақшалар қолданылатын болса, онда нүктені тек ең соңғы орналасқан end сөзінен кейін қою қажет. Басқа end сөздерінен кейін нүктелі үтір (;) қойылады.     Паскаль тілінде құрылған қарапайым программалардың біріне мысал келтірейік:

Program bastau;        {программа тақырыбы}

const pi=3.14159;       { π тұрақтысының мәнін беру}

var r, l :real;              {r, l мәндерінің нақты сан екенін сипаттау}

begin                         {Операторлар басы}

readln(r);                   { r мәнін енгізу}

l:=2*pi*r;                   {Шеңбер ұзындығын есептеу}

15

write(‘шеңбердің ұзындығы= ’, l);   {Нәтижені экранға шығару}

end.                                                         {Программа соңы}

Мұнда программа мәтіні қарайтылған қаріппен терілген, ал оң жақ шетте пішінді жақша ішінде түсініктеме мәтіні берілген, түсініктеме программа мәтініне ешқандай әсер етпейді, оны түсінуді жеңілдетеді, сондықтан әрбір программа түсініктемемен толықтырылуы тиіс.  1-мысал

program misal; {екі санның қосындысын есептеу}

var   x,y,s: integer;

begin

  WriteLn('Бос орын арқылы екі сан енгіз ');

  ReadLn(x,y);

  s := x + y;

  WriteLn('Екі санның қосындысы ',s);end. 

Бұл программа пернетақтадан екі санның  енгізілуін сұрап, олардың қосындысын есептейді және нәтижесін экранға шығарады. Енді бұл программаға аз ғана өзгерістер жасайық. Программа әуелі экранды тазалап, кейін нәтижені сол мезетте экранға шығару үшін қол данушының кез келген пернені басуын талап ететін болсын.    2-мысал

program misal; {екі санның қосындысын есептеу}

uses Crt; {экранды тазалауға және кідіруге қажетті процедураларды

орындауға мүмкіндік   беретін модульді іске қосу}

var  x,y,s: integer;

begin

  ClrScr; {экранды тазалау}

  WriteLn('Бос орын арқылы екі сан енгіз ');

  ReadLn(x,y);

16

s:=s+a;

n:=n+1;

end;

writeln(‘s=‘,s); readln; end.

Жауабы:11 14 17 18 15 12 25 28 29 26 s=195

Сарамандық жұмыс №19

Барлық сандардың бөлінгішін табу программасы.

Program _16;

Var n,i:longint;

BEGIN

Write('сан енгіз...');

Readln(n);

Write('сан бөлінгіштері ',n,' : ');

i:=1;

while i

begin

if n mod i = 0

then Write(i,' ');

Inc(i);

end;readln;end. Жауабы: сан енгіз 6 шығады 1 2 3 6

Сарамандық жұмыс №20

11 ден 5 дейінгі сандардың кубын шығару

программасы.

Program _20;

var N: integer;

begin

for N:=11 downto 5 do

write(N*N*N:5);

writeln;

readln

end. Жауабы:1331 1000 729 512 343 216 125

33

Readln(b);

For i:=A to B do

begin

s:=s+i;

end;

Writeln('сан қосындысы= ',s);

Readln;

End. Жауабы: сан енгіз 4 сан енгіз 6 шығады 15

Сарамандық жұмыс №17

Факториал n!

Program _14;

VAR n, i: INTEGER; p: LONGINT;

BEGIN

WRITE (‘сан енгіз n: ‘ );

READLN (n);

p:=1;

REPEAT

p:=p*n; n:=n-1;

UNTIL n=0;

WRITELN (‘n! = ’, p);

END. Жауабы: сан енгіз 6 шығады 720

Сарамандық жұмыс №18

1 ден 10 ға дейінгі барлық сандар қосындысын

есептеу программасы.

program _15;

Var a,s,n:integer;

begin

s:=0; n:=1;

while n

Writeln(‘енгіз ’,n,’ число’);

readln(a);

32

  s := x + y;

  WriteLn('Екі санның қосындысы ',s);

  ReadKey; {перненің басылуын күту}

end.

Енгізу және шығару операторлары.

   Паскаль тілінде мәліметтерді енгізу және шығару үшін, яғни адам мен компьютер арасында мәлімет алмасу мақсатында алдын ала анықталған Input, Output файлдары қолданылады. Программа берілген мәндерді Input файлынан алады да, алынған нәтижені Output файлына орналастырады. Стандартты енгізу файлы болып пернетақта, ал шығару файлы болып дисплей экраны саналады. Ол үшін енгізу операторы пайдаланылады.

   Паскаль тілінде мәлімет енгізетін READ (READ – ағылшынша оқу) операторының жалпы түрі (пішімі) төмендегідей:

     READ(a1, a2, …, an);   

    READLN(a1, a2, …, an);

     READLN;

 мұндағы a1, a2, …, an – айнымалы атаулары, оларды енгізу операторының параметрлері деп те атайды. Алғашқы оператор көрсетілген айнымалылардың мәндері пернелер арқылы араларына бір бос орын қалдыру арқылы енгізілген соң, курсорды келесі қатарға көшірмейді. Ал readln ( read line – «қатарды оқу» деген сөздің қысқартылуы) алдыңғы оператордағыдай пернелерден мәндер енгізілгеннен кейін курсорды келесі қатарға көшіріп жібереді. Соңғы қатарда жазылған параметрсіз оператор ешбір мән енгізбей, тек курсорды келесі қатарға көшіруді ғана атқарады.

   Енгізілетін айнымалылардың мәндері integer, real, char немесе string (сөз тіркесі) типтеріне жатуы мүмкін. Логикалық айнымалылардың мәндері енгізілмейді.

17

Айнымалылар мәндері өз типтеріне сәйкес Паскаль тілінің ережесі бойынша енгізіледі. Егер ол шарт бұзылса (мысалы, а1 типі integer болса, ал енгізгенде char типтес мән терілсе), онда экранға енгізу-шығару қатесі шығады, оның пішімі мынадай болып келеді. I/O error XX,

мұндағы XX – бүтін сан түріндегі қатенің сипатына сәйкес коды.

   READ операторы орындалғанда параметрлер өздеріне сәйкес мәндерді қабылдайды, бұл міндет INPUT енгізу файлы арқылы жүзеге асырылады. Параметрлер жаңа мән қабылдағанда, оларда бұрын орналасқан (жазылған) ескі мән өшіріліп, орнына жаңа мәндер жазылып отырылады да, программа параметрдің жаңа мәні бойынша жұмыс атқарады.

Мысал.

 Var I: real;

J: integer;

K: char;

begin

Read (I, J, K);

      Программаға мынадай бастапқы мәндер енгізіледі делік: 212.5    38    ‘п’

Осыдан кейінгі келесі мәндер енгізілсін:

  ‘л’    121.35    25

Алғашқы нұсқасында мәлімет енгізу дұрыс орындалады, өйткені енгізілетін мәндер өз ретімен орналасқан айнымалылар типтеріне (I, J, K) сәйкес келіп тұр. Екінші нұсқа коды 10 болып келетін қате бар екенін айтады, себебі real типтес I айнымалысы үшін char типіндегі мән енгізіліп отыр.

18

Жауабы:X1=2;3; S=5.000 AK=2.0

X2=1;1; S=183.639 AK=1.0

X3=1;2; S=3.250 AK=1.3

Сарамандық жұмыс №15

Бер: AK:sqrt(abs(exp(3*ln(x))))/exp(3*ln(k)) программа құрыңыз.

Шешімі:

Program prsum;

Var x,S,AK,e:real; k:integer;

Begin

Writeln(‘x,e engiz’);

Read(x,e);

S:=0; k:=1;

Repeat

AK:=sqrt(abs(exp(3*ln(x))))/exp(3*ln(k));

S:=S+AK;

K:=k+1;

Until abs(AK)

Writeln(‘S=’,S:4:2,’AK=’,AK:6:3);

End.

Жауабы:X1=4;2; S=9.00 AK=1.000

X2=3;2; S=5.85 AK=0.650

X3=4;1; S=9.00 AK=1.000.

Сарамандық жұмыс №16

А және В екі саны берілген(АВ). А дан В ға дейінгі сандар қосындысын табу программасын құрыңыз.

Program _13;

Var a,b,i,s:integer;

Begin

Writeln('сан енгіз A');

Readln(a);

Writeln(‘cан енгіз B');

31

Сарамандық жұмыс№13

1-ден 15-ке дейінгі барлық полиндром сандардың тізімін басып шығаратын программа құр (полиндром сан деп кері оқығанда да сол санға тең сан, яғни берілген есеп үшін бірінші және үшінші цифрлары тең сандар).

Программасы:

Program Polindrom;

Var a, b, c, P1: integer;

Begin

For a:=1 to 15 do

For c:=0 to 15 do

For b:=1 to 15 do

Begin

P1:=a*100+b*10+c;

If a=c then write (P1:5);

End. Жауабы:121...............

Сарамандық жұмыс №14

Берілгені: AK:=exp(k*ln(x))/sqr(k)+sqr(1) программа құрыңыз.Шешімі:

Program sum;

Var x,S,AK,e:real; k:integer;

Begin

Writeln(‘x,e engiz’);

Read(x,e);

S:=0; k:=1;

Repeat

Ak:=exp(k*ln(x))/sqr(k)+sqr(1);

S:=S+AK;

k:=k+1;

Until abs(AK)

Writeln(‘S=’,S:4:3,’AK=’,AK:3:1);End.

30

READ(FN, a1, a2, …, an);    READLN(FN, a1, a2, …, an);

   Сонымен, параметрлердің сандық мәндері бір-бірінен бос орын арқылы ажыратылып жазылады. Мәндерді беріп болдық дегенді білдіру үшін Enter (енгізу) пернесі басылады. Мысалы, енгізу операторы READ(A,B,C); түрінде берілсе, параметрлерге мәндер былай беріледі. 5_6.2_4.5 Enter. Бұл жағдайда A=5, B=6.2, C=4.5 мәндер қабылдайды. Осы мәндер арқылы программа орындалып болған соң, басқа мәндер үшін программаны қайталау қажет болса, онда программаны басынан бастап қайта орындау қажет.Бүтін айнымалыларға бүтін, нақты айнымалыларға нақты мәндер берілуі қажет. Айнымалы сипатталғанда нақты ретінде көрсетілсе, оған нақты да, бүтін де мән беруге болады, себебі нақты сан құрамына бүтін сан енеді. Ал машина «өзі» бүтін санды нақты сан түріне келтіріп алады. Мысалы:   VAR        A, B: REAL;   BEGIN        READ (A,B);                …    END.

19

түрінде беріліп A, B айнымалылары үшін 4 5  Enter орындалса, онда машина оларды А = 4.0, B = 5.0 түрінде қабылдайды.    Сандар арасына бір немесе бірнеше бос орын қалдыруға болады, себебі сан енгізілгенде бос орын есепке алынбайды.   Мәндерді енгізгенде мән енгізілген жолдан келесі жаңа жолға өту үшін параметрсіз немесе параметрге сәйкес READLN; READLN(a1, a2, …, an); операторларын пайдалану қажет.

Сонымен READ(a1, a2, …, an); READLN; операторларының орнына бір ғана READLN(a1, a2, …, an) операторын пайдалануға болады.  Шығару операторы. Паскаль тілінде нәтижені экранға шығару үшін WRITE (жазу) операторы (процедурасы деп айтылады) қолданылады:    WRITE (a1, a2, …, an); мұндағы жақша ішінде жай айнымалылар немесе апострофтармен қоршалған символдар тобы болуы мүмкін. Мысалы, егер B =17.15 болып, мына команда орындалғанда:   WRITE (‘B мәні = ’,B);экранда В мәні = 1.715E+01деген сөз тіркесі көрінеді.   Шығарылатын мәндердің түрі айнымалылардың типі арқылы анықталады, олар integer, real, boolean (true, false), char, string сияқты типтер түрінде беріле береді.    Шығарылатын параметрлер бір-бірімен үтір арқылы ажыратылып, WRITE түйінді сөзінен соң жай жақша ішіне жазылады.  Шығару операторында жақша ішінде қағазға не экранға шығарылатын мәннің пішімін – оның алатын орнын , яғни енін толық көрсетуге болады.

Бүтін санды оның енін көрсете отырып экранға шығаруға болады, мысалы: b айнымалысының бүтін түрдегі мәнін көрсету   WRITE (b:n) немесе WRITE (b:5) операторы арқылы жүзеге асырылады. Мұндағы b - айнымалының атауы; n – мәні бүтін сан болып келетін тұрақты түрінде

20

Сарамандық жұмыс №11

Берілген сан 7-ден аяқтала ма, жоқ па анықтау программасы.

Program _11;

var b:integer;

Begin

writeln ('сан енгіз');

readln (b);

If b mod 10 =7 then writeln ('сан  7 ден аяқталады')

else writeln ('сан 7 ден аяқталмайды');

Readln; Жауабы:сан енгіз 47 шығады сан 7 ден аяқталады

end. сан енгіз 52 шығады сан 7 ден аяқталмайды

Сарамандық жұмыс №12

Циклдарды ұйымдастыру

Берілгені: программа құрыңыз.

Шешімі:Program esep_12;

var x,S,AK:real; n:integer;

begin

writeln('x pen n engiz');

read(x,n);

S:=0; n:=1;

repeat

AK:=x+cos(n*x)/exp(n*ln(2));

S:=S+AK;

n:=n+1;

Until abs(AK)

Writeln('S=', S:7:3, 'AK=', AK:6:3);end.

Жауабы:X1=7

n1=5S

1=42.248

AK1=6.994.

29

Writeln(a);

Readln;

End. Жауабы: а санын енгіз 12 24

а санын енгіз -12 -12

Сарамандық жұмыс №9

Берілген сан тақ па ,жұп па анықтау программасын құру.

Program _9;

var a,b:integer;

Begin

writeln ('сан енгіз');

readln (b);

if a mod 2 =0 then writeln ('сан - жұп') else writeln ('сан-тақ');

Readln;

end. Жауабы: сан енгіз 2 сан-жұп , сан енгіз 7 сан-тақ

Сарамандық жұмыс №10

Бүтін сан берілген егер оң сан болса онда 1-ді қос,

егер теріс сан болса онда 2-ні алып таста, егер ноль болса 10 шығу керек.Программа құрыңыз.

Program _10;

Var a:integer;

Begin

Writeln('сан енгіз');

Readln(a);

If a0 then a:=a+1 else

If a

Writeln('алынған сан ',a); Жауабы: сан енгіз 4 алынған сан 5

Readln; сан енгіз -2 алынған сан -4

End. сан енгіз 0 алынған сан 10

28

берілген орын саны, оны бірден бүтін санмен де жазуға болады.Егер b:5 пішімі беріліп, ал b = 56 (екі не үш разрядты сан) болса, онда беске дейінгі толтырылмаған орындарға сол жақ шетте бос орын қалдырылады. b = 56 мәні үшін WRITE (b :5) операторы экранға   «56»тіркесін шығарады.   Нақты сандар үшін оның жалпы енін, сонан соң бөлшегі алатын орынды көрсету қажет, сол себепті аралас сандарды бейнелеуде оның ені қос нүктемен бөлінген екі бүтін сан арқылы жазылады. Сонымен, нақты сан үшін пішім екі саннан тұрады:   I – санға берілетін барлық орын. II – үтірден кейін алынатын бөлшек цифрлар саны.Мынадай оператор берілсін делік:   WRITE (Y : 5: 2)Мұндағы 5 – нәтижеге берілген барлық орын, 2 – үтірден соңғы бөлшек бөлігіне берілетін орындар саны.

Мысалы, C = -145.7865 болғанда WRITE(C:8:3) операторы экранға -145.786 мәнін шығарады, мұндағы жалпы орындар саны – 8, ал бөлшек үш санмен бейнеленетіндіктен соңғы бір цифр жазылмай қалып отыр. C айнымалысының берілген мәнін толық бейнелеу үшін WRITE(C:9:4) операторын жазу керек еді. Жалпы нақты санды экранда бейнелеу операторының жазылу түрі:   WRITE(C : n : m);мұндағы n – C мәнінің барлығына берілген орын саны; m - C мәнінің бөлшек бөлігіне белгіленген орын саны. n-нің мәні таңбаны, бүтін мен бөлшекті бөлетін нүктені және бүтін сандар орнын бөлшекке қосып көрсететіндіктен, ол nm+3 болуы тиіс. Экранға шығаратын сандардың арасында қалдырылатын бос орын санын да осы жолмен көрсетуге болады. Ол үшін екі апостроф жазып, одан кейін қос нүктемен бөлінген бүтін сан арқылы қалдырылатын бос орындар санын өрнектейміз, мысалы:   WRITE (b:8:3, ‘ ‘: 4, c:12:4);Мұндағы 4 – b мен c сандарының арасындағы бос орын саны.    Егер нақты сан үшін: WRITE (‘Y =’, Y:8:3) пішімі берілсе, ал оның мәні Y = 1.76 болса, экраннан Y = 1.760 тіркесі көрінеді.   

21

Егер операторда пішім көрсетілмесе, онда нәтижеде сол сан экспоненциальды түрде экранға шығады.    Паскаль тілінде параметрсіз шығару операторы WRITELN жаңа жолға өту үшін қолданылады.    Егер WRITELN(a1, a2, …, an); операторы қолданылса, онда a1, a2, …, an  мәндерін экранға шығарған соң курсор келесі жолға көшеді.    WRITE операторын түсініктеме беруге қолдануға болады. Мысалы:WRITE(‘A,B,C мәндерін енгізіңдер:’);   

  READ(A,B,C);Мұндайда экранға:  A,B,C мәндерін енгізіңдер:Түсініктеме сөзі шығады, сонан кейін үш сандық мән енгізілуі тиіс. Мысалы,   WRITE(‘T= ’, N:3, ‘ ’:4, ‘M =’, M : 4 : 2 )болса, онда T-ның үшорынды мәнінен соң 4 бос орын қалады да, одан соң M-нің нақты мәні жазылады.    Айталық, X = 7, Y = 15, Z = 11, ал R = 450,08 болсын, оларды экранға шығарудың әртүрлі тәсілдерін төмендегі кестеде көрсетейік:

If (x=-1) and (x

else

if (x=1) and (x

else

if (x2.5) then y:=3*exp(3*ln(x))+5;

writeln('нәтижесі');

writeln('y=', y);end.

Жауабы:X1=8 Y1=1.5410000000E+03

Сарамандық жұмыс №7

Ұжымдық мекемеде дипломы бар азаматқа жұмыс ұсыну процесі жүруде. Оған мамандарды ретімен қабылдайды. Программасын құрыңыз?

Program ds;

Var x, y, z, m: real;

Begin read(x, y, z);

If x0 then writeln (‘m=’, жұмысқа қабылдау);

Else Writeln(‘y=’, жұмысқа қабылдамау);

If y3.5 then writeln (‘m:=’, инженер конструктор);

Else Writeln(‘m :=’, ғылыми қызметкер);

If z2 then writeln (‘m:=’, инженер қызметін ұсыну);

Else Writeln(‘m :=’, жұмысқа қабылдамау);End.

Сарамандық жұмыс №8

Берілген сандардың ішінде оң сандарды екі есе арттыру.

Program _8;

Var a:integer;

Begin

Writeln(' а санын енгіз');

Readln(a);

If a0 then a:=a*2;

27

Сарамандық жұмыс №5

Тармақталуды ұйымдастыру. Шартты оператор.

Берілгені:

, егер -5x

5x³+cosx, егер 0 программа құрыңыз.

Шешімі:

Program esepteu;

Var x,y:real;

Begin

Writeln(‘x engiz’);

Read(x);

If(x-5) and (x=0) and (x

y:=5*sqr(x)*x+cos(x);

Writeln(‘natigeci’);

Writeln(‘y=’,y);

End.

Мән береміз. Нәтижесі : 1 y=5.5403023059E+00

-2 y=2.4494897428E+00

0 y=9.9999999999E+00

Сарамандық жұмыс №6

Берілгені:. xtgx-sinx, егер -1

Y= x³tgx , егер 1

3x³+5 , егер x2,5

Шешімі:

Program esepteu_6;

Var x,y:real;

begin

writeln('енгіз x');

read(x);

26

1-мысал. Радиусы R болатын шеңбер ұзындығын есептеу программасын құру қажет.

Шығарылуы: 

program B1;

const pi=3.14159;

var

      R:real; (*R – шеңбер радиусы*)

      L:real; (*шеңбер ұзындығы*)

begin

         writeln(‘R мәнін енгізіңдер:’);

         read(R);

        L:=2*pi*R;

        writeln;  

        writeln;

        writeln(‘нәтиже:’);

        writeln(‘шеңбер ұзындығы L =’, L:8:3);

end.

Экранда төмендегідей нәтиже көрінеді: R мәнін енгізіңдер: 0.2нәтиже: шеңбер ұзындығы L =1.257

23

Сызықтық операторлар.

Сарамандық жұмыс №1

Берілгені: Мына өрнекті программалау тілінде жазыңыз.

y=cos5x+

Шешімі:

program Esep_1;

var x,y:real;

begin

readln(x);

y:=cos(5*x)+exp(1/7*ln(pi+abs(2-x)));

write('y=',y);

end.

Жауабы: X1=3 Y1=4.6539862853E-01

Сарамандық жұмыс №2

Берілгені: Мына өрнекті программалау тілінде жазыңыз.

y=ln(5x+3)+cosПx²+tgx³

Шешімі:

program Esep_2;

var x,y:real;

begin

readln(x);

y:=ln((5*x)+3)+cos(pi*sqr(x))+sin(x)/cos(exp(3*ln(x)));

write('y=',y);

end.

Жауабы: X1=7 Y1=1.8590133764E+00

X2=9 Y2=3.2880315239E+00

X3=4 Y3=2.2041722008E+00

24

Сарамандық жұмыс №3

Берілгені: Мына өрнекті программалау тілінде жазыңыз.

y=ln5x+x⁵sinx³+tgx^x

Шешімі:

program togzhan_3;

var x,y:real;

begin

readln(x);

y:=ln(5*x)+exp(5*ln(x)*sin(exp(3*ln(x))))+

+sin(exp(x*ln(x)))/cos(exp(x*ln(x)));

write('y=',y);

end.

Жауабы: X1=8 Y1=4.7318530807E+00

X2=6 Y2=5.1434471867E+02

X3=9 Y3=8.0738233627E+00

Сарамандық жұмыс №4

Берілген екі таңбалы санның орындарын ауыстыру программасы.

Program _9;

Var a,b,c:integer;

Begin

Write('сан енгіз а ');

Readln(a);

b:= a div 10; {87 div 10 =8}

c:=a mod 10; {87 mod 10 =7}

a:=c*10+b; {7*10+8 = 78}

Writeln(a);

Readln End. Жауабы сан енгіз 87 шығады 78

25

1-2

3-4

5-6

7-8

9-10

11-12

13-14

15-16

17-18

19-20

21-22

23-24