“...Адамзат үшін ХХІ ғасыр жаңа технологиялардың ғасыры болмақ, ал осы жаңа технологияларды жүзеге асырып, өмірге енгізу, игеру және жетілдіру - бүгінгі мектеп оқушылары сіздердің еншілеріңіз” Н.Назарбаев Сабақтың тақырыбы: - Pascal тілінде есептер шығару.
Сабақтың мақсаты: - Білімділік: Оқушыларға Паскаль тілінде программа құрылымына және қарапайым операторларға әртүрлі есептер шығару.
- Тәрбиелік: Оқушыларды ұқыптылыққа,адамгершілікке, жауапкершілікке тәрбиелеу.Оқушыларды программалық сауатылыққа тәрбиелеу.
- Дамытушылық: Оқушылардың ой - өрісін дамыту;
Сабақтың көрнекілігі: интерактивті тақта, компьютерлер, слайд, оқулық. - Сабақтың түрі: практикалық сабақ.
- Сабақтың әдісі: практикум, сұрақ – жауап,тест , қосымша тапсырмалар.
- Сабақтың типі: дамытушылық.
- Миға шабуыл
- Жаттығу кезеңі
- Компьютерде жұмыс
- Сабақты бекіту сұрақтары “Ойлан, тап”, “Полиглот”,тест сұрақтары
- Бағалау
- Үй тапсырмасы
- Паскаль тілін 1968-1971 жылдары швейцариялық
- ғалым Никлаус Вирт қолайлы программалау тілі
- ретінде ұсынған болатын.
- Бұл тілдің стандарты кейінірек бекітілді, ол сол
- кездерде кең таралған
- АЛГОЛ, ФОРТРАН, БЕЙСИК тілдеріне қарағанда
- жетілдірілген, жұмыс істеуге ыңғайлы тіл болды.
- Паскаль тілінде жазылған программаның дұрыстығын
- компьютерде тексеру және жіберілген қатені түзету оңай.
- Қазіргі кезде Паскаль тілі кез келген күрделі
- есептерді шығара алатын,
- кең таралған стандартты оқу тіліне айналды.
- 1992 жылы Borland International фирмасы
- Паскаль программалау тілінің негізінде құрылған
- екі құрама программа шығарады: Borland Pascal 7.0
- және Turbo Pascal 7.0. Олардың алғашқысы үш түрлі
- режимде жұмыс істей алады – MS DOS-тің қарапайым
- мен қорғанған жүйесінде және Windows операциялық
- жүйесінде.
- Оның жұмысы үшін қатты дискіде 30 Мбайт бос орын және
- жедел жадтың 2 Мбайт бөлігі қажет. Ал, Турбо Паскаль
- 7.0 MS DOS-тың қарапайым режимінде және Windows
- операциялық жүйесінде жұмыс істей алады, ол компьютер
- құрылғыларының сипаттамаларына Borland Pascal 7.0
- программалау тіліне қарағанда өте төмен талаптар қояды.
Қарапайым типке жататындарын тап! (дұрыс шертсең жапырақтар сыбдырлап белгі береді) Логикалық типке жататын асқабақтарды жина! Символдық типке жататын асқабақтарды жина! Тіркестік типке жататын асқабақтарды жина! Нақты типке жататын асқабақтарды жина! div, mod функциялары қандай типке қолданылады? (дұрысы тышқанмен шерткенде жасыл түске боялады) Логикалық типке қолданылатын амалдарды тап. (дұрыс тапсаң шар әуеге қалықтайды!) Символдық типке қолданылатын функцияларды тап. (дұрыс тапсаң шар әуеге қалықтайды!) Бүтін типке қолданылатын амалдарды тап. (дұрыс тапсаң шар әуеге қалықтайды!) - Паскаль тілін қай жылы
- кім ұсынды?
- Алгоритм түрлері қанша?
- Оларды атап,анықтамасын
- айт?
- Мысал: k =(x2 + y2) * x+y, мұндағы функциясының мәнін есептейтін программа құру керек.
-
- Program esep 2 ;
- Var k:real;
- Const x = 5, y = 2.8;
- Begin
- K: = srq (x) + sqr(y)* (x+y);
- Writeln (‘k = ‘, k);
- End.
- №1. Екі санның үлкенін табатын программа құр.
- №2. Үш санның үлкенін табатын программа құру керек.
- №3 Екі санның кішісін табатын программа құру керек.
- №4. Үш санның кішісін табатын программа құру керек.
- №5 Үш кесіндінің ұзындықтары берілген. Егер бұл үш кесіндіден үшбұрыш құру мүмкін болса, онда оның периметрін және ауданын табыңдар.
- №6. Адам жасына қарап, оларды әлі мектепке бармаған, мектеп оқушысы, жұмысшы, зейнеткер деген төрт топтың біріне жатқызатын программа құрыңдар. Адам жасы пернетақтадан енгізіледі.
- №7. Екі сан берілген. Егер бірінші санның абсолют шамасы екінші санның абсолют шамасынан артық болса, онда біріншісін бес есе азайту керек, әйтпесе екі санды да өзгеріссіз экранға шығару керек.
- №8.Пернетақтадан трамвай билетінің нөмірі (1 орынды 6 сан ) енгізіледі. Билет «бақытты» нөмір болатынын анықтаңдар. Бақытты билеттің алғашқы 3 цифрының қосындысы соңғы 3 цифрының қосындысына тең болады.
- №1. Екі санның үлкенін табатын программа құр.
- Program max;
- Var a, b, max: integer;
- Begin
- Readln (a,b);
- If a>b then max:= a else max:=b;
- Writeln (‘ max= ’ , max);
- End.
- №2. Үш санның үлкенін табатын программа құру керек.
- Program max;
- Var a, b, c, x, max: integer;
- Begin
- Readln (a, b, c);
- If a>b then max:= x else max:=c;
- Writeln (‘ max= ’ , max);
- End.
- №3 Екі санның кішісін табатын программа құру керек.
- Program min;
- Var a, b, min : integer;
- Begin
- Readln (a, b);
- If a
- Writeln ( ‘ min = ‘ , min) ;
- End.
- №4. Үш санның кішісін табатын программа құру керек.
- Program min;
- Var a, b, c, x, min : integer;
- Begin
- Readln (a, b, c);
- If a
- If x
- Writeln ( ‘ min = ‘ , min) ;
- End.
- Есептердің жауаптарын тексеру
- №5 Үш кесіндінің ұзындықтары берілген. Егер бұл үш кесіндіден үшбұрыш құру мүмкін болса, онда оның периметрін және ауданын табыңдар.
- Program e5;
- Var a, b, c : integer;
- P1, p, s: real;
- Begin
- Readln (a, b, c);
- If a+b>c then p1: = a+b+c ;
- P:= (a+b+c)/2;
- S:=sqrt (p*(p-a)*(p-b)*(p-c));
- Writeln ( ‘ p1= ‘ , p1:5:2) ;
- Writeln (‘ s=’,s:5:2);
- End.
- Есептердің жауаптарын тексеру
- №6. Адам жасына қарап, оларды әлі мектепке бармаған, мектеп оқушысы, жұмысшы, зейнеткер деген төрт топтың біріне жатқызатын программа құрыңдар. Адам жасы пернетақтадан енгізіледі.
- Program e6;
- Var x : integer;
- Begin
- Writeln (‘ adam jasin engiz’ );
- Readln (x);
- If x<=6 then writeln (‘ ali mektepke barmagan’ ) else
- If (x>6) and (x<=17) writeln (‘ mektep okushisi ‘) else
- If (x>17) and (x<58) writeln (‘ jumisshi’) else writeln (‘ zeinetker’);
- End.
- Есептердің жауаптарын тексеру
- №7. Екі сан берілген. Егер бірінші санның абсолют шамасы екінші санның абсолют шамасынан артық болса, онда біріншісін бес есе азайту керек, әйтпесе екі санды да өзгеріссіз экранға шығару керек.
- Program e7;
- Var x, y : real;
- Begin
- Writeln (‘x , y-?);
- Readln (x, y);
- If abs (x)< abs(y) then x:=x/5;
- Writeln (x:5:2, y:5:2);
- Readln;
- End.
- Есептердің жауаптарын тексеру
- №8.Пернетақтадан трамвай билетінің нөмірі (1 орынды 6 сан ) енгізіледі. Билет «бақытты» нөмір болатынын анықтаңдар. Бақытты билеттің алғашқы 3 цифрының қосындысы соңғы 3 цифрының қосындысына тең болады.
- Program e8;
- Var x, y, z, r, k, t, s, n : integer;
- Begin
- Read (x, y, z, r. k. t );
- S:= x+y+z;
- N:= r+k+t;
- If S= N then writeln (‘ bakitti nomer’) else writeln (‘ bakitti nomir emes’);
- End.
- Есептердің жауаптарын тексеру
- Паскаль тілін 1968-1971 жылдары швейцариялық ғалым .... ... қолайлы программалау тілі ретінде ұсынған болатын.
- Паскаль тіліндегі программа 3 бөліктен тұрады: ...........,
- ......, ......
- Кез келген программаның алғашқы жолы ............ сөзінен
- басталатын оның тақырыбынан тұрады.
- Одан кейін программаның ішкі объектілерінің ........... жазылады
- Тармақталу операторы ................
y = a*x y = a*x | | | - алг алгоритмнің аты
- басы бүт a, x, y
- енгізу a, x
- y: = a * x
- шығару у
- соңы
| - Program a1;
- Var a, x, y: integer;
- Begin
- Readln (a, x);
- y: = a * x;
- writeln (‘y=’,y);
- end.
| | - Бағдарлама
- Басы
- Тұрақты
- Нақты
- Бүтін
- Енгізу
- Шығару
- Егер
- Онда
- Әйтпесе
- соңы
- Тест сұрақтарына жауап беру
С ө з ж ұ м б а қ - 1. Негізгі бағдарламаның басы
- 4. Бүтін санның типі (-32768 - +32767)
- 6. Бүтін санның типі (-127 - +127)
- Оқушыларды бағалау
- Үйге тапсырма:
- 3.1 тақырып
- (55-56 бет),
- 3.2-3,3 тақырып
- (57-59 бет);
Достарыңызбен бөлісу: |