Page 154 - Информатика. Базалык курс (7-9 класстар)

www.bizdin.kg

154 V ãëàâà. Àëãîðèòìäåð æàíà ïðîãðàììàëîî
àëã ÝÑ×1 Program ÝÑ×1;
àíûê À, Â, Ñ var À, Â, Ñ : real;
áàøû êèðãèç À, Â begin readln (À, Â);
ýãåð À>Â if À>Â
àíäà Ñ:=À then Ñ:=À
àíòï Ñ:=Â else Ñ:=Â;
áà
÷ûãàð Ñ writeln (Ñ)
àÿãû. end.
Áóòàêòàíóóíóí àÿãûí áèëäèðãåí àòàéûí êûçìàò÷û ñºç êîëäîíóë-
ãàí æîê. Áóë æåðäå áóòàêòàíóó îïåðàòîðóíóí àÿêòàãàíäûãûíûí áåë-
ãèñè ¿ò¿ðë¿¿ ÷åêèò (;) áîëóï ýñåïòåëåò.
Ëîãèêàëûê òóþíòìàíûí æºíºêºé ôîðìàñû – êàòûø àìàëû. Ïàñ-
êàëäà äà êàòûøòàðäûí áàðäûê ò¿ðëºð¿ êèðãèçèëãåí:
< êè÷èíå, > ÷î¢, <= êè÷èíå æå áàðàáàð, >= ÷î¢ æå áàðàáàð, =
áàðàáàð, <> áàðàáàð ýìåñ.
Òîëóê ýìåñ áóòàêòàíóó êîëäîíóëãàí ÝÑ×2 àëãîðèòìèíèí Ïàñêàë-
äàãû ïðîãðàììàñû:
àëã ÝÑ×2 Program ÝÑ×2;
àíûê À,Â,Ñ var À,Â,Ñ : real;
áàøû êèðãèç À, Â begin readln (À, Â);
Ñ:=À Ñ:=À;
ýãåð Â>À if Â>À
àíäà Ñ:=Â then Ñ:=Â
áà
÷ûãàð Ñ writeln (Ñ)
àÿãû. end.
Àëãîðèòì ìåíåí ïðîãðàììàíûí îêøîøòóãóí áàéêàãûëà. Áóòàêòà-
íóó îïåðàòîðóíäà else áóòàãû («òåðñ» áóòàê) áîëáîøó äåëå ì¿ìê¿í.
Ýêè ºçãºðìºí¿í ìààíèëåðèí èðåòòºº ïðîãðàììàñûí ò¿çºë¿.
àëã ÈÐÅÒÒªª Program SORTING
àíûê X,Y,Ñ var X,Y,Ñ : real;
áàøû êèðãèç X,Y begin readln (X,Y);
ýãåð Õ>Y if X>Y
àíäà Ñ:=Õ then begin Ñ:=Õ;
Õ:=Y Õ:=Y;
Y:=Ñ Y:=Ñ
áà end;
÷ûãàð X, Y writeln (X,Y)
àÿãû. end.

www.trk.kg