Программалауға кіріспе. Турбо Паскаль тілі өз бетiмен атқарылатын жұмыс
Тапсырма 1
Көрсетілген математикалық өрнектерді Турбо Паскаль тілінде жазу керек
| 1) сosx lnx – x2 ex/10 2) 3,8 ex sinx + a x2 | 3) sinx2- cosx – 5,3 x 4) 8,7 ex ln(tgx) | 5) ln lnx + 2,3 xex 6) sin(x+0,6) 5х2 | 7) 5х2+6,23x ex 8) cos2(2,87x-0,45) |
Тапсырма 2
Турбо Паскаль тіліндегі өрнектерді кәдімгі күйде жазу керек
| 1) 0.5*x+exp(sin(2*x)) 2) 0.125e-3*(x+0.576) | 3) sqrt(exp(3*x))-2.56 4) exp(ln(x/5)+sqr(2*x) | 5) 0.4e-3*ln(x+sin(x)) 6) 0.375e6+exp(x-0.3) | 7) 7.5*sqr(x)+x*ln(x) 8) (sin(x-1)-3)/exp(3*x) |
Тапсырма 3. Турбо Паскальді жұмысқа қосып (ТURBO PASCAL пиктограммасын екі рет шертіп) мына бағдарламаның мәтінін теру керек:
| Program delenie (input, output); {Бөліндіні есептеу} const d=3.2; {d - тұрақты} var a,b:integer; {a,b – ендірілетін шамалар } begin write(‘a=’);{а шама мәнін енгізу жөнінде мәлімет} ReadLn(a);{а шаманың мәнін енгізу} write(‘b=’);{b шама мәнін енгізу жөнінде мәлімет } ReadLn(b); {b шаманың мәнін енгізу } s:=d*a/b; {нәтижені s есептеу} WriteLn(‘s=d*a/b=’,s:6:3) {нәтижені s шығару} end. |
1) Компиляторды жұмысқа қос: Compile – Compile немесе Alt+F9, егер ERROR сөзімен басталатын мәлімет шықса бағдарлама мәтінінде қате бар. Оны тауып түзету керек. Бағдарлама қатенің курсор тұрған жолдың үстіндегі жолда екендігін білдіреді. Түзету жүргізген соң қайта копиляторды қос, осылайша “Compile …” деген сөзден басталатын мәліметі бар сұқбат терезесі шыққанша қайтала.
2) a,b:integer; {a,b - ендірілетін шамалар} жазылған жолдағы нүктелі үтірді алып тастап, компиляция жүргіз. Бақылау нәтижесін дәптерге жаз. Нүктелі үтірді орнына жаз.
3) a,b:integer; {a,b - ендірілетін шамалар} жазылған жолда айнымалы b есімі мен оның алдындағы үтірді өшіріп, компиляция жүргіз. Бақылау нәтижесін дәптерге жаз. Өшірілгенді орнына жаз..
4) s:real; {s – нәтиже} жазылған жолда қос нүктені өшіріп компиляция жүргіз. Результат наблюдения и причину описать в тетради. Бақылау нәтижесін дәптерге жаз. Өшірілгенді орнына жаз.
5) Бағдарламаны сақта. Ол үшін орында:...................................екі рет шерт:../, USER, 0016~1, өз буманың есімі, сонан соң ТЕМА_13 бумасының есімін белгілеп, *-ны өшіріп бағдарламаны сақтау есімін prog1 енгіз, pas-кеңейтуін өшірілмеуі керек.
Жағдайлар бойынша жалпы қортынды шығарып жаз.
5) Бағдарламаны жұмысқа Run – Run немесе Ctrl+F9 орындап қос, сонан соң мына деректерді енгіз: а) a=5, b=7; б) a=13, b=7; в) a=17, d=5. Деректерді және оларға байланысты шыққан нәтижелерді дәптерге жазып ал. Нәтижені Аlt+F5 тиектерін басып көруге болады, сонан соң Esc тиегін басу керек.
6) WriteLn(‘s=d*a/b=’,s:6:3) {нәтижені s шығару} жолында:6:3 жазуын өшір. Бағдарламаны қайта қосып, жоғары көрсетілген деректерді қайта енгіз. Деректерді және оларға байланысты шыққан нәтижелерді дәптерге жазып ал. 5 және 6 жағдайларындағы нәтижелерді салыстырып, олардың араларындағы айырамшылықтарды түсіндіріп қортынды жаз.
Тапсырма 4
Бағдарлама құру функцияны Y= Z2 + T2 есептеуге, егер Z= a ebx және Т= c sindx.
1) a=636; b=-1,5; c=0,34; d=10 және Х-тің: а) 1,6 б) 2,3 в) 2,8 г) 3,1 мәндері үшін
2) a=63,6; b=-1,5; c=3,4; d=0,1 және Х-тің: а) 2,1 б) 1,3 в) 0,8 г) 2,7 мәндері үшін
11.2. Оқытушымен жұмыс:
- Қателiк жiберілген кезде, не түсiнiксiз жағдайлар болғанда оқытушыны ескерту керек
- Сабақ соңында iстелген жұмыстын есебiн мұғалiмге көрсетiп, сынақ баға алу керек
11.3. Негiзгi және қортынды бiлiм деңгейiн бақылау:
- Компьютерде тестелу
- Оқытушының тақырып сұрақтары бойынша әңгiмелесуi
Дата добавления: 2015-09-12; просмотров: 20 | Поможем написать вашу работу | Нарушение авторских прав |
| <== предыдущая лекция | | | следующая лекция ==> |
| БАРАБАННЫЙ МАГНИТНЫЙ СЕПАРАТОР | | | І- бекет «Жолдан өте біл» бекеті – 5 ұпай |