ДОДЕЛАТЬ ОСТАЛЬНЫЕ СТОРОНА ПЕРПЯТСТВИЯ ДЛЯ КРУГА
ПРОГРАММА ПАСКАЛЬ
ВОТ РАБОТА:
uses
GraphABC;
var
k:integer;
x,y, xp, yp:integer;
xc,yc: array[1..10] of integer ;
procedure roma2();
begin
brush.color := clgreen;
circle(x, y, 40);
brush.color := clwhite;
circle(x+15, y-10, 13);
circle(x-25, y-10, 13);
brush.color := clblack;
circle(x+15, y-10, 05);
circle(x-25, y-10, 05);
brush.color := clred;
circle(x-4, y+20, 15);
end;
procedure roma();
begin
for var i:=1 to 10 do
begin
if (x=xc[i])and(y=yc[i])
then begin
xc[i]:=450;
k:=k+1;
end;
brush.color := clwhite;
circle(xc[i],yc[i],40);
brush.color := clyellow;
circle(xc[i],yc[i],20);
end;
end;
//
procedure KeyDown(Key: integer);
begin
lockdrawing;
window.Clear;
case Key of
vk_left:
begin
if x<0
then x:=500
else x := x - 1;
end;
//
vk_right:
begin
if (x >=xp)and (y >= yp) and (y <= yp+100) and (x <= xp+100)
then x:=x
else if x > 500
then x:=0
else x := x + 1;
end;
//
vk_up:
begin
if y<0
then y:=500
else y := y - 1;
end;
vk_down:
begin
if y>500
then y:=0
else y := y + 1;
end;
end;
brush.Color:=clyellow;
rectangle(xp,yp,xp+100,yp+100);
TextOut(20,20,inttostr(k));
roma2;
roma;
redraw;
end;
begin
k:=0;
window.Height:=500;
window.Width:=500;
x:=200; y:=300;
xp:=300;
yp:=350;
brush.Color:=clyellow;
rectangle(xp,yp,xp+100,yp+100);
for var i:=1 to 10 do
begin
xc[i]:=random (400);
yc[i]:=random (400);
roma;
end;
roma2;
OnKeyDown := KeyDown;
end.
var
s, ss: string;
ls, lss, i, j: integer;
flag: boolean;
begin
readln(s);
readln(ss);
i := 1;
ls := Length(s);
lss := Length(ss);
flag := false;
while i <= ls - lss + 1 do
begin
if s[i] = ss[1] then
begin
flag := true;
for j := 1 to lss - 1 do
if s[i + j] <> ss[j + 1] then
begin
i := i + j;
flag := false;
break
end;
if flag then
begin
write('является');
exit;
end;
end;
i += 1;
end;
write('не является');
end.
Черный ящик( в информатике) - система, внутреннее устройство которой неизвестно. То есть, мы имеем общее представление о том, что делает эта система, какую информацию на вход нужно подать и то, что система должна вывести, при этом не знаем как она это делает(механизм работы данной системы неизвестен).
Примеры подобной системы:
Любые технические устройства для обычного человека являются тем самым "черным ящиком". Известно, для чего они предназначены, но как они выполняют свою функцию - неизвестно.
Для человека, который не является программистом, любая программа на компьютере - "черный ящик".
В программировании один из примеров черного ящика - вызов функции из библиотеки с неизвестным исходным кодом. Известно, как вызвать эту функцию, известен формат входных и выходных данных, а по какому алгоритму действует функция - неизвестно.