Алгоритм
Тіл
Бақылау
Өңдеу
Алгоритм, алгорифм (ағылш.: algorіthm, algorіsmus — Әл-Хорезмидің атынан шыққан) — бастапқы берілген мәліметтермен бір мәнде анықталатын нәтиже алу үшін қай амалды (жұмысты) қандай ретпен орындау қажеттігін белгілейтін есептерді (мәселелерді) шешу (математикалық есеп-қисаптар орындау, техникалық объектілерді жобалау, ғылыми-зерттеу жұмысын жүргізу т.б.) тәсілдерінің дәл сипаттамасы. Алгоритм — математика мен кибернетиканың негізгі ұғымдарының бірі. Алгоритмді орындау алгоритмдік үрдіс деп аталады.
uses GraphABC;
var
p:array[0..7]of Point;
begin
p[0].x := 100; p[0].y := 50;
p[1].x := 200; p[1].y := 150;
p[2].x := 200; p[2].y := 200;
p[3].x := 100; p[3].y := 400;
p[4].x := 150; p[4].y := 200;
SetBrushColor(rgb(100,100,100));
Polygon(p[0],p[1],p[2],p[3],p[4]); // хвост
p[0].x := 200; p[0].y := 150;
p[1].x := 200; p[1].y := 200;
p[2].x := 300; p[2].y := 250;
p[3].x := 500; p[3].y := 250;
p[4].x := 550; p[4].y := 200;
p[5].x := 550; p[5].y := 150;
p[6].x := 500; p[6].y := 100;
p[7].x := 300; p[7].y := 100;
SetBrushColor(rgb(200,200,200));
Polygon(p[0],p[1],p[2],p[3],p[4],p[5],p[6],p[7]); // тело
p[0].x := 300; p[0].y := 100;
p[1].x := 350; p[1].y := 50;
p[2].x := 500; p[2].y := 100;
SetBrushColor(rgb(100,100,100));
Polygon(p[0],p[1],p[2]); // верхний плавник
p[0].x := 300; p[0].y := 250;
p[1].x := 350; p[1].y := 300;
p[2].x := 500; p[2].y := 250;
SetBrushColor(rgb(100,100,100));
Polygon(p[0],p[1],p[2]); // нижний плавник
SetBrushColor(rgb(0,0,0));
rectangle(550,150,560,200); // рот
SetBrushColor(rgb(70,70,70));
circle(500,150,10); // внешний круг глаза
SetBrushColor(rgb(0,0,0));
circle(500,150,5); // внутренний круг глаза
end.