Информатика: Написать эссе на тему компьютер мой друг

Написать эссе на тему компьютер мой друг

👇

Ответ:

fotafoti

03.01.2022

Сочинение на тему: "Компьютер мой друг?"

Безусловно, компьютер можно рассматривать с разных сторон. Положительное влияния компьютер оказывает на мозговую деятельность, т.к. пополняет багаж знаний. Так же компьютер может оказывать довольно положительное влияние на развитие некоторых функций мозга, таких как: быстрота реакции, сочетание цветов и многих других. Компьютер человеку развиваться.

А теперь поговорим о минусах. В первую очередь, страдает здоровье. Глаза напрягаться порой могу настолько сильно, что зрение попросту "убивается". Поэтому, стоит выслеживать перерывы в работе с компьютером, чтобы глаза отдыхали. Так же страдает осанка: наверняка, многие за компьютером сидят, не соблюдая специальные нормы. Страдает осанка, может начаться искривление позвоночника. Ну и конечно же, куда же без убитого свободного времени?

Мы часами тратим энергию и силы на компьютер, забывая про свои обязанности. Это очень плохо.

Поэтому, умозаключение могу сделать такое: все хорошо, но только в меру. Совсем без компьютера мало сейчас кто сможет прожить, не так ли? Но и перебарщивать не стоит.

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

Ответ:

ooo29

03.01.2022

Еще несколько десятков лет назад многие даже не имели представления о компьютерах, не говоря уже о том, чтобы пользоваться ими, но время как мы знаем, меняется стремительно, и сегодня мы даже не можем представить свою жизнь, без привычных гаджетов и телефонов. Компьютеры ворвались в нашу жизнь очень стремительно, и заняли в ней довольно значимое место, действительно всего за 10, 15 лет, вычислительная техника стала нашим незаменимым , особенно если говорить о высоких технологиях, медицине, науке. Но все имеет свою обратную сторону, так же и в этом случае, многие убеждены, что компьютеры являются не просто вредными, а смертельно губительны для человечества. И в этом сложном вопросе нам придется разобраться.

Вопрос не простой, и для более эффективного решения будет рационально, разложить отдельно положительные и отрицательные стороны, относительно использования этой чудо технике человеком

Источник: Сочинение Компьютер друг или враг?

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

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

Ответ:

MATVEI235

03.01.2022

Var
K:array[1..2,1..13] of integer;
i,j,ind,x,y:integer;
MAX:real;
function RAST(x1,x2,y1,y2:integer):real;
  begin
   RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
MAX:=-2*sqr(-10-1);
randomize;
writeln('Исходные точки:');
for j:=1 to 13 do
begin
  writeln('Точка № ',j,', с координатами(X,Y)');
  for i:=1 to 2 do
  begin
  K[i,j]:=random(110) - 10;
  write(K[i,j],' ');
  end;
writeln;
end;
for i:=1 to 13 do
if RAST(0,K[1,i],0,K[2,i])>MAX
  then
begin
MAX:=RAST(0,K[1,i],0,K[2,i]);
x:=K[1,i];
y:=K[2,i];
ind:=i;
end;
writeln('Номер точки: ',ind,' Координаты: ',x,' ; ',y);
end.


7.4. описать массив из тридцати записей—точек на плоско- сти. заполнить его случайно выбранными коор

7.4. описать массив из тридцати записей—точек на плоско- сти. заполнить его случайно выбранными коор

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

Ответ:

gg322

03.01.2022

Основа взята на сайте progmatem.ru. К сожалению, автор статьи там не был указан.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
w=1000;
h=600;

function f(x:real):=0.5*x*cos(2*x);

begin
SetWindowSize(w,h);
// поле для графика в окне
var xLeft:=50;
var yLeft:=50;
var xRight:=w-xLeft;
var yRight:=h-yLeft;
// интервалы по осям
var ax:=-12.0;
var bx:=12.0;
var hx:=1.0;
var ay:=-6.5; // минимум f(x) с запасом
var by:=6.5;
var hy:=0.5;
// масштабы по осям
var mx:=(xRight-xLeft)/(bx-ax);
var my:=(yRight-yLeft)/(by-ay);
// точка начала координат графика
var x0:=xLeft+Trunc(abs(ax)*mx);
var y0:=yRight-Trunc(abs(ay)*my);
// рисование координатных осей
Line(xLeft,y0,xRight+10,y0);
Line(x0,yLeft-10,x0,yRight);
SetFontSize(12); SetFontColor(clBlue);
TextOut(xRight+15,y0-10,'X');
TextOut(x0-4,yLeft-30,'Y');
SetFontSize(8); SetFontColor(clGreen);
// рисование засечек
var s:string;
for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
// собственно график
var xi:=ax;
while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

*******************************************
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
w=1000;
h=600;

function f(x:real):=8*sin(x)*sin(2*x);

begin
SetWindowSize(w,h);
// поле для графика в окне
var xLeft:=50;
var yLeft:=50;
var xRight:=w-xLeft;
var yRight:=h-yLeft;
// интервалы по осям
var ax:=-15.0;
var bx:=15.0;
var hx:=1.0;
var ay:=-6.5; // минимум f(x) с запасом
var by:=6.5;
var hy:=0.5;
// масштабы по осям
var mx:=(xRight-xLeft)/(bx-ax);
var my:=(yRight-yLeft)/(by-ay);
// точка начала координат графика
var x0:=xLeft+Trunc(abs(ax)*mx);
var y0:=yRight-Trunc(abs(ay)*my);
// рисование координатных осей
Line(xLeft,y0,xRight+10,y0);
Line(x0,yLeft-10,x0,yRight);
SetFontSize(12); SetFontColor(clBlue);
TextOut(xRight+15,y0-10,'X');
TextOut(x0-4,yLeft-30,'Y');
SetFontSize(8); SetFontColor(clGreen);
// рисование засечек
var s:string;
for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
// собственно график
var xi:=ax;
while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

Составьте программу, которая строит график зависимости: а) y(x)=0.5x *cos 2x на промежутке [-12; 12]