Uses graphABC;
var xx: integer;
procedure Obl(x,y:integer);
begin
setpenwidth(1);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x,y,40);
circle(x+30,y,30);
circle(x-40,y,30);
end;
procedure Kor (x: integer);
begin
setpencolor(clbrown);
setbrushcolor(clbrown);
setpenwidth(3);
rectangle(x+50,250,x+150,270);
line(x+149,268,x+180,250);
line(x+180,250,x+149,250);
floodfill(x+155,255,clbrown);
setpencolor(clwhite);
line(x+100,245,x+180,245);
line(x+180,245,x+100,150);
line(x+100,150,x+100,245);
line(x+90,245,x+50,245);
line(x+50,245,x+90,170);
line(x+90,170,x+90,245);
floodfill(x+105,240,clwhite);
floodfill(x+85,235,clwhite);
end;
begin
setwindowsize(700,500);
lockdrawing;
xx:=-100;
repeat
clearwindow;
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,700,250);
setpenwidth(5);
setpencolor(clskyblue);
arc(350,-1350,1700,180,0);
floodfill(350,300,clskyblue);
setpencolor(claqua);
arc(350,-1050,1500,180,0);
floodfill(350,400,claqua);
floodfill(350,470,clCream);
Obl(300,90);
Obl(450,150);
Obl(150,110);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
Kor (xx);
sleep(1);
xx:=xx+1;
redraw;
until xx>1000;
end.
1. В школах всегда говорят, что лучший пример алгоритма - какой-нибудь кулинарный рецепт.
Линейный алгоритм приготовления колобка.
Колобок картофельный
Картофель (1,2 кг) ;
Яйца (2 шт.) ;
Мука пшеничная (100 г) ;
Сухари (60 г) ;
Жир для жарки (200 г) .
В протертый отварной картофель добавить 3 столовые ложки муки, желтки двух яиц. Хорошо перемешать, посолить и сформировать шарики. (От себя: для пикантности можно добавить мелко нарезанную копченую колбаску или ветчину) . Полученные шарики запанировать в муке, смочить во взбитых белках и обвалять в сухарях. Жарить в кипящем масле до готовности.
Можно еще по сусекам поскрести ;)
2. Ветвление. Сказку не помню, позор мне. Что-то про Илью Муромца. Вот где он стоял на распутье и выбирал дороги: направо пойдешь коня потеряешь, прямо пойдешь голову потеряешь, налево
<span>пойдешь и коня и голову потеряешь
</span>
Люди, подскажитееке
А как сюда скинуть фотографию.
Для кодирования одного символа в кодировке ASCII используется 8 бит, в кодировке Unicode - 16 бит (хотя это зависит от того, что кодируется). Следовательно, искомый объем сообщения = 2^13 * 2 = 2^14
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(-3,3);
write(ar[i]:4);
end;
for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят}
for j:=i+1 to n do
if ar[i]>ar[j] then
begin
k:=ar[i];
ar[i]:=ar[j];
ar[j]:=k;
end;
writeln;
writeln('Sorted array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
for i:=1 to n do
if ar[i]=0 then
begin
write('Index of 0 is ',i);
break;
end;
end.
<span>Пример работы программы:
First array:
-2 -3 0 -3 3
Sorted array:
-3 -3 -2 0 3
Index of 0 is 4</span>