uses GraphABC,Events,Utils; //необходимые библиотеки подключены
var pr,px,py,kx,ky,ku,pc,s: integer; //переменные: положение ракетки, координаты мяча, коэффициенты отражения, положение ракетки компьютера
procedure KeyDown(Key: integer); //процедура обработки нажтия клавиши
begin
case Key of
VK_Up: if pr>10 then pr:=pr-10; //если вверх, и если ракетка не достигла края экрана, сместить координаты ракетки на 10 вверх
VK_Down: if pr<490 then pr:=pr+10; //то же, только вниз
end;
end;
procedure Pm; //процедура определения координат мячика
begin
if px<10 then
begin
kx:=kx*(-1); //если достиг стенки левой - поменять коэффициент смещения по х на противоположный
s:=random(2);
if s=1 then ky:=ky*(-1);
end;
if (py<10) or (py>490) then ky:=ky*(-1); //если достиг стенки верхней или нижней - поменять коэффициент смещения на противоположный
if px>590 then //если достиг правой (игрока) стенки, проверяем
if (py>pr-20) and (py<pr+20) then kx:=kx*(-1) else //если координаты мяча совпадают с координатами ракетки, меняем коэффициент смешения по х на противоположный
begin //иначе
showmessage('Вы упустили мячик!'); //выводим сообщение
inc(ku); //увеличиваем счетчик упущенных мячей
px:=15; //возвращаем мяч в исходную позицию у противоположной стенки
py:=250;
end;
px:=px+kx; //смещаем координаты на коэффициенты смещения
py:=py+ky;
end;
begin
lockdrawing; //запрет прорисовки в окне (мигание убираем)
setwindowsize(600,500); //размер окна
kx:=5; ky:=1; px:=15; py:=250; pr:=250; //задаем координаты смещения и позицию мяча
repeat //цикл с постусловием
clearwindow; //очистить окно
setbrushcolor(clgreen); //цвет кисти зеленый
rectangle(5,5,595,495); //прямоугольник - поле
Pm; //процедура определения координат мяча
setbrushcolor(clwhite); //цвет кисти - белый
circle(px,py,10); //мяч
OnKeyDown:=KeyDown; //процедура нажатия клавиши
pc:=py; //ракетка противника следует за мячом неотступно...
setbrushcolor(clblack); //цвет кисти - черный
rectangle(592,pr-20,597,pr+20); //ракетки
rectangle(3,pc-20,8,pc+20);
sleep(25); //задержка
redraw; //перерисовка
until ku=5; //цикл повторяется до 5 пропущенных мячей
Объяснение:
uses GraphABC,Events,Utils; //необходимые библиотеки подключены
var pr,px,py,kx,ky,ku,pc,s: integer; //переменные: положение ракетки, координаты мяча, коэффициенты отражения, положение ракетки компьютера
procedure KeyDown(Key: integer); //процедура обработки нажтия клавиши
begin
case Key of
VK_Up: if pr>10 then pr:=pr-10; //если вверх, и если ракетка не достигла края экрана, сместить координаты ракетки на 10 вверх
VK_Down: if pr<490 then pr:=pr+10; //то же, только вниз
end;
end;
procedure Pm; //процедура определения координат мячика
begin
if px<10 then
begin
kx:=kx*(-1); //если достиг стенки левой - поменять коэффициент смещения по х на противоположный
s:=random(2);
if s=1 then ky:=ky*(-1);
end;
if (py<10) or (py>490) then ky:=ky*(-1); //если достиг стенки верхней или нижней - поменять коэффициент смещения на противоположный
if px>590 then //если достиг правой (игрока) стенки, проверяем
if (py>pr-20) and (py<pr+20) then kx:=kx*(-1) else //если координаты мяча совпадают с координатами ракетки, меняем коэффициент смешения по х на противоположный
begin //иначе
showmessage('Вы упустили мячик!'); //выводим сообщение
inc(ku); //увеличиваем счетчик упущенных мячей
px:=15; //возвращаем мяч в исходную позицию у противоположной стенки
py:=250;
end;
px:=px+kx; //смещаем координаты на коэффициенты смещения
py:=py+ky;
end;
begin
lockdrawing; //запрет прорисовки в окне (мигание убираем)
setwindowsize(600,500); //размер окна
kx:=5; ky:=1; px:=15; py:=250; pr:=250; //задаем координаты смещения и позицию мяча
repeat //цикл с постусловием
clearwindow; //очистить окно
setbrushcolor(clgreen); //цвет кисти зеленый
rectangle(5,5,595,495); //прямоугольник - поле
Pm; //процедура определения координат мяча
setbrushcolor(clwhite); //цвет кисти - белый
circle(px,py,10); //мяч
OnKeyDown:=KeyDown; //процедура нажатия клавиши
pc:=py; //ракетка противника следует за мячом неотступно...
setbrushcolor(clblack); //цвет кисти - черный
rectangle(592,pr-20,597,pr+20); //ракетки
rectangle(3,pc-20,8,pc+20);
sleep(25); //задержка
redraw; //перерисовка
until ku=5; //цикл повторяется до 5 пропущенных мячей
end.
#include <iostream>
#include <vector>
int main()
{
int m,firstcnt,inp,X;
std::vector<int> vc;
// Русский язык в консоли
setlocale(LC_ALL, "Russian");
std::cout << "Размер вектора: ";
std::cin >> m;
firstcnt = m;
for (int i = 0; i < m; i++)
{
std::cout << i << " элемент вектора: ";
std::cin >> inp;
vc.push_back(inp);
}
std::cout << "Элемент X: ";
std::cin >> X;
for (int i = 0; i < m; i++)
{
if (vc[i] % X == 0)
{
auto iter1 = vc.cbegin();
std::cout << "Вставьте новый элемент вектора после " << i- (m-firstcnt) << " элемента: ";
std::cin >> inp;
vc.insert(iter1 + i + 1, inp);
m++;
i++;
}
}
std::cout << "Результат: ";
for (int i = 0; i < m; i++)
std::cout << vc[i] << " ";
return 0;
}