 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
Сандық айнымалыларды түрлендіру функциясы
|
|
| Функция | Қойылуы | Аргумент типі | Функция типі |
| trunc(x) | Санның бүтін бөлігін есептеу | Нақты Бүтін | Бүтін |
| int(x) | Нақты санның О ге ұмтылғандағы мәні | Нақты | Нақты |
| round(x) | Санды дөңгелектеу | Нақты Бүтін | Бүтін |
| Frac(x) | Санның бөлшегі | Бүтін | Нақты |
Мысалы:
Y:=trunc(13.999); (айнымалы Y меншіктейді 13), Y:=trunc(13.111); (айнымалы Y меншіктейді 13).
Y:=round(3.145); (айнымалы Y меншіктейді 3), Y:=round(23.5); (айнымалы Y меншіктейді 24), Y:=round(-12.5); (айнымалы Y меншіктейді -13).
Y:=int(2.7) (айнымалы Y меншіктейді 2), Y:=int(-32.3) (айнымалы Y -32).
Сандық айнымалылардан басқа символды және логикалық айнымалылар қолданылады. Символды айнымалылар CHAR операторымен жазылады және берілгендердің типі жазылады. CHAR типті айнымалы бір байт орын алады.
Логикалық айнымалылар ( тип Boolean) – бұл айнымалы, екі мәнді қабылдайды ақиқат - true (1) немесе жалған - false (0).
| Логикалық операциялар | Атаулары |
| = | Тең |
| <> | Тең емес |
| And | Логикалық және (логикалық көбейту, конъюнкция) |
| Or | Логикалық немесе (логикалық қосу, дизъюнкция) |
| Xor | Логикалық немесе (нәтиже 1,) |
| Not | Логикалық НЕ |
Реттелген айнымалы шамалармен жұмыс жасайтын функциялар:
| Функция аты | Қойылымы | Аргумент типі | Функция типі |
| Pred(x) | Алдыңғыэлементтің мәнін табу | ||
| Succ(x) | Келесі элементтің мәнін табу | ||
| Ord(x) | Саналатын тип мәнінің реттік нөмірін анықтау | Саналатын тип | integer |
| Chr(x) | Реттік нөмірі арқылы символды анықтау | integer | CHAR |
Программалар мысалдары:
| Функцияның мәнін табу үшін қажет айнымалыларды атаңыз, y=x2. | Var x:real, y:real; |
| Дөңгелектің ауданын есептеудегі қажет айнымалыларды ата. | Var r1,r2,s:real; |
| Паскаль тілінде жаз: Y=-2,7x3+0,23x2-1,4 | Y:=-2.7*x*x*x+0.23*x*x-1.4 |
| Бөліндіден қалған қалдықты және екі санның бөліндісінің дөңгелектенген нәтижесін табу: | Var a,b,c,d:integer; Begin Writeln(‘Екі бүтін сан енгіз’); Readln(a,b); с:= a div b; d:= a mod b; Writeln(‘дөңгелектенген нөтиже - ’, c); Writeln(‘бөліндіден қалған қалдық - ’,d); Readln; end. |
Функция мәнін есептеңіз:
| Var Y,x:integer; Begin Write(‘x=’); Readln(x); Y:=5*x*x+9*x+12; Writeln(‘Y=’,Y); End. |
| Шеңбер радиусы R (l=2πR)болса, l шеңберінің ұзындығын табыңыз | Const π=3.14; Var R:integer; L:Real; Begin Write(‘R =’); Readln(R); L:= 2*π*R; Writeln(‘L =’, L); End. |
Дата публикования: 2015-11-01; Прочитано: 1010 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
