№ 2 ëàáîðàòîðèÿëûº æ½ìûñ “ ²àðàïàéûì àéíûìàëûëàðäû ºîëäàíûï, òàðìàºòàë¹àí º½ðûëûìäû æ¸íå öèêëäiê º½ðûëûìäû àëãîðèòìäåðäi ïðîãðàììàëàó ”
ƽìûñòû» ìàºñàòû: ÝÅÌ-äà æ½ìûñ iñòåó ò¸ñiëäåðiìåí òàíûñó, Ïàñêàëü òiëiíäå ïðîãðàììàëà𠺽ðûï ¾éðåíó.
1.Òàðìàºòàë¹àí àëãîðèòì
Ïàñêàëü òiëiíäå òàðìàºòàë¹àí àëãîðèòìäi IF øàðòòû æ¸íå GOTO øàðòñûç ê¼øó îïåðàòîðûíû» ê¼ìåãiìåí æàçó¹à áîëàäû. Øàðòòû îïåðàòîðûíû» åêi æàçûëó ò¾ði áîëàäû:
IF <òåêñåðiëåòií øàðò>THEN S1 ELSE S2:
IF <òåêñåðiëåòií øàðò>THEN S1 :
Òåêñåðiëåòií øàðò ðåòiíäå ê¼áiíåñå åêi îïåðàöèÿëûº ¼ðíåêòi ñàëûñòûðó îïåðàöèÿñû ºîëäàíûëàäû. Ìûñàëû,
А>2; A+B<=SIN(X).
Ñàëûñòûðó îïåðàöèÿëàðû: = (òå»), <> (òå» åìåñ), < (êiøi), > (¾ëêåí), <= (êiøi íåìåñå òå»), >= (¾ëêåí íåìåñå òå»).
Øàðòòû îïåðàòîð êåëåñi æîëìåí òàðàòûëàäû. Åãåð òåêñåðiëåòií øàðò àºèºàò áîëñà, îíäà S1 îïåðàòîðû òåêñåðiëåäi, àë åãåð øàðò àºèºàò áîëìàñà S2 îïåðàòîðû îðûíäàëàäû. Á½ë îïåðàòîðëà𠺽ðàìà íåìåñå øàðòòû îïåðàòîðëàð áîëóû ì¾ìêií. Øàðòòû îïåðàòîðäû» æàçûëóûíû» åêiíøi ôîðìàñû ºûñºàðòûë¹àí ò¾ðäå áåðiëiï îòûð. Á½ë æà¹äàéäà åãåð øàðò ºàíà¹àòòàíäûðàðëûº áîëìàñà, îíäà S1 îïåðàòîðû îðûíäàëàäû, àë åãåð îðûíäàëìàñà îíäà áàñºàðó IF îïåðàòîðûíàí êåéiíãi îïåðàòîð¹à áåðiëåäi. GOTO øàðòñûç ê¼øó îïåðàòîðû ìûíàäàé ò¾ðäå áåðiëåäi:
GOTO <áåëãi>
Øàðòñûç ê¼øó îïåðàòîðû ïðîãðàììàíû» îðûíäàëóû áåëãiëåíãåí îïåðàòîðäàí æàë¹àñàòûíûí ê¼ðñåòåäi.
Ìûñàë 2.1 Åêi ôèãóðàíû», ÿ¹íè ä¼»ãåëåê ïåí ò¼ðòá½ðûøòû» ºàéñûñûíû» àóäàíû ¾ëêåí åêåíií ê¼ðñåòåòií ïðîãðàììà º½ðû»ûç. Ò¼ðòá½ðûøòû» æà¹û à æ¸íå ä¼»ãåëåêòi» ðàäèóñû r áåëãiëi. Æàóàáûíà ¾ëêåí ôèãóðàíû» ì¸íií æ¸íå àòûí øû¹àðû»ûç.
а=7,1; r=4.
Ò¼ðòá½ðûøòû» àóäàíû Sкв =а2 , ä¼»ãåëåêòi» àóäàíûSкр =πr2 îñû ôîðìóëàëàðìåí àíûºòàëàäû. Îäàí ñî» åñåïòåëãåí àóäàíäàðäû» ì¸íií ñàëûñòûðûï, ¾ëêåí àóäàííû» ì¸íií áàñàäû.
Áåëãiëåóëåð åíãiçåìiç: À-ò¼ðòá½ðûøòû» æà¹û à; R- ä¼»ãåëåê ðàäèóñû r; SA- ò¼ðòá½ðûø àóäàíû Sкв ; SR- ä¼»ãåëåê àóäàíûSкр ; PI- ò½ðàºòû π=3,1415.
PROGRAM EX1;
CONST PI=3.1415;
VAR A,R,SA,SR:REAL;
BEGIN
WRITELN (‘Ïðîáåë àð²ûëû ì°íäåðäI åíãIçI³Iç А, R’);
READLN (A,R);
SA:=A*A;
SR:=PI*R*R;
IF SA>SR THEN WRITELN (‘Ò´ðòáµðûø àóäàíû=’,SA);
ELSE WRITELN (‘Ä´³ãåëåêòI³ àóäàíû=’,SR);
END.
Ïðîãðàììà±à ò¶ñIíIêòå. Îñû ïðîãðàììàäà ò¼ðòá½ðûøòû» àóäàíû ìåí ä¼»ãåëåêòi» àóäàíûí ñàëûñòûðó ¾øií IF øàðòñûç îïåðàòîðû ºîëäàíûëàäû.Åãåð ò¼ðòá½ðûø àóäàíû ä¼»ãåëåêòi» àóäàíûíàí ¾ëêåí áîëñà, îíäà êåëåñi îïåðàòîð îðíûäàëàäû. WRITELN (‘Ä´³ãåëåêòI³ àóäàíû=’,SR);
åãåð ò¼ðòá½ðûøòû» àóäàíû ä¼»ãåëåêòi» àóäàíûíàí ¾ëêåí åìåñ áîëñà, îíäà êåëåñi îïåðàòîð îðûíäàëàäû:
WRITELN (‘Ò´ðòáµðûø àóäàíû=’,SA);
ELSE îïåðàòîðûíàí êåéií « ; » ¾òið í¾êòå ºîéûëìàéäû. ¶òið í¾êòå ºîéûëàòûí áîëñà ïðîãðàììàíû æ¾êòåó êåçiíäå ñèíòàêñèñòiê ºàòå æ¼íiíäå ì¸ëiìåò áåðiëåäi.
Ïðîãðàììàíû îðûíäà¹àííàí êåéií ýêðàíäà êåëåñi æàóàïòàð áåðiëåäi.
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
Ïðîáåë àð²ûëû ì°íäåðäI åíãIçI³Iç А, R
7.1 4
Ò´ÐÒÁµÐÛØ ÀÓÄÀÍÛ= 5.04099999999744E+0001
2.Öèêëäiê àëãîðèòì
Öèêëäiê àëãîðèòìäåð áiðºàòàð îïåðàòîðëàðäû» ºàéòàëàíûï îðûíäàëóûí ½éûìäàñòûðàäû. Åãåð ºàéòàëàíó ñàíû àëäûí-àëà áåëãiëi áîëñà FOR ºûçìåòòiê ñ¼çi áàð öèêëäiê îïåðàòîðûí ºîëäàí¹àí û»¹àéëû, àë ºàéòàëàíó ñàíû áåëãiñiç áîëñà WHILE и REPEAT ºûçìåòòiê ñ¼çäåði áàð öèêëäiê îïåðàòîð ºîëäàíûëàäû. FOR и WHILE öèêëûíäà¹û ºàéòàëàíàòûí îïåðàòîðëà𠺾ðàìà îïåðàòîðëàð ðåòiíäå ½éûìäàñòûðûëàäû. Öèêëäiê îïåðàòîð æ¸íå º½ðàìà îïåðàòîð öèêë äåíåñií º½ðàéäû. FOR öèêëäûº îïåðàòîðû êåëåñi ò¾ðäå áîëàäû: FOR<öèêë îïåðàòîðû>:=<áàñòàïºû ì¸í>TO< ñû ì¸í>
FOR<öèêë îïåðàòîðû>:=<áàñòàïºû ì¸í>DOWNTO< ñû ì¸í >
Öèêëäåð áàðëûº ºîëäàíûëàòûí ïðîãðàììàëàðäû» º½ðàìà á¼ëiêòåði áîëûï òàáûëàäû æ¸íå REPEAT, WHILE, FOR îïåðàòîðëàðûíû» ê¼ìåãiìåí ½éûìäàñòûðûëóû ì¾ìêií. ²àéòàëàíó ñàíäàðû áåëãiëi åìåñ öèêëäåðäå REPEAT и WHILE îïåðàòîðëàðû ºîëäàíûëàäû. REPEAT öèêëäiê îïåðàòîðû êåëåñi ò¾ðäå áîëàäû:
REPEAT
S
UNTIL e
̽íäà REPEAT – ºûçìåòòiê ñ¼ç (ºàéòàëàó); S- оператор íåìåñå îïåðàòîðëàð òîáû; UNTIL – ºûçìåòòiê ñ¼ç (пока не); е – öèêëäàí øû¹ó øàðòû.
Оператор S îïåðàòîðû öèêëäàí øû¹ó øàðòû àºèºàò áîëìàéûíøà ºàéòàëàíûï îðûíäàëà áåðåäi. WHILE öèêëäiê îïåðàòîðûíû» æàëïû ò½ði:
WHILE e DO S
̽íäà WHILE – ²ûçìåòòiê ñ¼ç (пока), е- öèêëäi» æàë¹àñó øàðòû, DO- ºûçìåòòiê ñ¼ç (выполнить), S- öèêëäà îðûíäàëàòûí îïåðàòîð. Åãåð öèêëäà áiðíåøå îïåðàòîðëàð îðûíäàëàòûí áîëñà, îíäà îëàðäû BEGIN æ¸íå END îïåðàòîðëûº æàºøà¹à àëóûìûç ºàæåò.
Ìûñàë 2.2
Ôóíêöèÿíû» ì¸íií åñåïòåó ïðîãðàììàñûí º½ðû»ûç.
Y=(5-20x)/(10x2-12x+2.7)
Õ-òi» xn -íåí xk -¹à dx ºàäàììåí ¼çãåðóií àíûºòà»ûç. ͸òèæåëåðäi х æ¸íå у ì¸íäåðií ê¼ðñåòåòií êåñòå ò¾ðiíäå áàñûï øû¹àðû»ûç. Áåðiëãåíäåð: xn - х –òi» áàñòàïºû ì¸íi; xk –х –ñû ì¸íi, dx- х –òi» ¼çãåðó ºàäàìû.
program p2;
const pi=3.1415;
tab='*******************************';
var
XN,XK,DX,X,Y:REAL;
BEGIN
WRITELN('ÏÐÎÁÅË ÀвÛËÛ ÅÍÃIÇI³IÇ XN,XK,DX');
READLN(XN,XK,DX);
WRITELN(' ',TAB);
WRITELN('* X * Y * ');
REPEAT
Y:=(5-20*X)/(10*X*X-12*X+2.7);
WRITELN('*',' ':5,X:5:1,' ':5,'*',' ':5,Y:9:3,' ':5,'*');
X:=X+DX;
UNTIL X>XK;
WRITELN(' ',TAB);
END.
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
ÏÐÎÁÅË ÀвÛËÛ ÅÍÃIÇI³IÇ XN,XK,DX
-0.5 2 0.2
*******************************
* X * Y *
* 0.0 * 1.852 *
* 0.2 * 1.429 *
* 0.4 * 6.000 *
* 0.6 * 7.778 *
* 0.8 * 22.000 *
* 1.0 * -21.429 *
* 1.2 * -7.037 *
* 1.4 * -4.182 *
* 1.6 * -2.967 *
* 1.8 * -2.296 *
*******************************
Ïðîãðàììà¹à ò¾ñiíiêòåìå: Ò½ðàºòûëàðäû áåéíåëåó á¼ëiìiíäå tab='*******************************' ñèìâîëäûº òèïòåãi ò½ðàºòû ê¼ðñåòiëãåí. ÒÀ êåñòå áàñûí áåëãiëåó ½øií ºîëäàíûëàäû. Îñû ïðîãðàììàäà öèêëäû ½éûìäàñòûðó ¾øií REPEAT îïåðàòîðû áåðiëãåí. UNTIL ºûçìåòòiê ñ¼çiíåí êåéií öèêëäàí øû¹ó øàðòû áåðiëãåí X>XK.
Òàïñûðìàëàð:
Ìûíà àðèôìåòèêàëûº ¼ðíåêòåðìåí а=sin x, b=cos x, c=ln |x| àíûºòàëàòûí ¾ø øàìàíû» ºàéñûíû» ì¸íi àç åêåíií åñåïòåó ïðîãðàììàñûí º½ðû»ûç.
Åñåïòå»iç:
y=x2+b ôóíêöèÿñûíû» ì¸íií åñåïòå»iç. Õ –10-íàí 10-¹à äåéií 2-ºàäàììåí ¼çãåðåäi. b=5
у=cos(x+п/3) ôóíêöèÿñûíû» ì¸íií åñåïòåï, í¸òèæåíi êåñòå ò¾ðiíäå ê¼ðñåòi»iç. Õ –2-äåí 2-ãå äåéií 0,1 ºàäàììåí ¼çãåðåäi.
Ëàáîðàòîðèÿëûº æ½ìûñ òàïñûðìàëàðû:
Ëàáîðàòîðèÿëûº æ½ìûñ ñèïàòòàìàñûìåí òàíûñû»ûç.
Áåðiëãåí òàïñûðìàëàð¹à ïðîãðàììà º½ðûï, åñåïòi (îò÷åò) æàçáàøà ò¾ðäå ¼òêiçi»iç.
Áàºûëàó ñ½ðàºòàðû:
REPEAT îïåðàòîðûíû» ê¼ìåãiìåí öèêëäû ºàëàé ½éûìäàñòûðó¹à áîëàäû?
WHILE îïåðàòîðûíû» ê¼ìåãiìåí öèêëäû ºàëàé ½éûìäàñòûðó¹à áîëàäû?
WHILE æ¸íå REPEAT îïåðàòîðëàðûíû» àéûðìàøûëû¹û íåäå?
Достарыңызбен бөлісу: |