Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Презентации / Презентация на тему "Паскаль негіздері"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Презентация на тему "Паскаль негіздері"

библиотека
материалов
 Паскаль тілінде программалау Тақырып 1. Кіріспе
 Паскаль тілінде программалау Тақырып 2. Тармақталу
Алгоритм Алгоритм қасиеттері дискреттілік: жекелеген қадамдардан(командалард...
Программа Программа дегеніміз - қандай да бір программалау тілінде жазылған...
Программалау тілдері Машинаға бейімделген (төменгі деңгейлі) - әрбір команда...
 Паскаль тілінде программалау Тақырып 6. Таңдау операторы
 Паскаль тілінде программалау Тақырып 7. Графика
Программа қандай бөліктерден тұрады? Тұрақты – өз атауы болатын, өзгермейтін...
Программалар, тұрақтылар, айнымалылар атауы Атауларды сипаттағанда латын әрі...
Тұрақтылар const 	 	i2 = 45; { бүтін сан } 	pi = 3.14; { нақты сан } 	qq = '...
Айнымалылар Айнымалы – аты, типі және мәні болатын шама. Айнымалының мәнін п...
Айнымалының мәнін қалай өзгертуге болады? Оператор – жоғары деңгейлі програм...
Меншіктеу операторы Жалпы құрылымы: Арифметикалық өрнектің құрамында тұрақты...
program qq; 	var a, b: integer; 		 x, y: real; 	begin 	 a := 5; 10 := x; y...
Амалдарды орындау тәртібі жақша ішіндегі өрнекті есептеу солдан оңға қарай к...
Екі санды қосу Есеп. Екі бүтін санды қосып, қосындысын экранда шығару. Шығар...
Енгізу операторы read ( a ); { а айнымалысының мәнін енгізу} read ( a, b );...
Шығару операторы write ( a ); { a айнымалысының мәнін шығару} writeln ( a );...
Шығару форматтары program qq; var i: integer; x: real; begin i := 15; writel...
Толық шығарылуы 	program qq; 	var a, b, c: integer; 	begin writeln(‘Екі бүті...
Сызықтық алгоритмның блок-схемасы басы соңы c := a + b; енгізу a, b шығару c...
Тапсырмалар "4": Үш сан енгізіп,олардың қосындысын және көбейтіндісін табу....
Тармақталу алгоритмдері Есеп. Екі бүтін сан енгізіп,экранға олардың үлкенін...
Нұсқа 1. Блок-схема Тармақталудың толымды түрі «таңдау» блогі басы max:= a;...
Нұсқа 1. Программа 	 max := a; max := b; шартты оператордың толымды түрі 	pr...
Шартты оператор 	if  then begin {егер шарт орындалса, не істеу керек} end el...
Қай жері дұрыс емес? 	if a > b then begin a := b; end else b := a; end; 	if...
Нұсқа 2. Блок-схема тармақталудың толымсыз түрі басы max:= a; енгізу a,b шығ...
Нұсқа 2. Программа 	 	program qq; 	var a, b, max: integer; 	begin writeln(‘Е...
Нұсқа 2Б. Программа 	program qq; 	var a, b, max: integer; 	begin writeln('Ек...
Қай жері дұрыс емес? 	if a > b then begin a := b; else b := a; 	if a > b the...
Тапсырмалар "4": Үш сан енгізіп олардың үлкенін табу. Мысал: 	 Үш сан енгіз:...
Күрделі шарттар Есеп. Фирма 25 пен 40 жас арасындағы қызметкерлерді жұмысқа...
 Нұсқа 1. Алгоритм басы енгізу x ‘болады' жоқ иә жоқ x >= 25? иә жоқ x
Нұсқа 1. Программа 	 	program qq; 	var x: integer; 	begin writeln(‘Жасты енг...
 Нұсқа 2. Алгоритм басы енгізу x ‘болады' иә жоқ x >= 25 және x
Вариант 2. Программа күрделі шарт 	program qq; 	var x: integer; 	begin write...
Күрделі шарттар Күрделі шарт – бір-бірімен логикалық операциялардың көмегіме...
Күрделі шарттар Орындау тәртібі жақша ішіндегі өрнектер not and or, xor =, =...
a := 2; b := 3; c := 4; болған жағдайда ақиқат немесе жалған: not (a > b) (a...
Тапсырмалар "4": Айдың нөмірін енгізу арқылы, жыл мезгілінің атауын шығару....
Циклдер Цикл – белгілі бір әрекеттер тізбегінің бірнеше рет қайталанып орынд...
 Алгоритм басы i, i2, i3 соңы жоқ иә i
Алгоритм ("цикл" блогімен) басы i, i2, i3 соңы i2 := i * i; i3 := i2 * i; i...
Программа program qq; var i, i2, i3: integer; begin for i:=1 to 8 do begin i...
Айнымалысы кеміп отыратын цикл Есеп. 8-ден 1-ге дейінгі бүтін сандардың квад...
Айнымалысы бар цикл 	for  :=  to  do begin {цикл денесі} end; Айнымалының 1-...
Айнымалысы бар цикл Ерекшеліктері: цикл айнымалысының мәні бүтін болуы керек...
Айнымалысы бар цикл Ерекшеліктері: Цикл денесінде цикл айнымалысын өзгертуге...
Цикл неше рет орындалған? a := 1; for i:=1 to 3 do a := a+1; a = 4 a := 1; f...
for i:=1 to 9 do begin if ??? then begin i2 := i*i; i3 := i2*i; writeln(i:4,...
Қадамдарды қалай өзгертуге болады? – II Идея: Тек 5 санды ғана шығару керек,...
Қадамдарды қалай өзгертуге болады? – III Идея: Тек 5 санды ғана шығару керек...
Тапсырмалар "4": a мен b-ны енгізіп, осы екеуінің арасындағы сандардың квадр...
Қадамдар саны белгісіз цикл Мысал: Бөренеден ағаштың бұтағын кесіп алу керек...
Алгоритм басы count соңы жоқ иә n  0? count := 0; count := count + 1; n := n...
Программа program qq; var n, count: integer; begin writeln(’Бүтін сан енгіз’...
Шартты цикл 	while  do begin {цикл денесі} end; Ерекшеліктері: күрделі шартт...
Шартты цикл Ерекшеліктері: циклге кірген сайын шарт есептеліп отырады егер ш...
Цикл неше рет орындалған? a := 4; b := 6; while a < b do a := a + 1; 2 рет a...
For-ны while-ға ауыстыру және керісінше for i:=1 to 10 do begin {цикл денесі...
Тапсырмалар "4": Бүтін сан енгізіп, ондағы цифрлардың қосындысын табу. Мысал...
Тізбектер Мысалдар: 1, 2, 3, 4, 5, … 1, 2, 4, 7, 11, 16, … 1, 2, 4, 8, 16, 3...
Тізбектер Есеп: модулі бойынша 0,001-ден асып түсетін тізбектегі барлық элем...
Алгоритм басы S соңы жоқ иә |a| > 0.001? S := S + a; S := 0; b := 1; c := 2;...
Программа program qq; var b, c, z: integer; S, a: real; begin S := 0; z := -...
Тапсырмалар "4": Тізбектегі элементтердің қосындысын 0,001 дәлдікпен табу :...
Соңғышартты цикл Есеп: Бүтін оң сан енгізіп( шартын тексеруді циклдың соңынд...
Соңғышартты цикл: алгоритм басы соңы иә жоқ n > 0? цикл денесі ШЫҒУДЫҢ шарты...
Программа program qq; var n: integer; begin repeat writeln('Введите положите...
Цикл неше рет орындалған? a := 4; b := 6; repeat a := a + 1; until a > b; 3...
Тапсырмалар (бұрыс енгізуден қорғау) "4": Натурал сан енгізіп, сол сандағы ц...
Таңдау операторы Есеп: Ай нөмірін енгізіп, осы айдағы күндердің санын шығару...
Алгоритм басы соңы таңдау операторы ешбір нұсқасы сәйкес келген жоқ енгізу M...
Программа program qq; var M, D: integer; begin writeln(‘Айдың нөмірін енгіз:...
Таңдау операторы Ерекшеліктері: case-тен кейін айнымалы атауы немесе бүтін т...
Таңдау операторы Ерекшеліктері: егер бір ғана операторды орындау керек болса...
Таңдау операторы Ерекшеліктері: бірдей әрекеттер орындалатын кезде қолданыла...
Қай жері дұрыс емес? case a of 2: begin a := b; 4: a := c; end; case a of 2:...
Тапсырмалар (бұрыс енгізуден қорғаумен) "4": Айдың нөмірін енгізе отырып, ос...
 Координаталар жүйесі (0,0) (x,y) X Y x y
Түстерді басқару Cызықтың түсі мен қалыңдығы, нүктелердің түсі: Pen ( 1, 255...
Нүктелер, кесінділер және қисық сызықтар Pen (1, 0, 255, 0); Line (x1, y1, x...
Фигуралардың ішін бояу Pen (1, 0, 0, 255); Brush (1, 255, 255, 0); Rectangle...
Мәтін TextColor (0, 0, 255); Brush (1, 255, 255, 0); Font (20, 30, 600); Mov...
Мысал (200, 50) (100, 100) (300, 200) program qq; begin Pen(2, 255, 0, 255);...
 Тапсырмалар "4": «Бақа" "5": «Тәж"
Штрихтер салу (x1, y1) (x2, y2) N сызық (N=5) h Rectangle (x1, y1, x2, y2);...
Түсті қалай өзгертуге болады? (x1, y1) (x2, y2) Brush ( 1, c, c, c ); Fill (...
Штрихтер салу (x1, y1) (x2, y2) (x3, y2) a h (x3+a, y1) Line( x1+h, y1, x1+h...
Штрихтер салу (x1, y1) (x2, y2) hx hy y x y Line( x1, y1+hy, x1+hx, y1+hy) ;...
Тапсырмалар "4": Пернетақтадан штрих сызықтарының санын енгізе отырып фигура...
 Паскаль тілінде программалау Тақырып 8. Функциялардың графигі
Функция графиктерін құру Есеп: 0 мен 2π интервалы арасындағы y = 3 sin(x) фу...
Координаталардың түрленуі (x,y) X Y x y Координаталардың математикалық жүйес...
Программа 2π h – x-тің өзгеру қадамы w – ОХ осінің ұзындығы(пиксельдер саны)...
Нүктелерді қалай біріктіруге болады? Алгоритм: Егер бірінші нүкте болса (xэ,...
Тапсырмалар "4": [-3,3] интервалы арасында y = x2 функциясының графигін құру...
 Паскаль тілінде программалау Тақырып 9. Процедуралар
Процедуралар Есеп: Мына фигураны құру: Ерекшелігі: Үш ұқсас фигура. жалпы: ө...
Процедуралар Процедура – кейбір әрекеттерді орындау үшін қолданылатын көмекш...
Процедуралар Есепті орындау тәртібі: бірдей немесе ұқсас әрекеттерді ерекшел...
Программа program qq; begin Pen(1, 255, 0, 255); Tr(100, 100, 0, 0, 255); Tr...
Процедуралар Ерекшеліктері: барлық процедуралар негізгі программаның үстінде...
Процедуралар Ерекшеліктері: әрбір формалды параметрдің қос нүктеден кейін ти...
Процедуралар Ерекшеліктері: процедурада қосымша айнымалы ретінде жергілікті(...
Параметр-айнымалылар Есеп: екі айнымалы мәндерінің орындарын ауыстыратын про...
Параметр-айнымалылар Қолданылуы: процедура(және функция) осындай әдіс арқылы...
Тапсырмалар "4": Процедураларды пайдалана отырып, мына фигураны құрастыру. "...
 Паскаль тілінде программалау Тақырып 10. Рекурсия
Рекурсивті объектілер Рекурсивті объект деп - бір объект немесе дәл осындай...
Пифагор ағашы N деңгейлі Пифагор ағашы – бұл ағаштың діңгегі мен осы діңгект...
Пифагор ағашы Ерекшеліктері: қашан тоқтау керек? ағаштардың иілу бұрышы әр т...
Процедура α бұрышы баған ұзындығы procedure Pifagor(x0, y0, a, L: real; N: i...
Программа program qq; procedure Pifagor(x0, y0, a, L: real; N: integer); ......
"4": Рекурсивті процедураны қолдана отырып, мына фигураны құрастыру: "5": Ре...
 Паскаль тілінде программалау Тақырып 11. Анимация
Анимация Анимация (ағылш. animation) – экрандағы кескінге жан бітіру. Есеп:...
«Пернелерді шертуді» қалай іске асыруға болады? Оқиға деп қандай да бір объе...
Esc пернесін басып циклдан қалай шығуға болады? program qq; var stop: boolea...
Процедура (сурет салу және өшіру) procedure Draw(x, y: integer; flag: boolea...
Толық программасы program qq; var x, y, k, code, i: integer; stop: boolean;...
"4": Екі квадрат бір біріне қарама-қарсы бағытта қозғалады: "5": Екі квадрат...
Пернелермен басқару Есеп: көк квадраттың ішінде орналасқан сары квадрат бағы...
Программасы program qq; var x, y, k, code, i: integer; stop: boolean; begin...
Жыпылықтауды қалай кетіруге болады? Проблема: ешбір перне басылмағанның өзін...
Программасы program qq; var x, y, k, code, i: integer; stop: boolean; begin...
"4": Квадрат бағыттауыш пернелерді басқан бағытта жылжып отырады, алайда көк...
Айналу Есеп: Жердің Күнді айналу моделін бейнелеу. Проблема: шеңбер бойымен...
Процедура procedure Draw(x, y: integer; flag: boolean); const r = 10; begin...
Тұрақтылар мен айнымалылар program qq; const rSun = 60; { Күннің радиусы } L...
Негізгі программа program qq; ... begin Brush(1, 0, 0, 0); Fill(1,1); Brush(...
"4": Күнді айналып жүрген екі планетаның моделін бейнелеу, планеталар бір-бі...
 Паскаль тілінде программалау Тақырып 12. Кездейсоқ сандар
Кездейсоқ сандар Кездейсоқ көріністер: барлық жерде… тиынды лақтыру ("орел"...
Жалған кездейсоқ сандар Жалған кездейсоқ сандар – бойында кездейсоқ сандарды...
Кездейсоқ сандардың орналасуы Модель: қар бұршақтары [a,b] кесіндісінің арал...
Кездейсоқ сандардың орналасуы Ерекшеліктері: орналасу – бұл бір ғана санның...
Паскальдегі кездейсоқ сандардың генераторы [0,N] интервалындағы бүтін сандар...
Кездейсоқ сандар Есеп: 400х300 пиксельді тіктөртбұрыштың ішін түстері кездей...
Программа program qq; var x, y, k, code, i: integer; stop: boolean; begin st...
"4": Пернетақтадан тіктөртбұрыш бұрыштарының координаталарын енгізіп, тіктөр...
 Паскаль тілінде программалау Тақырып 13. Функциялар
Функциялар Функция – нәтижесі қандай да бір мәнге ие болатын көмекші алгорит...
Функциялар Есеп: екі санның үлкенін анықтайтын функция құру және оны қолдану...
Функциялар Ерекшеліктері: тақырыбы function сөзімен басталады функцияда форм...
Функциялар Ерекшеліктері: жергілікті айнымалыларды жариялауға және пайдалану...
Программа program qq; var a, b, max: integer; begin writeln(‘Екі сан енгіз')...
Логикалық функциялар Есеп: енгізілген санның - жай сан екендігін анықтайтын...
Логикалық функциялар program qq; var N: integer; begin writeln(‘Бүтін сан ен...
Тапсырмалар "4": 1-ден N-ге дейінгі сандардың қосындысын анықтайтын функция...
Тапсырмалар (2-нұсқа) "4": Екі натурал санның ең үлкен ортақ бөлгішін анықта...
 Фильмнің соңы
159 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Описание презентации по отдельным слайдам:

№ слайда 1  Паскаль тілінде программалау Тақырып 1. Кіріспе
Описание слайда:

Паскаль тілінде программалау Тақырып 1. Кіріспе

№ слайда 2  Паскаль тілінде программалау Тақырып 2. Тармақталу
Описание слайда:

Паскаль тілінде программалау Тақырып 2. Тармақталу

№ слайда 3 Алгоритм Алгоритм қасиеттері дискреттілік: жекелеген қадамдардан(командалард
Описание слайда:

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

№ слайда 4 Программа Программа дегеніміз - қандай да бір программалау тілінде жазылған
Описание слайда:

Программа Программа дегеніміз - қандай да бір программалау тілінде жазылған алгоритм компьютерге қажетті командалардың жиынтығы Команда – компьютер орындауға міндетті әрекеттің өрнектелуі. алғашқы мәліметтерді қайдан алу керек? олармен қандай амалдар орындау керек?

№ слайда 5 Программалау тілдері Машинаға бейімделген (төменгі деңгейлі) - әрбір команда
Описание слайда:

Программалау тілдері Машинаға бейімделген (төменгі деңгейлі) - әрбір команда процессордың бір командасына сәйкес келеді (ассемблер) Жоғарғы деңгейлі тілдер – кәдімгі табиғи тілге(ағылшын тіліне) ұқсайды, адамның түсінуіне оңай, бір ғана компьютерге тәуелді болмайды. Жаңадан үйренушілерге: Бейсик, ЛОГО, Паскаль Кәсіби: Си, Фортран, Паскаль Жасанды интеллект тапсырмалары үшін: Пролог, ЛИСП Интернет үшін: JavaScript, Java, Perl, PHP, ASP

№ слайда 6  Паскаль тілінде программалау Тақырып 6. Таңдау операторы
Описание слайда:

Паскаль тілінде программалау Тақырып 6. Таңдау операторы

№ слайда 7  Паскаль тілінде программалау Тақырып 7. Графика
Описание слайда:

Паскаль тілінде программалау Тақырып 7. Графика

№ слайда 8 Программа қандай бөліктерден тұрады? Тұрақты – өз атауы болатын, өзгермейтін
Описание слайда:

Программа қандай бөліктерден тұрады? Тұрақты – өз атауы болатын, өзгермейтін шама, . Айнымалы – өз атауы (жад ұяшығы)болатын, өзгеретін шама. Процедура – кейбір әрекеттерді сипаттайтын қосалқы алгоритм (мысалға шеңберді салу). Функция – есептеулерді орындайтын қосалқы алгоритм (квадрат түбірді табу, sin).

№ слайда 9 Программалар, тұрақтылар, айнымалылар атауы Атауларды сипаттағанда латын әрі
Описание слайда:

Программалар, тұрақтылар, айнымалылар атауы Атауларды сипаттағанда латын әріптерін (A-Z) сандарды астын сызу белгісін _ қолдануға болады Бас әріптер мен кіші әріптердің арасында айырмашылық болмайды Атауларды сипаттағанда орыс, қазақ әріптерін бос орындарды жақшаларды, +, =, !, ? белгілерін және т.б. қолдануға болмайды Атаулар санмен басталмауы керек Қай атаулар дұрыс жазылған? AXby R&B 4Wheel Вася “PesBarbos” TU154 [QuQu] _ABBA A+B

№ слайда 10 Тұрақтылар const 	 	i2 = 45; { бүтін сан } 	pi = 3.14; { нақты сан } 	qq = &#039;
Описание слайда:

Тұрақтылар const i2 = 45; { бүтін сан } pi = 3.14; { нақты сан } qq = 'Вася'; { символдар қатары } L = True; { логикалық шама } бүтін және бөлшек бөліктері нүктемен ажыратылады орыс, қазақ әріптерін қолдануға болады! екі мән қабылдай алады: True (ақиқат, «иә») False (жалған, «жоқ»)

№ слайда 11 Айнымалылар Айнымалы – аты, типі және мәні болатын шама. Айнымалының мәнін п
Описание слайда:

Айнымалылар Айнымалы – аты, типі және мәні болатын шама. Айнымалының мәнін программаның жұмысы кезінде өзгертіп отыруға болады. Айнымалылардың типі: integer { бүтін } real { нақты } char { бір символ } string { символдық тіркес } boolean { логикалық } Айнымалыларды сипаттау (жад бөлу): var a, b: integer; Q: real; s1, s2: string;

№ слайда 12 Айнымалының мәнін қалай өзгертуге болады? Оператор – жоғары деңгейлі програм
Описание слайда:

Айнымалының мәнін қалай өзгертуге болады? Оператор – жоғары деңгейлі программалау тілінің командасы. Меншіктеу операторы айнымалының мәнін өзгерту үшін қолданылады. program qq; var a, b: integer; begin a := 5; b := a + 2; a := (a + 2)*(b – 3); end. a ? 5 5 b ? 5+2 7 a 5 7*4 28 Мысал:

№ слайда 13 Меншіктеу операторы Жалпы құрылымы: Арифметикалық өрнектің құрамында тұрақты
Описание слайда:

Меншіктеу операторы Жалпы құрылымы: Арифметикалық өрнектің құрамында тұрақтылар айнымалы атаулары арифметикалық амалдар белгілері: + - * / div mod функцияларды шақыру жақшалар ( ) көбейту бөлу бүтінді бүтінге бөлу бөлуден қалған қалдық <айнымалы атауы> := <өрнек>;

№ слайда 14 program qq; 	var a, b: integer; 		 x, y: real; 	begin 	 a := 5; 10 := x; y
Описание слайда:

program qq; var a, b: integer; x, y: real; begin a := 5; 10 := x; y := 7,8; b := 2.5; x := 2*(a + y); a := b + x; end. Қай операторлар дұрыс жазылмаған? айнымалы атауы := белгісінің сол жағында болуы керек бүтін мен бөлшектің арасы нүктемен ажыратылуы керек нақты мәнді бүтін айнымалыға меншіктеуге болмайды

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

Амалдарды орындау тәртібі жақша ішіндегі өрнекті есептеу солдан оңға қарай көбейту, бөлу, div, mod солдан оңға қарай қосу және алу z := (5*a*c+3*(c-d))/a*(b-c)/ b; x:=(a*a+5*c*c-d*(a+b))/((c+d)*(d-2*a)); 2 3 5 4 1 7 8 6 9 2 6 3 4 7 5 1 12 8 11 10 9

№ слайда 16 Екі санды қосу Есеп. Екі бүтін санды қосып, қосындысын экранда шығару. Шығар
Описание слайда:

Екі санды қосу Есеп. Екі бүтін санды қосып, қосындысын экранда шығару. Шығарылуы: program qq; var a, b, c: integer; begin read ( a, b ); c := a + b; writeln ( c ); end.

№ слайда 17 Енгізу операторы read ( a ); { а айнымалысының мәнін енгізу} read ( a, b );
Описание слайда:

Енгізу операторы read ( a ); { а айнымалысының мәнін енгізу} read ( a, b ); { а және b айнымалыларының мәндерін енгізу} Екі санды қалай енгізуге болады? бос орын арқылы: 25 30 Enter арқылы: 25 30

№ слайда 18 Шығару операторы write ( a ); { a айнымалысының мәнін шығару} writeln ( a );
Описание слайда:

Шығару операторы write ( a ); { a айнымалысының мәнін шығару} writeln ( a ); {a айнымалысының мәнін шығарып,келесі жолға көшу} writeln ( ‘Салем!' ); { мәтінді шығару} writeln ( ‘Жауап: ', c ); { мәтінді және c айнымалысының мәнін шығару} writeln ( a, '+', b, '=', c );

№ слайда 19 Шығару форматтары program qq; var i: integer; x: real; begin i := 15; writel
Описание слайда:

Шығару форматтары program qq; var i: integer; x: real; begin i := 15; writeln ( '>', i, '<' ); writeln ( '>', i:5, '<' ); x := 12.345678; writeln ( '>', x, '<' ); writeln ( '>', x:10, '<' ); writeln ( '>', x:7:2, '<' ); end. >15< > 15< >1.234568E+001< > 1.23E+001< > 12.35< барлық символдар саны барлық символдар саны бөлшек бөлігіндегі символдар саны

№ слайда 20 Толық шығарылуы 	program qq; 	var a, b, c: integer; 	begin writeln(‘Екі бүті
Описание слайда:

Толық шығарылуы program qq; var a, b, c: integer; begin writeln(‘Екі бүтін сан енгізіңіз'); read ( a, b ); c := a + b; writeln ( a, '+', b, '=', c ); end. Протокол: Екі бүтін сан енгізіңіз 25 30 25+30=55 бұны компьютер шығарады бұны программа жазушы өзі енгізеді

№ слайда 21 Сызықтық алгоритмның блок-схемасы басы соңы c := a + b; енгізу a, b шығару c
Описание слайда:

Сызықтық алгоритмның блок-схемасы басы соңы c := a + b; енгізу a, b шығару c «басы» блогі «енгізу» блогі «процесс» блогі «шығару» блогі «соңы» блогі

№ слайда 22 Тапсырмалар &quot;4&quot;: Үш сан енгізіп,олардың қосындысын және көбейтіндісін табу.
Описание слайда:

Тапсырмалар "4": Үш сан енгізіп,олардың қосындысын және көбейтіндісін табу. Мысал: Үш сан енгіз: 4 5 7 4+5+7=16 4*5*7=140 "5": Үш сан енгізіп, олардың қосындысын, көбейтіндісін және арифметикалық ортасын табу. Мысал: Үш сан енгіз: 4 5 7 4+5+7=16 4*5*7=140 (4+5+7)/3=5.33

№ слайда 23 Тармақталу алгоритмдері Есеп. Екі бүтін сан енгізіп,экранға олардың үлкенін
Описание слайда:

Тармақталу алгоритмдері Есеп. Екі бүтін сан енгізіп,экранға олардың үлкенін шығару. Шығару амалы: бірінші сан екінші саннан үлкен болса, біріншісін, ал егер кіші болса екіншісін экранға шығару. Ерекшелігі: атқарушының әрекеті кейбір шарттардың орындалуына байланысты болады (егер …әйтпесе …). Қадамдардың тізбектеп орындалуы кейбір шарттарға байланысты болатын алгоритмдерді тармақталу алгоритмдері деп атайды.

№ слайда 24 Нұсқа 1. Блок-схема Тармақталудың толымды түрі «таңдау» блогі басы max:= a;
Описание слайда:

Нұсқа 1. Блок-схема Тармақталудың толымды түрі «таңдау» блогі басы max:= a; енгізу a,b шығару max a > b? max:= b; соңы иә жоқ Егер a = b? ?

№ слайда 25 Нұсқа 1. Программа 	 max := a; max := b; шартты оператордың толымды түрі 	pr
Описание слайда:

Нұсқа 1. Программа max := a; max := b; шартты оператордың толымды түрі program qq; var a, b, max: integer; begin writeln(‘Екі бүтін сан енгіз'); read ( a, b ); if a > b then begin end else begin end; writeln (‘Екі санның үлкені', max); end.

№ слайда 26 Шартты оператор 	if  then begin {егер шарт орындалса, не істеу керек} end el
Описание слайда:

Шартты оператор if <шарт> then begin {егер шарт орындалса, не істеу керек} end else begin {егер шарт орындалмаса, не істеу керек} end; Ерекшеліктері: else-тің алдында нүктелі үтір болмауы керек екінші бөліктің (else …) болмауы да мүмкін (толымсыз түрі) егер блокта бір ғана оператор болса, begin мен end сөздерін жазбауға да болады

№ слайда 27 Қай жері дұрыс емес? 	if a &gt; b then begin a := b; end else b := a; end; 	if
Описание слайда:

Қай жері дұрыс емес? if a > b then begin a := b; end else b := a; end; if a > b then begin a := b; else begin b := a; end; if a > b then begin a := b; end; else begin b := a; end; if a > b then begin a := b; end else b > a begin b := a; end; begin end begin end

№ слайда 28 Нұсқа 2. Блок-схема тармақталудың толымсыз түрі басы max:= a; енгізу a,b шығ
Описание слайда:

Нұсқа 2. Блок-схема тармақталудың толымсыз түрі басы max:= a; енгізу a,b шығару max max:= b; соңы иә жоқ b > a?

№ слайда 29 Нұсқа 2. Программа 	 	program qq; 	var a, b, max: integer; 	begin writeln(‘Е
Описание слайда:

Нұсқа 2. Программа program qq; var a, b, max: integer; begin writeln(‘Екі бүтін сан енгіз'); read ( a, b ); max := a; if b > a then max := b; writeln (‘Екі санның үлкені', max); end. шартты оператордың толымсыз түрі

№ слайда 30 Нұсқа 2Б. Программа 	program qq; 	var a, b, max: integer; 	begin writeln(&#039;Ек
Описание слайда:

Нұсқа 2Б. Программа program qq; var a, b, max: integer; begin writeln('Екі бүтін сан енгіз'); read ( a, b ); max := b; if ??? then ??? writeln ('Екі санның үлкені', max); end. max := a; a > b

№ слайда 31 Қай жері дұрыс емес? 	if a &gt; b then begin a := b; else b := a; 	if a &gt; b the
Описание слайда:

Қай жері дұрыс емес? if a > b then begin a := b; else b := a; if a > b then begin a := b; end; else b := a; if a > b then else begin b := a; end; if a > b then a := b; else b := a; end; a := b end a := b if b >= a then b := a;

№ слайда 32 Тапсырмалар &quot;4&quot;: Үш сан енгізіп олардың үлкенін табу. Мысал: 	 Үш сан енгіз:
Описание слайда:

Тапсырмалар "4": Үш сан енгізіп олардың үлкенін табу. Мысал: Үш сан енгіз: 4 15 9 Ең үлкен сан 15 "5": Бес сан енгізіп олардың үлкенін табу. Мысал: Бес сан енгіз: 4 15 9 56 4 Ең үлкен сан 56

№ слайда 33 Күрделі шарттар Есеп. Фирма 25 пен 40 жас арасындағы қызметкерлерді жұмысқа
Описание слайда:

Күрделі шарттар Есеп. Фирма 25 пен 40 жас арасындағы қызметкерлерді жұмысқа алуда. Адамның жасын енгізіп, оны фирмаға алуға болатындығы немесе болмайтындығы туралы мәлімет шығару («болады» немесе «болмайды» деген жауап шығару). Ерекшелігі: екі шарттың бір мезгілде орындалатынын немесе орындалмайтынын тексеру. Белгілі әдістермен шешуге бола ма? ?

№ слайда 34  Нұсқа 1. Алгоритм басы енгізу x ‘болады&#039; жоқ иә жоқ x &gt;= 25? иә жоқ x
Описание слайда:

Нұсқа 1. Алгоритм басы енгізу x ‘болады' жоқ иә жоқ x >= 25? иә жоқ x <= 40? 'болмайды' ‘болмайды'

№ слайда 35 Нұсқа 1. Программа 	 	program qq; 	var x: integer; 	begin writeln(‘Жасты енг
Описание слайда:

Нұсқа 1. Программа program qq; var x: integer; begin writeln(‘Жасты енгіз'); read ( x ); if x >= 25 then if x <= 40 then writeln (‘Болады') else writeln (‘Болмайды') else writeln (‘Болмайды'); end.

№ слайда 36  Нұсқа 2. Алгоритм басы енгізу x ‘болады&#039; иә жоқ x &gt;= 25 және x
Описание слайда:

Нұсқа 2. Алгоритм басы енгізу x ‘болады' иә жоқ x >= 25 және x <= 40? 'болмайды' соңы

№ слайда 37 Вариант 2. Программа күрделі шарт 	program qq; 	var x: integer; 	begin write
Описание слайда:

Вариант 2. Программа күрделі шарт program qq; var x: integer; begin writeln(‘Жасты енгіз'); read ( x ); if (x >= 25) and (x <= 40) then writeln ('Болады') else writeln ('Болмайды') end.

№ слайда 38 Күрделі шарттар Күрделі шарт – бір-бірімен логикалық операциялардың көмегіме
Описание слайда:

Күрделі шарттар Күрделі шарт – бір-бірімен логикалық операциялардың көмегімен байланысатын бірнеше қарапайым шарттардан (қатынастардан) тұрады: not – ЕМЕС (терістеу, инверсия) and – ЖӘНЕ (логикалық көбейту, конъюнкция, шарттардың бір мезгілде орындалуы) or – НЕМЕСЕ (логикалық қосу, дизъюнкция, ең болмағанда бір шарттың орындалуы) xor – арифметикалық НЕМЕСЕ (екі шарттың екеуін емес, біреуін ғана орындау) Қарапайым шарттар (қатынастар) < <= > >= = <> тең тең емес

№ слайда 39 Күрделі шарттар Орындау тәртібі жақша ішіндегі өрнектер not and or, xor =, =
Описание слайда:

Күрделі шарттар Орындау тәртібі жақша ішіндегі өрнектер not and or, xor <, <=, >, >=, =, <> Ерекшелігі – қарапайым шарттардың әрқайсысын жақшамен жабу. Мысал: 4 1 6 2 5 3 if not (a > b) or (c <> d) and (b <> a) then begin ... end

№ слайда 40 a := 2; b := 3; c := 4; болған жағдайда ақиқат немесе жалған: not (a &gt; b) (a
Описание слайда:

a := 2; b := 3; c := 4; болған жағдайда ақиқат немесе жалған: not (a > b) (a < b) and (b < c) not (a >= b) or (c = d) (a < c) or (b < c) and (b < a) (a < b) xor not (b > c) x-тің қандай мәндерінде шарт ақиқат болады: (x < 6) and (x < 10) (x < 6) and (x > 10) (x > 6) and (x < 10) (x > 6) and (x > 10) (x < 6) or (x < 10) (x < 6) or (x > 10) (x > 6) or (x < 10) (x > 6) or (x > 10) Күрделі шарттар True True FALSE (-, 6)  (6, 10) (10, ) (-, 10) (-, 6)  (10,) (-, ) (6, ) x < 6 x > 10 x < 10 x > 6 True True

№ слайда 41 Тапсырмалар &quot;4&quot;: Айдың нөмірін енгізу арқылы, жыл мезгілінің атауын шығару.
Описание слайда:

Тапсырмалар "4": Айдың нөмірін енгізу арқылы, жыл мезгілінің атауын шығару. Мысал: Ай нөмірін енгіз: 4 көктем

№ слайда 42 Циклдер Цикл – белгілі бір әрекеттер тізбегінің бірнеше рет қайталанып орынд
Описание слайда:

Циклдер Цикл – белгілі бір әрекеттер тізбегінің бірнеше рет қайталанып орындалуы. қадамдар саны белгілі цикл қадамдар саны белгісіз цикл (шартты цикл) Есеп. 1-ден 8-ге дейінгі бүтін сандардың квадраттары мен кубтарын есептеп шығару (a-дан b-ға дейін). Ерекшелігі: бірдей амалдар 8 рет орындалады. Белгілі әдістермен шешуге бола ма? ?

№ слайда 43  Алгоритм басы i, i2, i3 соңы жоқ иә i
Описание слайда:

Алгоритм басы i, i2, i3 соңы жоқ иә i <= 8? i := 1; i := i + 1; i2 := i * i; i3 := i2 * i; цикл айнымалысының бастапқы мәнін көрсету барлығы да атқарылды ма? соны тексеру квадрат пен куб-ты есептейміз нәтижесін шығару келесі i-ге өту

№ слайда 44 Алгоритм (&quot;цикл&quot; блогімен) басы i, i2, i3 соңы i2 := i * i; i3 := i2 * i; i
Описание слайда:

Алгоритм ("цикл" блогімен) басы i, i2, i3 соңы i2 := i * i; i3 := i2 * i; i := 1,8 «цикл»блогі цикл денесі

№ слайда 45 Программа program qq; var i, i2, i3: integer; begin for i:=1 to 8 do begin i
Описание слайда:

Программа program qq; var i, i2, i3: integer; begin for i:=1 to 8 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; end. цикл айнымалысы бастапқы мән ең соңғы мән

№ слайда 46 Айнымалысы кеміп отыратын цикл Есеп. 8-ден 1-ге дейінгі бүтін сандардың квад
Описание слайда:

Айнымалысы кеміп отыратын цикл Есеп. 8-ден 1-ге дейінгі бүтін сандардың квадраттары мен кубтарын есептеп шығару (кері қарай есептеу). Ерекшелігі: цикл айнымалысы кеміп отыруы керек. Шығарылуы: for i:=8 1 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; downto

№ слайда 47 Айнымалысы бар цикл 	for  :=  to  do begin {цикл денесі} end; Айнымалының 1-
Описание слайда:

Айнымалысы бар цикл for <айнымалы> := <алғашқы мән> to <ең соңғы мән> do begin {цикл денесі} end; Айнымалының 1-ге артуы: for <айнымалы> := <алғашқы мән> downto <ең соңғы мән> do begin {цикл денесі} end; Айнымалының 1-ге кемуі:

№ слайда 48 Айнымалысы бар цикл Ерекшеліктері: цикл айнымалысының мәні бүтін болуы керек
Описание слайда:

Айнымалысы бар цикл Ерекшеліктері: цикл айнымалысының мәні бүтін болуы керек (integer) цикл айнымалысының өзгеру қадамы қашанда 1-ге (to) немесе -1-ге (downto) тең егер цикл денесінде бір ғана оператор болса, begin мен end сөздерін жазбай кетуге болады: егер соңғы мән алғашқы мәннен кіші болса, (to) циклы бірде бір рет орындалмайды (шартты циклдың басында тексеру, шартты алдын ала тексеретін цикл) for i:=1 to 8 do writeln('Привет');

№ слайда 49 Айнымалысы бар цикл Ерекшеліктері: Цикл денесінде цикл айнымалысын өзгертуге
Описание слайда:

Айнымалысы бар цикл Ерекшеліктері: Цикл денесінде цикл айнымалысын өзгертуге рұқсат етілмейді (неліктен?) Алғашқы және соңғы мәндер өзгертілгенімен цикл ішіндегі қадамдар саны өзгермейді: n := 8; for i:=1 to n do begin writeln('Салем'); n := n + 1; end; мүдіріп қалу жоқ

№ слайда 50 Цикл неше рет орындалған? a := 1; for i:=1 to 3 do a := a+1; a = 4 a := 1; f
Описание слайда:

Цикл неше рет орындалған? a := 1; for i:=1 to 3 do a := a+1; a = 4 a := 1; for i:=3 to 1 do a := a+1; a = 1 a := 1; for i:=1 downto 3 do a := a+1; a = 1 a := 1; for i:=3 downto 1 do a := a+1; a = 4

№ слайда 51 for i:=1 to 9 do begin if ??? then begin i2 := i*i; i3 := i2*i; writeln(i:4,
Описание слайда:

for i:=1 to 9 do begin if ??? then begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; end; Қадамдарды қалай өзгертуге болады? Есеп. Экранға 1-ден 9-ға дейінгі тақ сандардың квадраттары мен кубтарын есептеп шығару. Ерекшелігі: цикл айнымалысы 2-ге артып отыру керек. Мәселе: Паскальде қадамдар саны 1 немесе -1 болуы мүмкін. Шығарылуы: i mod 2 = 1 i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); Тек қана тақ i-лермен орындалады

№ слайда 52 Қадамдарды қалай өзгертуге болады? – II Идея: Тек 5 санды ғана шығару керек,
Описание слайда:

Қадамдарды қалай өзгертуге болады? – II Идея: Тек 5 санды ғана шығару керек, k айнымалысы 1-ден 5-ке дейін өзгереді. i-дің бастапқы мәні 1-ге тең, циклдың әр қадамы сайын i 2-ге артып отырады. Шығарылуы: ??? for k:=1 to 5 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); ??? end; i := i + 2; i := 1;

№ слайда 53 Қадамдарды қалай өзгертуге болады? – III Идея: Тек 5 санды ғана шығару керек
Описание слайда:

Қадамдарды қалай өзгертуге болады? – III Идея: Тек 5 санды ғана шығару керек, k айнымылысы 1-ден 5-ке дейін өзгереді. k-ны біле отырып, i-ді есептеу қажет. Шығарылуы: i = 2k-1 for k:=1 to 5 do begin ??? i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; i := 2*k – 1; k 1 2 3 4 5 i 1 3 5 7 9

№ слайда 54 Тапсырмалар &quot;4&quot;: a мен b-ны енгізіп, осы екеуінің арасындағы сандардың квадр
Описание слайда:

Тапсырмалар "4": a мен b-ны енгізіп, осы екеуінің арасындағы сандардың квадраттары мен кубтарын есептеп шығару. Мысал: Интервал шекараларын енгіз: 4 6 4 16 64 5 25 125 6 36 216 "5": 1, 2, 4, 7, 11, 16, … тәртібімен орналасқан 10 санның квадраттары мен кубтарын есептеп шығару Мысал: 1 1 1 2 4 8 4 16 64 ... 46 2116 97336

№ слайда 55 Қадамдар саны белгісіз цикл Мысал: Бөренеден ағаштың бұтағын кесіп алу керек
Описание слайда:

Қадамдар саны белгісіз цикл Мысал: Бөренеден ағаштың бұтағын кесіп алу керек. Қолараны әрі-бері неше рет қозғалтуымыз керек,. ? Есеп: (<2000000) бүтін сан енгізіп, ондағы цифрлардың санын анықтау. Шығару амалы: Ең соңғы орналасқан цифрларды кезекпен алып тастай отырып, санаушыны арттырамыз. Мәселе: неше қадам жасау керектігі белгісіз. Шығарылуы: n = 0 болғанда тоқтау керек, яғни "n <> 0" болғанша орындай беру керек. n count 123 0 12 1 1 2 0 3

№ слайда 56 Алгоритм басы count соңы жоқ иә n  0? count := 0; count := count + 1; n := n
Описание слайда:

Алгоритм басы count соңы жоқ иә n <> 0? count := 0; count := count + 1; n := n div 10; цифрлардың санаушысын нөлге теңестіру енгізу n “n <> 0“ болғанша орындай беру

№ слайда 57 Программа program qq; var n, count: integer; begin writeln(’Бүтін сан енгіз’
Описание слайда:

Программа program qq; var n, count: integer; begin writeln(’Бүтін сан енгіз’); read(n); count := 0; while n <> 0 do begin count := count + 1; n := n div 10; end; writeln( ’cанында’,count, ’цифр табылды’); end. while n <> 0 do begin count := count + 1; n := n div 10; end; , n1: integer; n1 := n; n1, "n <> 0“ болғанша орындай беру

№ слайда 58 Шартты цикл 	while  do begin {цикл денесі} end; Ерекшеліктері: күрделі шартт
Описание слайда:

Шартты цикл while <шарт> do begin {цикл денесі} end; Ерекшеліктері: күрделі шарттарды қолдануға болады: егер цикл денесінде бір ғана оператор болса, begin мен end сөздерін жазбай кетуге болады: while (a<b) and (b<c) do begin {цикл денесі} end; while a < b do a := a + 1;

№ слайда 59 Шартты цикл Ерекшеліктері: циклге кірген сайын шарт есептеліп отырады егер ш
Описание слайда:

Шартты цикл Ерекшеліктері: циклге кірген сайын шарт есептеліп отырады егер шарт циклге кіруде жалған болса, цикл бірде-бір рет орындалмайды егер шарт түбінде жалған болмайтын болса, программаның жұмысы дағдарысқа ұшырайды (тоқтаусыз орындала береді) a := 4; b := 6; while a > b do a := a – b; a := 4; b := 6; while a < b do d := a + b;

№ слайда 60 Цикл неше рет орындалған? a := 4; b := 6; while a &lt; b do a := a + 1; 2 рет a
Описание слайда:

Цикл неше рет орындалған? a := 4; b := 6; while a < b do a := a + 1; 2 рет a = 6 a := 4; b := 6; while a < b do a := a + b; 1 рет a = 10 a := 4; b := 6; while a > b do a := a + 1; 0 рет a = 4 a := 4; b := 6; while a < b do b := a - b; 1 рет b = -2 a := 4; b := 6; while a < b do a := a - 1; дағдарысқа ұшырау

№ слайда 61 For-ны while-ға ауыстыру және керісінше for i:=1 to 10 do begin {цикл денесі
Описание слайда:

For-ны while-ға ауыстыру және керісінше for i:=1 to 10 do begin {цикл денесі} end; i := 1; while i <= 10 do begin {цикл денесі} i := i + 1; end; for i:=a downto b do begin {цикл денесі} end; i := a; while i >= b do begin {цикл денесі} i := i - 1; end; while-ды for-ға , циклдегі қадамдар саны алдын ала белгілі болған жағдайда ғана ауыстыруға болады. for-ны while –ауыстыруға қашанда болады.

№ слайда 62 Тапсырмалар &quot;4&quot;: Бүтін сан енгізіп, ондағы цифрлардың қосындысын табу. Мысал
Описание слайда:

Тапсырмалар "4": Бүтін сан енгізіп, ондағы цифрлардың қосындысын табу. Мысал: Бүтін сан енгіз: 1234 1234 санындағы цифрлардың қосындысы 10-ға тең. "5": Бүтін сан енгізіп, оның жазылуында бірдей цифрларлардың бар-жоғын анықтау. Мысал: Бүтін сан енгіз: Бүтін сан енгіз: 1234 1224 Жоқ. Бар.

№ слайда 63 Тізбектер Мысалдар: 1, 2, 3, 4, 5, … 1, 2, 4, 7, 11, 16, … 1, 2, 4, 8, 16, 3
Описание слайда:

Тізбектер Мысалдар: 1, 2, 3, 4, 5, … 1, 2, 4, 7, 11, 16, … 1, 2, 4, 8, 16, 32, … an = n a1 = 1, an+1 = an+1 a1 = 1, an+1 = an + n an = 2n-1 a1 = 1, an+1 = 2an b1 = 1, bn+1 = bn+1 c1 = 2, cn+1 = 2cn

№ слайда 64 Тізбектер Есеп: модулі бойынша 0,001-ден асып түсетін тізбектегі барлық элем
Описание слайда:

Тізбектер Есеп: модулі бойынша 0,001-ден асып түсетін тізбектегі барлық элементтердің қосындысын табу: Тізбек элементтері (№2-ден бастап ): b := b+1; c := 2*c; z := -z; n 1 2 3 4 5 ... b 1 2 3 4 5 ... c 2 4 8 16 32 ... z -1 1 -1 1 -1 ...

№ слайда 65 Алгоритм басы S соңы жоқ иә |a| &gt; 0.001? S := S + a; S := 0; b := 1; c := 2;
Описание слайда:

Алгоритм басы S соңы жоқ иә |a| > 0.001? S := S + a; S := 0; b := 1; c := 2; z := -1; a := 1; бастапқы мәндер a := z*b/c; b := b + 1; c := 2*c; z := -z; бірінші элемент a := 1; S := 0; жаңа элемент өзгеріс Қайта қою керек пе? ?

№ слайда 66 Программа program qq; var b, c, z: integer; S, a: real; begin S := 0; z := -
Описание слайда:

Программа program qq; var b, c, z: integer; S, a: real; begin S := 0; z := -1; b := 1; c := 2; a := 1; while abs(a) > 0.001 do begin S := S + a; a := z * b / c; z := - z; b := b + 1; c := c * 2; end; writeln('S =', S:10:3); end. z := - z; b := b + 1; c := c * 2; келесі қосылғышқа өту S := 0; z := -1; b := 1; c := 2; a := 1; бастапқы мәндер қосындының артуы тізбек элементін есепке алу

№ слайда 67 Тапсырмалар &quot;4&quot;: Тізбектегі элементтердің қосындысын 0,001 дәлдікпен табу :
Описание слайда:

Тапсырмалар "4": Тізбектегі элементтердің қосындысын 0,001 дәлдікпен табу : Жауап: S = 1.157 "5": Тізбектегі элементтердің қосындысын 0,001 дәлдікпен табу : Жауап: S = 1.220

№ слайда 68 Соңғышартты цикл Есеп: Бүтін оң сан енгізіп( шартын тексеруді циклдың соңынд
Описание слайда:

Соңғышартты цикл Есеп: Бүтін оң сан енгізіп(<2000000), ондағы цифрлардың санын анықтау. Мәселе: Теріс санның немесе нөлдің енгізілмеуін қалай қадағалауға болады? Шығарылуы: Егер бұрыс сан енгізілсе,берілгендерді енгізу үшін кері оралу (цикл!). Ерекшелігі: Цикл денесі кемінде бір рет орындалады. => шартын тексеруді циклдың соңында орындау керек. (соңғышартты цикл). Соңғышартты цикл – шарттың тексерілуі циклдың соңында орындалатын цикл түрін айтады.

№ слайда 69 Соңғышартты цикл: алгоритм басы соңы иә жоқ n &gt; 0? цикл денесі ШЫҒУДЫҢ шарты
Описание слайда:

Соңғышартты цикл: алгоритм басы соңы иә жоқ n > 0? цикл денесі ШЫҒУДЫҢ шарты «типтік процесс» блогі енгізу n негізгі алгоритм

№ слайда 70 Программа program qq; var n: integer; begin repeat writeln(&#039;Введите положите
Описание слайда:

Программа program qq; var n: integer; begin repeat writeln('Введите положительное число'); read(n); until n > 0; ... { негізгі алгоритм } end. repeat writeln(‘Оң сан енгіз'); read(n); until n > 0; until n > 0; ШЫҒУДЫҢ шарты Ерекшеліктері: цикл денесі кемінде бір рет орындалады until ("…болмайынша") сөзінен кейін циклдан ШЫҒУДЫҢ шарты қойылады

№ слайда 71 Цикл неше рет орындалған? a := 4; b := 6; repeat a := a + 1; until a &gt; b; 3
Описание слайда:

Цикл неше рет орындалған? a := 4; b := 6; repeat a := a + 1; until a > b; 3 рет a = 7 a := 4; b := 6; repeat a := a + b; until a > b; 1 рет a = 10 a := 4; b := 6; repeat a := a + b; until a < b; Мүдіріп қалу a := 4; b := 6; repeat b := a - b; until a < b; 2 рет b = 6 a := 4; b := 6; repeat a := a + 2; until a < b; Мүдіріп қалу

№ слайда 72 Тапсырмалар (бұрыс енгізуден қорғау) &quot;4&quot;: Натурал сан енгізіп, сол сандағы ц
Описание слайда:

Тапсырмалар (бұрыс енгізуден қорғау) "4": Натурал сан енгізіп, сол сандағы цифрлардың қосындысы 10-ға тең екендігінің дұрыстығын анықтау. Мысал: >= 0 сан енгіз: >= 0 сан енгіз: -234 1233 Оң сан енгізу керек. Жоқ >= 0 сан енгіз: 1234 Иә "5": Натурал сан енгізіп,қандай цифрлардың бірнеше рет кездесетіндігін анықтау. Мысал: >= 0 сан енгіз: >= 0 сан енгіз: 2323 1234 2, 3 қайталанады Қайталану жоқ.

№ слайда 73 Таңдау операторы Есеп: Ай нөмірін енгізіп, осы айдағы күндердің санын шығару
Описание слайда:

Таңдау операторы Есеп: Ай нөмірін енгізіп, осы айдағы күндердің санын шығару. Шығарылуы: Айдағы күндер саны 28 күн – 2 (ақпан) 30 күн – 4 (сәуір), 6 (маусым), 9 (қыркүйек), 11 (қараша) 31 күн – 1 (қаңтар), 3 (наурыз), 5 (мамыр), 7 (шілде), 8 (тамыз), 10 (қазан), 12 (желтоқсан) Ерекшелігі: Екі нұсқаның емес, айдың нөміріне сәйкес бірнеше нұсқаның бірін таңдау. Бұған дейінгі қолданған әдістермен шешуге бола ма? ?

№ слайда 74 Алгоритм басы соңы таңдау операторы ешбір нұсқасы сәйкес келген жоқ енгізу M
Описание слайда:

Алгоритм басы соңы таңдау операторы ешбір нұсқасы сәйкес келген жоқ енгізу M иә жоқ M = 1? D := 31; жоқ M = 2? D := 28; иә жоқ M = 12? D := 31; иә шығару D қате

№ слайда 75 Программа program qq; var M, D: integer; begin writeln(‘Айдың нөмірін енгіз:
Описание слайда:

Программа program qq; var M, D: integer; begin writeln(‘Айдың нөмірін енгіз:'); read ( M ); case M of 2: begin D := 28; end; 4,6,9,11: begin D := 30; end; 1,3,5,7,8,10,12: D := 31; else D := -1; end; if D > 0 then writeln(‘Бұл айда ', D, ' күн.') else writeln('Айдың нөмірі дұрыс емес'); end. case M of 2: begin D := 28; end; 4,6,9,11: begin D := 30; end; 1,3,5,7,8,10,12: D := 31; else D := -1; end; ешбір нұсқасы сәйкес келген жоқ

№ слайда 76 Таңдау операторы Ерекшеліктері: case-тен кейін айнымалы атауы немесе бүтін т
Описание слайда:

Таңдау операторы Ерекшеліктері: case-тен кейін айнымалы атауы немесе бүтін типті (integer) арифметикалық өрнек немесе символдық типті (char) арифметикалық өрнек case i+3 of 1: begin a := b; end; 2: begin a := c; end; end; var c: char; ... case c of 'а': writeln(‘Бөкен'); 'б': writeln('Борсық'); else writeln(‘Білмеймін'); end; болуы мүмкін

№ слайда 77 Таңдау операторы Ерекшеліктері: егер бір ғана операторды орындау керек болса
Описание слайда:

Таңдау операторы Ерекшеліктері: егер бір ғана операторды орындау керек болса, begin мен end сөздерін жазбай кетуге болады бірдей екі мәнді қоюға болмайды case i+3 of 1: a := b; 1: a := c; end; case i+3 of 1: a := b; 2: a := c; end;

№ слайда 78 Таңдау операторы Ерекшеліктері: бірдей әрекеттер орындалатын кезде қолданыла
Описание слайда:

Таңдау операторы Ерекшеліктері: бірдей әрекеттер орындалатын кезде қолданылатын мәндерді топтастыру қажет case i of 1: a := b; 2,4,6: a := c; 10..15: a := d; 20,21,25..30: a := e; else writeln(‘Қате'); end; тізбелеп санап шығу диапазон аралас

№ слайда 79 Қай жері дұрыс емес? case a of 2: begin a := b; 4: a := c; end; case a of 2:
Описание слайда:

Қай жері дұрыс емес? case a of 2: begin a := b; 4: a := c; end; case a of 2: a := b 4: a := c end; ; case a of 2..5: a := b; 4: a := c; end; case a of 0..2: a := b; 6..3: a := c; end; 3..6: case a+c/2 of 2: a := b; 4: a := c; end; case a of 2: a := b; d := 0; 4: a := c; end; begin end;

№ слайда 80 Тапсырмалар (бұрыс енгізуден қорғаумен) &quot;4&quot;: Айдың нөмірін енгізе отырып, ос
Описание слайда:

Тапсырмалар (бұрыс енгізуден қорғаумен) "4": Айдың нөмірін енгізе отырып, осы айдағы күндердің санын және енгізу кезінде жіберілген қателердің санын есептеп шығару. Мысал: Ай нөмірін енгіз: Ай нөмірін енгіз: -2 2 Ай нөмірін енгіз: Бұл айда 28 күн бар. 11 Сіз 0 рет қате енгіздіңіз. Бұл айда 30 күн бар. Сіз 1 рет қате енгіздіңіз. "5": Айдың нөмірі мен күннің нөмірін енгізіп, Жаңа жылға дейін қалған күндердің санын анықтау. Мысал: Ай нөмірін енгіз: 12 Күнді енгіз: 25 Жаңа жылға дейін 6 күн бар.

№ слайда 81  Координаталар жүйесі (0,0) (x,y) X Y x y
Описание слайда:

Координаталар жүйесі (0,0) (x,y) X Y x y

№ слайда 82 Түстерді басқару Cызықтың түсі мен қалыңдығы, нүктелердің түсі: Pen ( 1, 255
Описание слайда:

Түстерді басқару Cызықтың түсі мен қалыңдығы, нүктелердің түсі: Pen ( 1, 255, 0, 0 ); Бояудың түсі мен стилі: Brush ( 1, 0, 255, 0 ); Мәтін түсі: TextColor ( 0, 0, 255 ); сызықтың қалыңдығы R(red) 0..255 G(green) 0..255 B(blue) 0..255 0 – өшіру 1 - қосу R G B R G B

№ слайда 83 Нүктелер, кесінділер және қисық сызықтар Pen (1, 0, 255, 0); Line (x1, y1, x
Описание слайда:

Нүктелер, кесінділер және қисық сызықтар Pen (1, 0, 255, 0); Line (x1, y1, x2, y2); Pen (1, 0, 0, 255); Point (x, y); Pen (1, 255, 0, 0); MoveTo (x1, y1); LineTo (x2, y2); LineTo (x3, y3); LineTo (x4, y4); LineTo (x5, y5); (x1, y1) (x2, y2) (x, y) (x1, y1) (x2, y2) (x3, y3) (x4, y4) (x5, y5)

№ слайда 84 Фигуралардың ішін бояу Pen (1, 0, 0, 255); Brush (1, 255, 255, 0); Rectangle
Описание слайда:

Фигуралардың ішін бояу Pen (1, 0, 0, 255); Brush (1, 255, 255, 0); Rectangle (x1, y1, x2, y2); Pen (1, 255, 0, 0); Brush (1, 0, 255, 0); Ellipse (x1, y1, x2, y2); Brush (1, 100, 200, 255); Fill (x, y); (x1, y1) (x2, y2) (x1, y1) (x2, y2) (x, y)

№ слайда 85 Мәтін TextColor (0, 0, 255); Brush (1, 255, 255, 0); Font (20, 30, 600); Mov
Описание слайда:

Мәтін TextColor (0, 0, 255); Brush (1, 255, 255, 0); Font (20, 30, 600); MoveTo (x, y); writeln (‘Салем!'); Салем! (x, y) өлшемі 10 пиксель айналу бұрышы қанықтылық: 400 – қалыпты 600 – қалың 30о

№ слайда 86 Мысал (200, 50) (100, 100) (300, 200) program qq; begin Pen(2, 255, 0, 255);
Описание слайда:

Мысал (200, 50) (100, 100) (300, 200) program qq; begin Pen(2, 255, 0, 255); Brush(1, 0, 0, 255); Rectangle(100, 100, 300, 200); MoveTo(100, 100); LineTo(200, 50); LineTo(300, 100); Brush(1, 255, 255, 0); Fill(200, 75); Pen(2, 255, 255, 255); Brush(1, 0, 255, 0); Ellipse(150, 100, 250, 200); end.

№ слайда 87  Тапсырмалар &quot;4&quot;: «Бақа&quot; &quot;5&quot;: «Тәж&quot;
Описание слайда:

Тапсырмалар "4": «Бақа" "5": «Тәж"

№ слайда 88 Штрихтер салу (x1, y1) (x2, y2) N сызық (N=5) h Rectangle (x1, y1, x2, y2);
Описание слайда:

Штрихтер салу (x1, y1) (x2, y2) N сызық (N=5) h Rectangle (x1, y1, x2, y2); Line( x1+h, y1, x1+h, y2); Line( x1+2*h, y1, x1+2*h, y2); Line( x1+3*h, y1, x1+3*h, y2); ... h := (x2 – x1) / (N + 1); Rectangle (x1, y1, x2, y2); x := x1 + h; for i:=1 to N do begin Line( round(x), y1, round(x), y2); x := x + h; end; var x, h: real; x жақын орналасқан бүтін санға дейін дөңгелектеу x

№ слайда 89 Түсті қалай өзгертуге болады? (x1, y1) (x2, y2) Brush ( 1, c, c, c ); Fill (
Описание слайда:

Түсті қалай өзгертуге болады? (x1, y1) (x2, y2) Brush ( 1, c, c, c ); Fill ( ???, ??? ); сұр: R = G = B Өзгеру қадамы c: x (x-1, y1+1) var c, hc: integer; hc := 255 div (N + 1); c := 0; for i:=1 to N+1 do begin Line (round(x), y1, round(x), y2); Brush (1, c, c, c); Fill (round(x)-1, y1+1); x := x + h; c := c + hc; end;

№ слайда 90 Штрихтер салу (x1, y1) (x2, y2) (x3, y2) a h (x3+a, y1) Line( x1+h, y1, x1+h
Описание слайда:

Штрихтер салу (x1, y1) (x2, y2) (x3, y2) a h (x3+a, y1) Line( x1+h, y1, x1+h-a, y2); Line( x1+2*h, y1, x1+2*h-a, y2); Line( x1+3*h, y1, x1+3*h-a, y2); ... h := (x3 – x2) / (N + 1); a := x1 – x2; x := x1 + h; for i:=1 to N do begin Line( round(x), y1, round(x-a), y2); x := x + h; end; x x-a

№ слайда 91 Штрихтер салу (x1, y1) (x2, y2) hx hy y x y Line( x1, y1+hy, x1+hx, y1+hy) ;
Описание слайда:

Штрихтер салу (x1, y1) (x2, y2) hx hy y x y Line( x1, y1+hy, x1+hx, y1+hy) ; Line( x1, y1+2*hy, x1+2*hx, y1+2*hy); Line( x1, y1+3*hy, x1+3*hx, y1+3*hy); ... hx := (x2 – x1) / (N + 1); hy := (y2 – y1) / (N + 1); x := x1 + hx; y := y1 + hy; for i:=1 to N do begin Line( x1, round(y), round(x), round(y)); x := x + hx; y := y + hy; end;

№ слайда 92 Тапсырмалар &quot;4&quot;: Пернетақтадан штрих сызықтарының санын енгізе отырып фигура
Описание слайда:

Тапсырмалар "4": Пернетақтадан штрих сызықтарының санын енгізе отырып фигура салу және оның ішін әр түрлі түстермен бояу. "5": Пернетақтадан шеңберлердің санын енгізу арқылы шеңбердің суретін салу және оның ішіндегі әр шеңберді әр түрлі түске бояу.

№ слайда 93  Паскаль тілінде программалау Тақырып 8. Функциялардың графигі
Описание слайда:

Паскаль тілінде программалау Тақырып 8. Функциялардың графигі

№ слайда 94 Функция графиктерін құру Есеп: 0 мен 2π интервалы арасындағы y = 3 sin(x) фу
Описание слайда:

Функция графиктерін құру Есеп: 0 мен 2π интервалы арасындағы y = 3 sin(x) функциясының графигін құру. Анализ: x = π/2 болғанда максималды мән ymax = 3 x = 3π/2 болғанда минималды мән ymin = -3 Мәселе: функция координалардың математикалық жүйесінде көрсетілген, ал графикті координаталарын пиксельдермен көрсете отырып компьютер экранында шығару керек.

№ слайда 95 Координаталардың түрленуі (x,y) X Y x y Координаталардың математикалық жүйес
Описание слайда:

Координаталардың түрленуі (x,y) X Y x y Координаталардың математикалық жүйесі Координаталардың экрандық жүйесі (пиксельдер) (xэ,yэ) xэ yэ (0,0) (0,0) a b k – масштаб (экрандағы жекелеген кесінді кескінінің ұзындығы) xэ = a + kx yэ = b - ky

№ слайда 96 Программа 2π h – x-тің өзгеру қадамы w – ОХ осінің ұзындығы(пиксельдер саны)
Описание слайда:

Программа 2π h – x-тің өзгеру қадамы w – ОХ осінің ұзындығы(пиксельдер саны) экранда координаталар осі графиктің құрылу циклі program qq; const a = 50; b = 200; k = 50; xmin = 0; xmax = 6.2832; var x, y, h: real; xe, ye, w: integer; begin w := round((xmax - xmin)*k); Line(a-10, b, a+w, b); Line(a, 0, a, 2*b); x := xmin; h := 0.05; while x <= xmax do begin y := 3*sin(x); xe := a + round(k*x); ye := b - round(k*y); Point (xe, ye); x := x + h; end; end. Кемшілігі ? ?

№ слайда 97 Нүктелерді қалай біріктіруге болады? Алгоритм: Егер бірінші нүкте болса (xэ,
Описание слайда:

Нүктелерді қалай біріктіруге болады? Алгоритм: Егер бірінші нүкте болса (xэ,yэ) нүктесіне өту әйтпесе (xэ,yэ) нүктесіне кесінді Программа: бастапқы мән әрекеттердің нұсқасын таңдау логикалық айнымалы var first: boolean; ... begin ... first := True; while x <= xmax do begin ... if first then begin MoveTo(xe, ye); first := False; end else LineTo(xe, ye); ... end; end.

№ слайда 98 Тапсырмалар &quot;4&quot;: [-3,3] интервалы арасында y = x2 функциясының графигін құру
Описание слайда:

Тапсырмалар "4": [-3,3] интервалы арасында y = x2 функциясының графигін құру. "5": Функция графигін құру (эллипс)

№ слайда 99  Паскаль тілінде программалау Тақырып 9. Процедуралар
Описание слайда:

Паскаль тілінде программалау Тақырып 9. Процедуралар

№ слайда 100 Процедуралар Есеп: Мына фигураны құру: Ерекшелігі: Үш ұқсас фигура. жалпы: ө
Описание слайда:

Процедуралар Есеп: Мына фигураны құру: Ерекшелігі: Үш ұқсас фигура. жалпы: өлшемдері, айналу бұрышы айырмашылықтары: координаталары, түстері Белгілі әдістермен шешуге бола ма? ? Неше координата белгілеу керек? ?

№ слайда 101 Процедуралар Процедура – кейбір әрекеттерді орындау үшін қолданылатын көмекш
Описание слайда:

Процедуралар Процедура – кейбір әрекеттерді орындау үшін қолданылатын көмекші. Қолданылуы: программаның әр жерінде орналасқан бірдей әрекеттерді орындау программаны түсіну оңай болу үшін оны бірнеше қосалқы бөліктерге бөлу Көмекші есеп1 Көмекші есеп2 Көмекші есеп3 1.1 1.2 1.3 2.1 2.2 2.3 3.1 3.2 3.3 Негізгі есеп

№ слайда 102 Процедуралар Есепті орындау тәртібі: бірдей немесе ұқсас әрекеттерді ерекшел
Описание слайда:

Процедуралар Есепті орындау тәртібі: бірдей немесе ұқсас әрекеттерді ерекшелеп алу (үш фигура) олардың ұқсас жерлері (өлшемі, пішіні, айналу бұрышы) мен айырмашылықтарын (координаталары, түсі) табу айырмашықтарын белгісіз айнымалылар түрінде өрнектеу, осы айнымалылар процедураның параметрлері болады (x+100, y) (x, y-60) procedure Tr( x, y, r, g, b: integer); begin MoveTo(x, y); LineTo(x, y-60); LineTo(x+100, y); LineTo(x, y); Brush(1, r, g, b); Fill(x+20, y-20); end; тақырыбы MoveTo(x, y); LineTo(x, y-60); LineTo(x+100, y); LineTo(x, y); Brush(1, r, g, b); Fill(x+20, y-20); процедура тұлғасы координаталар түс параметрлер (x, y) 100 60

№ слайда 103 Программа program qq; begin Pen(1, 255, 0, 255); Tr(100, 100, 0, 0, 255); Tr
Описание слайда:

Программа program qq; begin Pen(1, 255, 0, 255); Tr(100, 100, 0, 0, 255); Tr(200, 100, 0, 255, 0); Tr(200, 160, 255, 0, 0); end. (100,100) 100 60 процедура нақтылы параметрлер процедураны шақырулар procedure Tr( x, y, r, g, b: integer); begin ... end; формальды параметрлер

№ слайда 104 Процедуралар Ерекшеліктері: барлық процедуралар негізгі программаның үстінде
Описание слайда:

Процедуралар Ерекшеліктері: барлық процедуралар негізгі программаның үстінде орналасқан процедураның тақырыбында формальды параметрлер жазылады, олар кейде өзгеріп отыратындықтан атаулармен белгіленеді процедураны шақыру кезінде жақша ішінде нақтылы параметрлер(сандар немесе арифметикалық өрнектер) көрсетіледі procedure Tr( x, y, r, g, b: integer); Tr (200, 100, 0, 255, 0); x y r g b

№ слайда 105 Процедуралар Ерекшеліктері: әрбір формалды параметрдің қос нүктеден кейін ти
Описание слайда:

Процедуралар Ерекшеліктері: әрбір формалды параметрдің қос нүктеден кейін типі көрсетілуі қажет егер типтері бірдей параметрлер бірінен кейін бірі орналасса, олардың арасы үтірмен ажыратылады процедураның ішіндегі параметрлер айнымалылар секілді қолданылады procedure A (x: real; y: integer; z: real); procedure A (x, z: real; y, k, l: integer);

№ слайда 106 Процедуралар Ерекшеліктері: процедурада қосымша айнымалы ретінде жергілікті(
Описание слайда:

Процедуралар Ерекшеліктері: процедурада қосымша айнымалы ретінде жергілікті(локальді) айнымалыларды пайдалануға болады, басқа процедуралар оған қатынай алмайды program qq; procedure A(x, y: integer); var a, b: real; begin a := (x + y)/6; ... end; begin ... end. procedure A(x, y: integer); var a, b: real; begin a := (x + y)/6; ... end; локальді айнымалылар var a, b: real;

№ слайда 107 Параметр-айнымалылар Есеп: екі айнымалы мәндерінің орындарын ауыстыратын про
Описание слайда:

Параметр-айнымалылар Есеп: екі айнымалы мәндерінің орындарын ауыстыратын процедураны құру. Ерекшеліктері: Процедурада жасалған өзгертулер шақырушы программаға белгілі болуы қажет. program qq; var x, y: integer; begin x := 1; y := 2; Exchange ( x, y ); writeln ( ’x = ’, x, ’ y = ’, y ); end; procedure Exchange ( a, b: integer ); var c: integer; begin c := a; a := b; b := c; end; мына процедура параметрлердің көшірмесімен жұмыс істейді x = 1 y = 2

№ слайда 108 Параметр-айнымалылар Қолданылуы: процедура(және функция) осындай әдіс арқылы
Описание слайда:

Параметр-айнымалылар Қолданылуы: процедура(және функция) осындай әдіс арқылы бірнеше мән бере алады. Шақыртудың тыйым салынған нұсқалары Exchange ( 2, 3 ); { сандар } Exchange ( x+z, y+2 ); { өрнектер } procedure Exchange ( a, b: integer ); var c: integer; begin c := a; a := b; b := c; end; var параметрлер өзгере алады

№ слайда 109 Тапсырмалар &quot;4&quot;: Процедураларды пайдалана отырып, мына фигураны құрастыру. &quot;
Описание слайда:

Тапсырмалар "4": Процедураларды пайдалана отырып, мына фигураны құрастыру. "5": Процедураларды пайдалана отырып, мына фигураны құрастыру. Тең қабырғалы үшбұрыш a a a 0,866∙a

№ слайда 110  Паскаль тілінде программалау Тақырып 10. Рекурсия
Описание слайда:

Паскаль тілінде программалау Тақырып 10. Рекурсия

№ слайда 111 Рекурсивті объектілер Рекурсивті объект деп - бір объект немесе дәл осындай
Описание слайда:

Рекурсивті объектілер Рекурсивті объект деп - бір объект немесе дәл осындай бірнеше объект арқылы анықталатын объектіні айтады. Мысалдар: Факториал: егер егер Рекурсияланған сурет:

№ слайда 112 Пифагор ағашы N деңгейлі Пифагор ағашы – бұл ағаштың діңгегі мен осы діңгект
Описание слайда:

Пифагор ағашы N деңгейлі Пифагор ағашы – бұл ағаштың діңгегі мен осы діңгектен симметриялы түрде өсіп шыққан N-деңгейлі екі Пифагор ағашы, бұл ағаштардың бағанының ұзындығы 2 есе кем және олардың арасындағы бұрыш 90o-қа тең. 6 деңгей: Бұның рекурсивті фигура екенін қалай дәлелдеуге болады? ?

№ слайда 113 Пифагор ағашы Ерекшеліктері: қашан тоқтау керек? ағаштардың иілу бұрышы әр т
Описание слайда:

Пифагор ағашы Ерекшеліктері: қашан тоқтау керек? ағаштардың иілу бұрышы әр түрлі Қалған деңгейлердің саны нөлге тең болғанда! (x1, y1) (x0, y0) α α+45o α-45o L x1 = x0 + L·cos(α) y1 = y0 – L·sin(α) Еншілес ағаштардың иілу бұрышы α + π/4 α – π/4

№ слайда 114 Процедура α бұрышы баған ұзындығы procedure Pifagor(x0, y0, a, L: real; N: i
Описание слайда:

Процедура α бұрышы баған ұзындығы procedure Pifagor(x0, y0, a, L: real; N: integer); const k = 0.6; { ұзындықтың өзгеруі } var x1, y1: real; { жергілікті айнымалылар } begin if N > 0 then begin x1 := x0 + L*cos(a); y1 := y0 - L*sin(a); Line (round(x0), round(y0), round(x1), round(y1)); Pifagor (x1, y1, a+pi/4, L*k, N-1); Pifagor (x1, y1, a-pi/4, L*k, N-1); end; end; рекурсивті шақырулар егер N=0 болса, аяқтау Рекурсивті процедура деп өзін өзі шақыратын процедураны айтады

№ слайда 115 Программа program qq; procedure Pifagor(x0, y0, a, L: real; N: integer); ...
Описание слайда:

Программа program qq; procedure Pifagor(x0, y0, a, L: real; N: integer); ... end; begin Pifagor (250, 400, pi/2, 150, 8); end; α бұрышы баған ұзындығы деңгейлер саны x0 y0 Pifagor (250, 400, 2*pi/3, 150, 8); Ағашты 30o оңға қалай еңкейтуге болады? ?

№ слайда 116 &quot;4&quot;: Рекурсивті процедураны қолдана отырып, мына фигураны құрастыру: &quot;5&quot;: Ре
Описание слайда:

"4": Рекурсивті процедураны қолдана отырып, мына фигураны құрастыру: "5": Рекурсивті процедураны қолдана отырып, мына фигураларды құрастыру: Задания

№ слайда 117  Паскаль тілінде программалау Тақырып 11. Анимация
Описание слайда:

Паскаль тілінде программалау Тақырып 11. Анимация

№ слайда 118 Анимация Анимация (ағылш. animation) – экрандағы кескінге жан бітіру. Есеп:
Описание слайда:

Анимация Анимация (ағылш. animation) – экрандағы кескінге жан бітіру. Есеп: 400х400 пиксельді көк квадраттың ішімен 20х20 пиксельді сары квадрат солдан оңға қарай жылжып келеді. Программа өз жұмысын Esc пернесін басқанда немесе сары квадрат көк квадраттың оң жақ жетіне жеткен кезде тоқтатады. Проблема: объектінің экранда қозғалуын қалай кескіндеуге болады? Қосымша: объектінің қозғалысы (x,y) координаталарымен белгіленеді Анимация қағидасы: объектіні (x,y) нүктесінде саламыз бірнеше миллисекундқа кідіру объектіні өшіреміз (x,y) координаталарын өзгертеміз 1-қадамға көшеміз

№ слайда 119 «Пернелерді шертуді» қалай іске асыруға болады? Оқиға деп қандай да бір объе
Описание слайда:

«Пернелерді шертуді» қалай іске асыруға болады? Оқиға деп қандай да бір объектінің қалпында өзгерістің болуын немесе пайдаланушының әрекетін айтады. (пернені басу, тышқанды шерту). IsEvent – қолданушы тарапынан қандай да бір әрекеттің болған-болмағандығын анықтайтын логикалық функция. Event – нақты қандай оқиғаның болғандығын анықтайтын процедура. if IsEvent then begin Event(k, x, y); if k = 1 then writeln(‘Коды бар перне ', x) else { k = 2 } writeln(‘Тышқан: x=', x, ' y=', y); end; var k, x, y: integer;

№ слайда 120 Esc пернесін басып циклдан қалай шығуға болады? program qq; var stop: boolea
Описание слайда:

Esc пернесін басып циклдан қалай шығуға болады? program qq; var stop: boolean; k,code,i: integer; begin stop := False; repeat if IsEvent then begin Event(k, code, i); if (k = 1) and (code = 27) then stop := True; end; ... until stop; end; егер бір нәрсе бола қалса... қандай оқиға болды? егер коды 27 (Esc) болатын перне басылса, онда стоп егер тоқтау қажет болса, True циклді іске қосу

№ слайда 121 Процедура (сурет салу және өшіру) procedure Draw(x, y: integer; flag: boolea
Описание слайда:

Процедура (сурет салу және өшіру) procedure Draw(x, y: integer; flag: boolean); begin if flag then Brush(1, 255, 255, 0) else Brush(1, 0, 0, 255); Rectangle(x, y, x+20, y+20); end; (x, y) (x+20, y+20) Идеялар бір процедура суретті салады және өшіреді өшіру = фонның түсімен бояу квадраттың шекарасын өшіріп тастау (негізгі программада) сурет салу (True) немесе салмау (False)? сурет саламыз: қылқаламның түсі – сары суретті өшіреміз: қылқаламның түсі – көк тек қана құю!

№ слайда 122 Толық программасы program qq; var x, y, k, code, i: integer; stop: boolean;
Описание слайда:

Толық программасы program qq; var x, y, k, code, i: integer; stop: boolean; procedure Draw(x,y: integer; flag: Boolean); begin ... end; begin Brush(1, 0, 0, 255); Rectangle(10, 10, 400, 400); Pen(0, 0, 0, 255); x := 10; y := 200; stop := false; repeat if IsEvent then begin ... end; Draw(x, y, True); Delay(10); Draw(x, y, False); x := x + 1; if x >= 400-20 then stop := true; until stop; end. процедура бастапқы жағдайлары Esc пернесімен шығу шекараға тақалған кезде шығу көк фон 10 мс күтеміз шекараны өшіріп тастау

№ слайда 123 &quot;4&quot;: Екі квадрат бір біріне қарама-қарсы бағытта қозғалады: &quot;5&quot;: Екі квадрат
Описание слайда:

"4": Екі квадрат бір біріне қарама-қарсы бағытта қозғалады: "5": Екі квадрат бір біріне қарама-қарсы бағытта қозғалады және көк квадраттың қабырғасына соқтығысып кері бағытта жылжиды: Тапсырмалар

№ слайда 124 Пернелермен басқару Есеп: көк квадраттың ішінде орналасқан сары квадрат бағы
Описание слайда:

Пернелермен басқару Есеп: көк квадраттың ішінде орналасқан сары квадрат бағыттаушы пернелермен басқарылатындай болуы керек. Пернелердің коды: солға – 37 жоғары – 38 Esc – 27 оңға – 39 төмен – 40 Проблема: қозғалыс бағытын қалай өзгертуге болады? Шығарылуы: if {оқиға болды} then begin if {перне басулы} then begin {перненің кодын алу - code} if code = 37 then x := x – 1; if code = 38 then y := y – 1; if code = 39 then x := x + 1; if code = 40 then y := y + 1; if code = 27 then stop := True; end; end; IsEvent Event ( k, code, i); if k = 1 then begin case code of 37: x := x – 1; 38: y := y – 1; 39: x := x + 1; 40: y := y + 1; 27: stop := True; end; егер перне басылған болса, …

№ слайда 125 Программасы program qq; var x, y, k, code, i: integer; stop: boolean; begin
Описание слайда:

Программасы program qq; var x, y, k, code, i: integer; stop: boolean; begin ... repeat Draw(x, y, True); Delay(20); Draw(x, y, False); until stop; end. procedure Draw(x,y: integer; flag: Boolean); begin ... end; if IsEvent then begin ... end; процедура негізгі цикл оқиғаларды өңдеу Кемшілігі? ?

№ слайда 126 Жыпылықтауды қалай кетіруге болады? Проблема: ешбір перне басылмағанның өзін
Описание слайда:

Жыпылықтауды қалай кетіруге болады? Проблема: ешбір перне басылмағанның өзінде де квадрат әр 20 мс сайын басқа түске боялып тұрады(жыпылықтау!) Бізге қажеттісі: ешқандай оқиға болмаса квадратты басқа түстерге боямау (жыпылықтатпау) Шығарылуы: квадратты бояп тастап, оқиғаны күту Жаңа проблема: оқиғаны қалай күтеміз ? Жаңа проблеманың шығарылуы: бос цикл «оқиға болмайынша ештеме істеме": while not IsEvent do;

№ слайда 127 Программасы program qq; var x, y, k, code, i: integer; stop: boolean; begin
Описание слайда:

Программасы program qq; var x, y, k, code, i: integer; stop: boolean; begin ... repeat Draw(x, y, True); while not IsEvent do; until stop; end. procedure Draw(x,y: integer; flag: Boolean); begin ... end; Draw(x, y, False); Event(k, code, i); ... while not IsEvent do; процедура квадраттың суретін саламыз оқиғаны күтеміз енді өшіруге болады Нені жақсартуға болады? ?

№ слайда 128 &quot;4&quot;: Квадрат бағыттауыш пернелерді басқан бағытта жылжып отырады, алайда көк
Описание слайда:

"4": Квадрат бағыттауыш пернелерді басқан бағытта жылжып отырады, алайда көк квадраттың шекарасынан асып кете алмайды: "5": Квадрат үздіксіз қозғалып отырады, бағыттауыш пернелер басылған кезде өз бағытын өзгертеді және көк квадраттың қабырғаларына соқтығысып кері жылжып отырады: Тапсырмалар

№ слайда 129 Айналу Есеп: Жердің Күнді айналу моделін бейнелеу. Проблема: шеңбер бойымен
Описание слайда:

Айналу Есеп: Жердің Күнді айналу моделін бейнелеу. Проблема: шеңбер бойымен айналу, координаталарды қалай өзгертіп отыруға болады? Шығарылуы: тәуелсіз айнымалы ретінде α –ның айналу бұрышын қолдану (циклде өзгерту) (x0, y0) α L (x, y) x = x0 + L·cos(α) y = y0 – L·sin(α)

№ слайда 130 Процедура procedure Draw(x, y: integer; flag: boolean); const r = 10; begin
Описание слайда:

Процедура procedure Draw(x, y: integer; flag: boolean); const r = 10; begin if flag then Brush(1, 100, 100, 255) else Brush(1, 0, 0, 0); Ellipse(x-r, y-r, x+r, y+r); end; сурет салу (True) немесе салмау (False)? суретін саламыз: қылқалам түсі – көгілдір суретті өшіреміз: қылқалам түсі – қара тек қана құю! Жердің радиусы (x-r, y-r) (x,y) (x+r, y+r)

№ слайда 131 Тұрақтылар мен айнымалылар program qq; const rSun = 60; { Күннің радиусы } L
Описание слайда:

Тұрақтылар мен айнымалылар program qq; const rSun = 60; { Күннің радиусы } L = 150; { Жер орбитасының радиусы } x0 = 200; { Күн центрінің координаталары } y0 = 200; var x, y, { Жердің координаталары } k, code, i: integer; { Event үшін } a, ha: real; { айналу бұрышы, қадам } stop: boolean; { программаны тоқтату белгісі } begin ... end. procedure Draw(x, y: integer; flag: Boolean); begin ... end;

№ слайда 132 Негізгі программа program qq; ... begin Brush(1, 0, 0, 0); Fill(1,1); Brush(
Описание слайда:

Негізгі программа program qq; ... begin Brush(1, 0, 0, 0); Fill(1,1); Brush(1, 255, 255, 0); Ellipse(x0-rSun, y0-rSun, x0+rSun, y0+rSun); a := 0; ha := 1*pi/180;{ бастапқы бұрыш, 100 мс-та 1o қадам} stop := false; Pen(0,0,0,0); { контурларды өшіріп тастаймыз } repeat x := round(x0 + L*cos(a)); y := round(y0 - L*sin(a)); Draw(x, y, True); Delay(100); Draw(x, y, False); a := a + ha; until stop; end. фонды қара түске бояу Күннің суретін саламыз жаңа координаталар ha бұрышына бұрылу 100 мс күтеміз if IsEvent then begin Event(k, code, i); if (k = 1) and (code = 27) then stop := true; end;

№ слайда 133 &quot;4&quot;: Күнді айналып жүрген екі планетаның моделін бейнелеу, планеталар бір-бі
Описание слайда:

"4": Күнді айналып жүрген екі планетаның моделін бейнелеу, планеталар бір-біріне қарама-қарсы бағытта қозғалатын болсын: "5": Күн-Жер-Ай жүйесінің моделін бейнелеу: Тапсырмалар

№ слайда 134  Паскаль тілінде программалау Тақырып 12. Кездейсоқ сандар
Описание слайда:

Паскаль тілінде программалау Тақырып 12. Кездейсоқ сандар

№ слайда 135 Кездейсоқ сандар Кездейсоқ көріністер: барлық жерде… тиынды лақтыру (&quot;орел&quot;
Описание слайда:

Кездейсоқ сандар Кездейсоқ көріністер: барлық жерде… тиынды лақтыру ("орел" немесе "решка") қардың түсуі броундық қозғалыс телефон байланысында болатын ақаулар радиоэфирдің шуы Кездейсоқ сандар – бұған дейінгі сандардың ретін біліп отырсақ та, келесі санның қандай екені белгісіз болатын сандардың тізбегін айтады. Проблема: компьютерде осыны қалай алуға болады? Мүмкін болатын шешімдері: шу ақауларының сыртқы көздерін пайдалану математикалық түрлендірулерді пайдалану

№ слайда 136 Жалған кездейсоқ сандар Жалған кездейсоқ сандар – бойында кездейсоқ сандарды
Описание слайда:

Жалған кездейсоқ сандар Жалған кездейсоқ сандар – бойында кездейсоқ сандардың қасиеті бар, бірақ әрбір келесі сан алдын ала берілген формула бойынша есептелетін сандардың тізбегін айтады. Мысалдар: Кездейсоқ бүтін сандар [0,m) (сызықты конгруэнтті әдіс) Кездейсоқ нақты сандар [0,1] санның бөлшек бөлігі a, c, m - бүтін сандар жай сан 230-1 мысал, k = 5

№ слайда 137 Кездейсоқ сандардың орналасуы Модель: қар бұршақтары [a,b] кесіндісінің арал
Описание слайда:

Кездейсоқ сандардың орналасуы Модель: қар бұршақтары [a,b] кесіндісінің аралығына түседі орналасуы бірқалыпты бірқалыпты емес a b a b Әр түрлі орналастырулардың саны қанша болуы мүмкін? ?

№ слайда 138 Кездейсоқ сандардың орналасуы Ерекшеліктері: орналасу – бұл бір ғана санның
Описание слайда:

Кездейсоқ сандардың орналасуы Ерекшеліктері: орналасу – бұл бір ғана санның емес бүкіл тізбектің сипаттамасы бірқалыпсыздардың саны – көп кез келген бірқалыпсыз орналасуды бірқалыпты орналасудың көмегімен алуға болады. a b a b бірқалыпты орналасу бірқалыпсыз орналасу

№ слайда 139 Паскальдегі кездейсоқ сандардың генераторы [0,N] интервалындағы бүтін сандар
Описание слайда:

Паскальдегі кездейсоқ сандардың генераторы [0,N] интервалындағы бүтін сандар: var x: integer; ... x := random ( 100 ); { интервал [0,99] } [0,1] интервалындағы бүтін сандар: var x: real; ... x := random; { интервал [0,1] }

№ слайда 140 Кездейсоқ сандар Есеп: 400х300 пиксельді тіктөртбұрыштың ішін түстері кездей
Описание слайда:

Кездейсоқ сандар Есеп: 400х300 пиксельді тіктөртбұрыштың ішін түстері кездейсоқ нүктелермен бірқалыпты етіп толтыру. Нүктенің кездейсоқ координаталарын қалай алуға болады? x := random ( 400 ); y := random ( 300 ); Бірқалыптылықты қалай алуға болады? random функциясы қолданылса автоматты түрде қамтамасыз етіледі Кездейсоқ түстерді қалай алуға болады? Pen (1, random(256), random(256), random(256)); Point ( x, y );

№ слайда 141 Программа program qq; var x, y, k, code, i: integer; stop: boolean; begin st
Описание слайда:

Программа program qq; var x, y, k, code, i: integer; stop: boolean; begin stop := False; repeat x := random(400); y := random(300); Pen(1, random(256), random(256), random(256)); Point(x, y ); if IsEvent then begin Event(k, code, i); if (k = 1) and (code = 27) then stop := True; end; until stop; end. кездейсоқ координаталар кездейсоқ түс Esc пернесін басып шығып кету

№ слайда 142 &quot;4&quot;: Пернетақтадан тіктөртбұрыш бұрыштарының координаталарын енгізіп, тіктөр
Описание слайда:

"4": Пернетақтадан тіктөртбұрыш бұрыштарының координаталарын енгізіп, тіктөртбұрыштың ішін түстері кездейсоқ нүктелермен толтыру керек. "5": Үшбұрыштың ішін түстері кездейсоқ болатын нүктелермен толтыру. (бірқалыпты немесе бірқалыпты емес). Қосымша көмек: бұрышы 45о болатын теңбүйірлі үшбұрышты алу керек . Тапсырмалар (100,100) (300,200)

№ слайда 143  Паскаль тілінде программалау Тақырып 13. Функциялар
Описание слайда:

Паскаль тілінде программалау Тақырып 13. Функциялар

№ слайда 144 Функциялар Функция – нәтижесі қандай да бір мәнге ие болатын көмекші алгорит
Описание слайда:

Функциялар Функция – нәтижесі қандай да бір мәнге ие болатын көмекші алгоритм (қосалқы программа). Мысалдар: , , есептеу өрнектерді күрделі формулалармен есептеу сұраққа жауап (жай сан ба, әлде жай сан емес пе?) Неліктен? программаның әр жерінде орналасқан бірдей есептеулерді орындау үшін функциялардың жалпыға бірдей кітапханаларын құру үшін Процедурадан айырмашылығы неде? ?

№ слайда 145 Функциялар Есеп: екі санның үлкенін анықтайтын функция құру және оны қолдану
Описание слайда:

Функциялар Есеп: екі санның үлкенін анықтайтын функция құру және оны қолдануға мысал келтіру Функция: формальды параметрлер function Max (a, b: integer): integer; begin if a > b then Max := a else Max := b; end. бұл функцияны нәтижесі

№ слайда 146 Функциялар Ерекшеліктері: тақырыбы function сөзімен басталады функцияда форм
Описание слайда:

Функциялар Ерекшеліктері: тақырыбы function сөзімен басталады функцияда формальды параметрлер процедурадағыдай сипатталады айнымалы параметрлерді пайдалануға болады тақырыптың соңында қоснүктеден кейін нәтиженің типі көрсетіледі функциялар негізгі программадан ЖОҒАРЫ орналасады Max (a, b: integer): integer; function function Max (a, b: integer): ; integer function qq( a, b: integer; x: real ): real; a, b: integer; x: real function Max ( a, b: integer): integer; var

№ слайда 147 Функциялар Ерекшеліктері: жергілікті айнымалыларды жариялауға және пайдалану
Описание слайда:

Функциялар Ерекшеліктері: жергілікті айнымалыларды жариялауға және пайдалануға болады нәтиже болатын мән - аты функцияның атымен сәйкес келетін айнымалыға жазылады; оны жариялаудың ҚАЖЕТІ ЖОҚ: function Max (a, b: integer): integer; begin ... end; Max := a; function qq (a, b: integer): float; begin ... end; var x, y: float; Result := a;

№ слайда 148 Программа program qq; var a, b, max: integer; begin writeln(‘Екі сан енгіз&#039;)
Описание слайда:

Программа program qq; var a, b, max: integer; begin writeln(‘Екі сан енгіз'); read(a, b); max := Max ( a, b ); writeln(‘Санның үлкені ', max ); end. function Max (a, b: integer): integer; begin ... end; c c c нақты параметрлер функцияны шақыру Айнымалылардың, функциялардың және процедуралардың аттары бірдей болмауы керек! !

№ слайда 149 Логикалық функциялар Есеп: енгізілген санның - жай сан екендігін анықтайтын
Описание слайда:

Логикалық функциялар Есеп: енгізілген санның - жай сан екендігін анықтайтын функция құру. Ерекшеліктері: жауабы – логикалық мән (True немесе False) функцияның нәтижесін if, while шарттарында логикалық шама ретінде қолдануға болады Алгоритм: 2-ден N-1-ге дейінгі аралықтағы бөлгіштердің санын есептейміз, егер олардың саны нөлге тең болмаса енгізілген санның - құрама сан болғаны. count := 0; for i := 2 to N-1 do if N mod i = 0 then count := count + 1; if count = 0 then { N саны – жай сан } else { N саны – құрама сан } for i := 2 to N-1 do if N mod i = 0 then count := count + 1; Қалай жақсартуға болады? ?

№ слайда 150 Логикалық функциялар program qq; var N: integer; begin writeln(‘Бүтін сан ен
Описание слайда:

Логикалық функциялар program qq; var N: integer; begin writeln(‘Бүтін сан енгіз'); read(N); if Prime(N) then writeln(N, ' – жай сан') else writeln(N, ' – құрама сан'); end. function Prime (N: integer): boolean; var count, i: integer; begin i := 2; count := 0; while i*i <= N do if N mod i = 0 then count := count + 1; i := i + 1; end; Prime := (count = 0); end; функцияны шақыру нәтижесі – логикалық мән шарт дегеніміз – логикалық мән таңдап алу тек -ге дейін

№ слайда 151 Тапсырмалар &quot;4&quot;: 1-ден N-ге дейінгі сандардың қосындысын анықтайтын функция
Описание слайда:

Тапсырмалар "4": 1-ден N-ге дейінгі сандардың қосындысын анықтайтын функция құру және оны қолдануға мысал келтіру. Мысал: Сан енгіз: 100 қосынды = 5050 "5": Шахматты ойлап шығарған адамның N-ші торға неше бидайдың қоюын сұрағанын анықтайтын функция құру. ( 1-шісіне – 1 дән, 2-шісіне – 2 дән, 3-шісіне – 4 бидай дәнін, …) Мысал: Тордың нөмірін енгіз: 28 28-шісі торда 134217728 бидай дәні.

№ слайда 152 Тапсырмалар (2-нұсқа) &quot;4&quot;: Екі натурал санның ең үлкен ортақ бөлгішін анықта
Описание слайда:

Тапсырмалар (2-нұсқа) "4": Екі натурал санның ең үлкен ортақ бөлгішін анықтайтын функция құру және оны қолдануға мысал келтіру. Мысал: Екі сан енгіз: 14 21 ЕҮОБ(14,21)=7 "5": Синус функциясын қатардың қосындысы секілді есептейтін функция құру. (0.001 дәлдікпен) Мысал: Градус түріндегі бұрышты енгіз: 45 sin(45) = 0.707 x радиан түрінде!

№ слайда 153  Фильмнің соңы
Описание слайда:

Фильмнің соңы

№ слайда 154
Описание слайда:

№ слайда 155
Описание слайда:

№ слайда 156
Описание слайда:

№ слайда 157
Описание слайда:

№ слайда 158
Описание слайда:

№ слайда 159
Описание слайда:


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 01.02.2016
Раздел Информатика
Подраздел Презентации
Просмотров160
Номер материала ДВ-400576
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх