ßê çâåñòè â ñòóï³íü â pascal
Ìîâà ïðîãðàìóâàííÿ Ïàñêàëü â³äð³çíÿºòüñÿ â³ä á³ëüøîñò³ ³íøèõ òèì, ùî â íüîìó â³äñóòíÿ îïåðàòîð ï³äíåñåííÿ äî ñòóï³íü. Òîìó ôðàãìåíò ïðîãðàìè äëÿ çä³éñíåííÿ öüîãî ìàòåìàòè÷íîãî 䳿 äîâîäèòüñÿ ñêëàäàòè ñàìîñò³éíî.
1
Íàéá³ëüø ïðîñòèé âèïàäîê âèíèêàº, êîëè ÷èñëî íåîáõ³äíî çâåñòè â íåâåëèêó ö³ëó ïîçèòèâíó ñòóï³íü. Òàêå ìàòåìàòè÷íå ä³þ ìîæíà âèêîíàòè áóêâàëüíî çà îäèí ðÿäîê. Íàïðèêëàä, ÿêùî ÷èñëî íåîáõ³äíî çàâæäè çâîäèòè â ÷åòâåðòó ñòóï³íü, ñêîðèñòàéòåñÿ òàêîþ ðÿäêîì: b: = a * a * a * a-Ñàì³ çì³íí³ a ³ b ïîâèíí³ ìàòè òèï, â³äïîâ³äíèé ä³àïàçîíó ³ âèäó ÷èñåë, ùî ï³ääàþòüñÿ çâåäåííþ â ñòóï³íü.
2
ßêùî ÷èñëî òàêîæ çâîäèòüñÿ â ö³ëó ³ ïîçèòèâíó ñòóï³íü, àëå âîíà âåëèêà, ³, äî òîãî æ, ìîæå çì³íþâàòèñÿ, ñêîðèñòàéòåñÿ öèêëîì. Äëÿ öüîãî ïîì³ñò³òü â ïðîãðàìó òàêèé ôðàãìåíò: c: = a-if b = 0 then c: = 1-if bgt; = 2 then for i: = 2 to b do c: = a * c-Òóò a - ÷èñëî, ÿêå ï³äëÿãຠçâåäåííþ â ñòóï³íü, b - ïîêàçíèê ñòóïåíÿ, c - ðåçóëüòàò. Çì³íí³ i ³ b - îáîâ`ÿçêîâî òèïó integer.
3
Ùîá çâåñòè ÷èñëî â äðîáîâó ñòóï³íü, ñêîðèñòàéòåñÿ âëàñòèâîñòÿìè ëîãàðèôì³â. ³äïîâ³äíèé ôðàãìåíò ïðîãðàìè ïðè öüîìó áóäå âèãëÿäàòè òàê: c: = exp (b * ln (a)) - Äàíèé ñïîñ³á íå äîçâîëÿº ïðàöþâàòè ç íóëåì ³ íåãàòèâíèìè ÷èñëàìè. Äëÿ óñóíåííÿ ïåðøîãî ç öèõ íåäîë³ê³â ñêîðèñòàéòåñÿ òàêîþ êîíñòðóêö³ºþ: if a = 0 then c: = 1 else c: = exp (b * ln (a)) - Öå äîçâîëèòü îá³éòè îáìåæåííÿ íà ä³àïàçîí çíà÷åíü âõ³äíîãî ïàðàìåòðà íàòóðàëüíîãî ëîãàðèôìà, ÿêèé ïðè íóë³ íå ìຠìàòåìàòè÷íîãî ñåíñó. Äðóãèé íåäîë³ê, îäíàê, çàëèøèòüñÿ â ñèë³: çâîäèòè â ñòóï³íü íåãàòèâí³ ÷èñëà ³ ðàí³øå íå âäàñòüñÿ. Âñ³ çì³íí³ âèêîðèñòîâóéòå òèïó real.
4
Ùîá çâåñòè â ñòóï³íü íåãàòèâíå ÷èñëî, â³çüì³òü éîãî ìîäóëü, ï³äñòàâòå â ïîïåðåäí³é âèðàç, ï³ñëÿ ÷îãî ïîì³íÿéòå çíàê ðåçóëüòàòó. Ìîâîþ Ïàñêàëü öå áóäå âèãëÿäàòè íàñòóïíèì ÷èíîì: c: = (- 1) * exp (b * ln (abs (a))) - Ïîò³ì, ÿêùî ñàìà ñòóï³íü º ïàðíîþ, â³çüì³òü ìîäóëü â³ä ðåçóëüòàòó: if round (b / 2) = b / 2 then c: = abs (c) -
5
²íîä³ âèíèêຠíåîáõ³äí³ñòü â óí³âåðñàëüíîìó ôðàãìåíò³ ïðîãðàìè, ùî äîçâîëÿº çä³éñíþâàòè çâåäåííÿ â ñòóï³íü ùîäî áóäü-ÿêèõ ÷èñåë. Òîä³ ñêëàä³òü éîãî â òàêèé ñïîñ³á: c: = 0-if a0 then c: = exp (b * ln (a)) - if b = 0 then c: = 1-if round (b / 2) = b / 2 then c : = abs (c) -Òóò âñå çì³íí³ - òàêîæ òèïó real.
Ñòàòò³ çà òåìîþ "ßê çâåñòè â ñòóï³íü â pascal"
Îö³í³òü, áóäü ëàñêà ñòàòòþ