Напишите программу, которая запрашивает у пользователя координаты точки и затем рисует квадрат размером 10х10, где введенная точка является координатой левого верхнего угла квадрата. Рисование квадрата оформите в виде процедуры. Для рисования ты можешь использовать следующие команды: Up() – поднять перо; Down() – опустить перо; Goto(x, y) – переместиться в точку с координатами (x, y)

👇

Увидеть ответ

Открыть все ответы

Ответ:

LYUBASHA83

24.06.2020

7,6 Кбайт/сек

Объяснение:

V = K * i, где

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей )

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i, где

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

^ - знак степени

V = q * t , где

V - объем переданной информации

q - скорость соединения (пропускная канала, в битах в секунду или подобных единицах)

t - время передачи

Дано:

N = 8192

K = 800 х 600 = 480 000

t = 100 секунд

Найти:

N = 2^i

2^i = 8192

i = 13 бит (найдено подбором степени)

V = K * i

V = 480 000 * 13 = 6 240 000 бит

V = q * t

q = V / t

q = 6 240 000 / 100 = 62 400 бит/сек

q = 6 240 000 / 100 = 62 400 бит/сек = 62 400 / 8 = 7 800 байт/сек = 7,6171875 Кбайт/сек ≈ 7,6 Кбайт/сек

4,5(60 оценок)

Ответ:

maririz405

24.06.2020

//Когда Глеб расстроился
//Pascal ABC.NET 3.1 сборка 1256

Var
a,b,c,d,e:real;

procedure cube(a,b,c,d,e:real);
Var
p,q,delta,phi,i:real;
y:array[1..3] of real;
begin
p:=(3*a*c-sqr(b))/(3*sqr(a));
q:=(2*power(b,3)-9*a*b*c+27*sqr(a)*d)/(27*power(a,3));
delta:=power(q/2,2)+power(p/3,3);
if delta<0 then
begin
if q<0 then
   phi:=arctan(sqrt(-delta)/(-q/2));
if q>0 then
   phi:=arctan(sqrt(-delta)/(-q/2))+pi;
if q=0 then
   phi:=pi/2;
y[1]:=2*sqrt(-p/3)*cos(phi/3);
y[2]:=2*sqrt(-p/3)*cos(phi/3+(2*pi)/3);
y[3]:=2*sqrt(-p/3)*cos(phi/3+(4*pi)/3);
var x:=seq(y[1]-b/(3*a),y[2]-b/(3*a),y[3]-b/(3*a));
write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count);
end;
if delta>0 then
begin
var arsom:=range(0,1000).Where(x->(a*power(x,3)+b*x*x+c*x+d)/(x-e)=0);
write(arsom.Count);
{Мы не виноваты, Паскаль не может в комплексные числа}
end;
if delta=0 then
begin
y[1]:=2*power(-q/2,1/3);
y[2]:=-power(-q/2,1/3);
var x:=seq(y[1]-b/(3*a),y[2]-b/(3*a));
write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count);
end;
end;

procedure square(a,b,c,e:real);
Var
d:real;
begin
d:=sqr(b)-4*a*c;
if d<0 then writeln('0');
if d>0 then
begin
var x:=arr((-b+sqrt(d))/(2*a),(-b-sqrt(d))/(2*a));
write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count);
end;
if d=0 then
begin
var x:=arr(-b/(2*a));
write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count);
end;
end;

procedure common(a,b,e:real);
begin
var x:=arr(-b/a);
write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count);
end;

procedure awfulvar(e:real);
begin
if (e>=0) and (e<=1000) then writeln('1000') else writeln('1001');
end;

procedure otherawfulvar(e:real);
begin
if e<>0 then writeln('1') else writeln('0');
end;

begin
read(a,b,c,d,e);
if (a<>0) and (b<>0) then cube(a,b,c,d,e);
if (a=0) and (b<>0) then square(b,c,d,e);
if (a=0) and (b=0) and (c<>0) and (d<>0) then common(c,d,e);
if (a=0) and (b=0) and (c=0) and (d=0) then awfulvar(e);
if (a=0) and (b=0) and (c<>0) and (d=0) then otherawfulvar(e);
if (a=0) and (b=0) and (c=0) and (d<>0) then writeln('0');
end.

Пример ввода:
1
1
1
1
1
Пример вывода:
0

4,7(4 оценок)

Это интересно:

Здоровье

22.01.2023

Как сделать мешочек с кукурузой: всё, что нужно знать...

Компьютеры-и-электроника

25.10.2022

Как словить покемона Кресселию...

02.01.2020

Как стать серьезным: 10 советов от успешных людей...

Семейная-жизнь

21.02.2020