Алгоритм
Тіл
Бақылау
Өңдеу
Алгоритм, алгорифм (ағылш.: 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.
USES Graph; {подключен модуль Graph}
VAR x,y,h:integer;
PROCEDURE GrInit; {процедура инициализации режима графики}
VAR
GraphDriver: Integer; {для графического адаптера}
GraphMode : Integer; {для графического режима}
ErrorCode : Integer; {для кода ошибки}
BEGIN
GraphDriver :=Detect; {режим автоопределения}
InitGraph(GraphDriver ,GraphMode,''); {инициализация}
ErrorCode :=GraphResult; {результат инициализации}
if ErrorCode <> grOk then {если не успешно,то...}
begin
Writeln('Ошибка графики:',GraphErrorMsg(ErrorCode ));
Writeln('Программа остановлена.');
Halt(1)
end {if}
END;
BEGIN
GrInit; {вызов инициализации}
x:=GetMaxX div 2;
y:=GetMaxY div 2;
h:= 30; {кол-во шагов до финиша}
while x+y>0 do
begin
ClearDevice;
Circle(x, y, 10);
Delay(100);
x:= x + GetMaxX div h;
y:= y - GetMaxy div h;
end;
Readln; {пауза до нажатия }
CloseGraph; {закрытие графического режима}
END.