Санның цифрларымен жұмыс

Презентация қосу

Сабақ
тақырыбы:
Санның цифрларымен
жұмыс
9-сынып
“...Адамзат үшін ХХІ ғасыр жаңа технологиялардың
ғасыры болмақ, ал осы жаңа технологияларды
жүзеге асырып, өмірге енгізу игеру және жетілдіру
- бүгінгі мектеп оқушылары сіздердің еншілеріңіз”
Н.Ә.Назарбаев
Сабақ міндеті:

-Паскаль тілінде
санның цифрларын
бөліп алу алгоритмін
меңгеру.
-Бағдарламалау
барысында қолдана
білуге үйрену.
Қажетті материалды еске түсірейік:

- A Div B – А санын В-ға бөлгендегі бүтін бөлігі;
- A Mod B – А санын В-ға бөлгендегі бүтін қалдық;
- Trunc(A) – А санының бүтін бөлігі;
- Идентификатор := өрнек; - меншіктеу операторы;
- Readln(x); – енгізу операторы;
- Writeln(x); – нәтиже алу операторы;
- Goto k; – шартсыз өту оперторы;
- If “шарт” Then “1-О” Else “2-О”; - шартты оператор;
- Case X of
1:
2: таңдау операторы;
...
end;
Mod және Div функцяларын
пайдаланып сан цифрларын бөліп
алу
Мысалы: N =457 сынын алсақ...

В:=N Mod 10 {7-ні бөліп алу}
D:=(N Div 10) Mod 10 {5-ті бөліп алу}
J:=N Div 100 {4-ті бөліп алу}

N:= J*100+D*10+B
(Мұндағы: J–жүздік, D–ондық, B–бірлік разряд)
Санның цифрларын бөліп
алу алгоритмі:

1.N санының оң жақтағы соңғы цифрын бөліп
алу;
2.Бөліп алған санмен жұмыс;
3.Келесі сан ретінде санның 10-ға бөлгендегі
бүтін бөлігін алу;
4.N = 0 болғанша, 1 қадамнан бастап
жалғастыру;
Санның цифрларын бөліп
алу алгоритмі:
Оң жақтағы соңғы цифрды бөлектеп алу Басы
үшiн :
енгізу N
N – TRUNC(N/10)*10
K:=N-TRUNC(N/10)*10
немесе N– (N div 10)*10,
...
....
N:=N DIV 10
N= TRUNC(N/10)
Иә
N>0
N = 0 болғанша жалғастыру
N мәні сақталу үшін
Соңы
алдын-ала N1:=N;
сақтап қойған жөн!
Есеп: Пернетақтадан енгізілген N көп таңбалы санының
неше орынды сан екенін және цифрларының
қосындысын есептеу керек болсын. БАСЫ

PROGRAM SAN; енгізу N
LABEL 3;
VAR N, N1, S, K, Т : INTEGER;
K:=N-TRUNC(N/10)*10
BEGIN
S:=S+K; Т:=Т+1;
WRITELN (‘ Бір сан енгіз: ’);
READLN(N) ; N1:=N; N:= TRUNC(N/10)
S:=0; T:=0;
3: K:= N – TRUNC(N/10)*10; N>0
Иә
S:=S+K; Т:=Т+1;
N:=N DIV 10; S; Т
IF N >0 THEN GOTO 3;
WRITELN (N1, ‘ ’, T , ‘ орынды сан’); COҢЫ
WRITELN (‘цифрларының қосындысы= ’, S)
END.
Пернетақтадан енгізілген натурал N санының неше орынды сан
екенін және цифрларының қосындысын есептеу бағдарламасы:
Енгізілген 6 орынды санның бақытты сан екендігін анықтайтын
бағдарлама құрыңыз.
/Бақытты сан деп алдыңғы үш цифрының қосындысы кейінгі үш цифрының
қосындысына тең болатын сандарды айтамыз. Мыс: 643580 /

PROGRAM BAKITSANI;
VAR N: LONGINT;
A,B,A1,A2,A3,B1,B2,B3 : INTEGER;
BEGIN
WRITE (‘ 6 орынды бір сан енгіз );
READLN (N);
A:=N DIV 1000; {Алдыңғы үш цифрды бөліп алу}
B:=N MOD 1000; {Кейінгі үш цифрды бөліп алу}
A1:=A MOD 10; A2:=(A DIV 10)MOD 10; A3:=A DIV 100;
B1:=B MOD 10; B2:=(B DIV 10)MOD 10; B3:=B DIV 100;
IF В1+В2+В3=A1+A2+A3 THEN WRITE (N,‘-бакыт саны’)
ELSE WRITE (N, ‘-бакытты сан емес’);
END.
Енгізілген 6 орынды санның бақытты сан екендігін анықтайтын бағдарлама:
Енгізілген үш орынды санның Полиндром сан екенін анықтайтын
бағдарлама құр. (полиндром сан деп тура оқығанда да және кері
оқығанда да мәні бірдей сандарды айтады, яғни берілген есеп үшін
бірінші және үшінші цифрлары тең сандар)
БАСЫ

