Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Сандық айнымалыларды түрлендіру функциясы



Функция Қойылуы Аргумент типі Функция типі
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; Прочитано: 1011 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2025 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.005 с)...