вас с информатикой,умоляю.Желательно с объяснениями.НАДО УЖЕ ЧЕРЕЗ ДВА ЧАСА СДАВАТЬ,НУ

Основа взята на сайте 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.

Презентация является отличным представления информации. Цель самой презентации - донести до аудитории, для которой она разработана, полноценную и легко усваиваемую информацию о представляемом объекте. Она создается на основе слайдов, которые непрерывно идут в определенной заданной последовательности. Человек, использующий такой вид представления информации, может сам контролировать ход презентации. Этот вид подачи информации называется интерактивным. Также есть возможность дать презентации идти своим ходом, когда она выполняется непрерывно, независимо от исполнителя.

Презентации могут нести различный смысл показа. Это могут быть обучающие презентации, с которых проще понять и запомнить аспекты изучаемой темы. С этого представления информации можно сопровождать научный доклад. Ну и конечно такие презентации широко рас в различных рекламных компаниях, которые используют их для представления рекламируемого товара и быстрого заключения сделки. И это неудивительно, ведь легче один раз показать, чем несколько раз объяснять, пока слушающий наконец-таки поймет, о чем идет речь.

Чем же так удобен данный представления информации? И почему он так эффективен? Дело в том, что готовить доклад в устной форме достаточно сложно. Во время рассказа можно забыть текст, волноваться и таким образом загубить свою работу. Оформив же свой доклад в форме презентации, рассказчик может объяснять тему, опираясь на слайды, показываемые во время презентации. А эффективна презентация благодаря своему легкому усвоению.

Слушатель, одновременно смотря слайды и слушая доклад, может запомнить и понять гораздо больше, чем при обычном повествовании. Происходит это, потому что человек около 80% информации усваивает за счет зрительного обучения и только 15% - от информационного потока. Из этого следует, что презентация понять смысл доводимой до слушающей аудитории информации на максимальном уровне.

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