N-ді енгізу

PROGRAM POLINDROM1;
B:=N Mod 10
LABEL 2;
VAR N: INTEGER;
J:=N Div 100
BEGIN
Жо Иә
2: WRITELN (‘ Үш таңбалы сан енгіз: ’); қ B=J
READLN(N) ;
«полиндром «полиндром
Иә
IF (N>999) OR (N<100) THEN GOTO 2; емес» сан»
IF N MOD 10 = N DIV 100
THEN WRITE (N, ‘-Полиндром сан’)
ELSE WRITE (N, ‘ -полиндром емес’) COҢЫ
END.
Енгізілген үш орынды санның Полиндром сан екенін анықтайтын
бағдарлама:
Тапсырмалар:
1) N натурал саны берілген. Осы санның цифрларының көбейтіндісін табуға
бағдарлама құр.
2) N натурал саны берілген:
А) 3-ке бөлінгіштік белгісі бойынша 3-ке бөлінетінін не бөлінбейтінін аныќта
(Егер цифрларыныњ ќосындысы 3-ке бөлінсе, онда сол сан 3-ке бөлінеді)
Б) 5-ке бөлінетіндігін тексер (Егер N саныныњ соңғы цифры 0 немесе 5 болса,
онда N 5-ке бөлінеді)
3) Берілген 4 орынды натурал сандағы әрбір жұп санды 2 есеге азайту керек.
Мысалы, бастапқы 3276 санынан 3173 деген жауап аламыз.
4) Үш таңбалы сан берілген: Анықтау керек:
- Санның жүздік разряды мен ондық разрядын ауыстырғанда шығатын санды;
- Бірлік разрядты мыңдық разрядқа қойғанда шығатын 4 таңбалы санды.
- Сан құрамында бірдей таңбалы цифрдың бар жоғын.
Тапсырмалар:

5) Енгізілген санның Автоморфтық сан екенін анықтайтын
программа құр: /Автоморфтық сан деп, санның
квадратының соңғы цифрлары сол санға тең болатын сан.
Мысалы: 52=25, 62=36, 252=625 /.
6) Енгізілген санның Армстронг саны болатындығын
есептейтін программа. (Армстронг саны деп К цифрдан
тұратын және цифрларының К дәрежелерініњ ќосындысы
сол санѓа тењ болатын сандарды айтамыз. Мысалы, 153 =
13+53+33;)
7) Енгізілген санды симметриялыққа тексеретін программа
құр. /Симметриялы сандар бірдей екі бөліктен тұратын
сандар. Мысалға: 245245
1. Turbo Pascal-да мына операторлар орындалғаннан
кейін Z айнымалысы қандай мәнге ие болады?
(N=3964)

A:=N Mod 100;
B:=N Div 100;
Z:=A*100+B;
жауаптары:
4696
6439
4693
2. а=13305 болса, келесі бағдарлама үзіндісі
орындалғаннан кейін экранда не басылады?

b:=0;
5: b:=b*10+a mod 10;
a:=a div 10;
If a<>0 then goto 5;
Writeln(b); жауаптары:
50330
50303
50331
3. Мына бағдарлама орындалып біткеннен
кейін экраннан не көрінеді?
PROGRAM P3;
VAR Т: INTEGER;
BEGIN
T:=1990 div 100 *10 - 190 div 10 *10 +10;
СASE T OF
1 : WRITELN (’ Тауелсіздігіміз жарияланған жыл’);
10 : WRITELN (’ Елордамыз Астанаға көшірілді’);
100 : WRITELN (’ Ата Заңымыз қабылданды’);
END
END.

Тауелсіздігіміз жарияланған жыл
Елордамыз Астанаға көшірілді
Ата Заңымыз қабылданды
Біз нені меңгердік?!
-санның цифрларын бөліп алу
алгоритмін меңгердік;
-сандардың түрлері, атаулары
туралы мағлұмат алдық;
- бағдарлама құру
дағдыларымызды жетілдірдік;
- бір-бірімізбен байланысқа
шықтық;
Көңіл қойып,
тыңдағандарыңызға рахмет!

Сау болыңыздар!

Ұқсас жұмыстар

Тарих және уақыт

Әріптер - латын тілінің әріптері, сонымен қатар астын сызу белгісі

Критериалды бағалаудың маңызы

Теңдеулер құруға берıлген есептердı шығару әдıстемесı

Қанның формалды элементтері

Excel –бағдарламасында кестелер құрылымы, кестелермен жұмыс

Карталардың разграфкасы және номенклатурасы

Рационал сандарды азайту

Тритикале ұнының және қара бидай ұнының химиялық құрамын оқып үйрену

Нөлдің санға бөліндісі

Пәндер