Uses GraphABC;
const MaxShar=50;
type shar = record
x,y:integer;
dx,dy:integer;
end;
var i:byte;
x,y,r:integer;
shars: array[1..MaxShar] of shar;
begin
randomize;
setwindowsize(500,500);
centerwindow;
r:=10;
setpenwidth(3);
for i:=1 to MaxShar do
with shars[i] do
begin
x:=7+r+random(500-2*r-14);
y:=7+r+random(500-2*r-14);
dx:=random(8) + 1;
dy:=random(8) + 1;
end;
lockdrawing;
repeat
clearwindow;
for i:=1 to MaxShar do
with shars[i] do
begin
x:=x+dx;
if (x+r+dx>=493) or (x-r+dx<=7) then dx:=-dx;
y:=y+dy;
if (y+r+dy>=493) or (y-r+dy<=7) then dy:=-dy;
setpencolor(clBlue);
setbrushcolor(clBlue);
circle(x,y,r);
end;
setpencolor(clBlack);
setpenwidth(3);
moveto(5,5);
lineto(495,5);
lineto(495,495);
lineto(5,495);
lineto(5,5);
sleep(1);
redraw;
until false;
end.
Примечание:
В конце программы есть команда sleep(), чем больше в ней значение, тем меньше скорость шариков. Также её можно просто убрать, тогда скорость будет максимальной.
#include <iostream>
#include <math.h>
#include <locale.h>
using namespace std;
void main()
{
setlocale(LC_ALL, "Russian");
int a=0, b=0;
bool pr;
while (a < 100)
{
pr = false;
cout << "Введите координаты - x, y: ";
cin >> a >> b;
system("cls");
for (int x = 1; x <= 3; x++)
{
for (int y = 6; y <= 8; y++)
{
if (a == x && b == y)
{
pr = true;
}
}
}
for (int x = 3; x <= 5; x++)
{
for (int y = 2; y <= 6; y++)
{
if (a == x && b == y)
{
pr = true;
}
}
}
for (int x = 5; x <= 7; x++)
{
for (int y = 6; y <= 8; y++)
{
if (a == x && b == y)
{
pr = true;
}
}
}
cout << pr << endl;
}
}
begin
var q:=ArrRandom(21,-99,99); q.Println;
Writeln('Ср.арифм. отрицательных элементов равно ',
q.Where(x->x<0).Average:0:5)
end.
Тестовое решение
21 38 24 -55 -60 70 61 55 -17 -23 -28 6 30 -13 9 55 95 -96 91 62 53
Ср.арифм. отрицательных элементов равно -41.71429