Составьте программу которая строит график зависимости

Ответы на вопрос

значит так, используем единственную в информатике формулу

n-это количество символов в алфавите, значит n=64

64 это 2 в 6 степени, значит i=6 – это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит

6*3072 = 18432 бита = 2304 байта

var a,b,c : string;

write(‘введите название 1 фигуры-‘);

write(‘введите название 2 фигуры-‘);

write(‘введите название 3 фигуры-‘);

writeln (‘ фигуры: ‘,a,b,c);

type fun = function (x: real): real;

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

// l (logical) – логические координаты// s (screen) – координатыprocedure drawgraph(x1,x2,y1,y2: real; f: fun); var xl,xl0,wl,yl,yl0,hl: real; xs0,ws,ys0,hs: integer; function ltosx(xl: real): integer; begin result: =round(ws/wl*(xl-xl0)+xs0); end; function ltosy(yl: real): integer; begin result: =round(hs/hl*(yl-yl0)+ys0); end; function stolx(xs: integer): real; begin result: =wl/ws*(xs-xs0)+xl0; end; var xi: integer; begin // drawgraph xs0: =0; ys0: =windowheight; ws: =windoww >

begin // program setwindowcaption(‘график функции’); drawgraph(-12,12,-23,23,f); end.

Устанавливая рекомендуемое программное обеспечение вы соглашаетесь
с лицензионным соглашением Яндекс.Браузера и настольного ПО Яндекса .

Выбранный для просмотра документ Zadaniya na urok (po variantam).docx

Набрать программу. Скомпилировать. Сохранить.

var x0, y0, x1, y1, k: integer;

x0:=320; y0:=200; k:=20;

Набрать программу. Скомпилировать. Сохранить.

var x0, y0, x1, y1, k: integer;

x0:=320; y0:=200; k:=20;

Увеличьте шаг в 10 раз. Скомпилируйте. Сохраните.

Увеличьте шаг на 100 раз. Скомпилируйте. Сохраните.

Измените промежуток на котором строится график функции на [-5, 10]. Скомпилируйте. Сохраните.

Измените промежуток на котором строится график функции на [-10, 20]. Скомпилируйте. Сохраните.

Измените функцию на: 1) tg ( x ) ; 2) sin ( x )+2* x .

Измените функцию на: 1) ctg ( x ) ; 2) tg ( x )+2.

Выведите на экран график функции только в I и IV четвертях (воспользоваться функциями из задания на 8 баллов). Скомпилируйте. Сохраните.

Выведите на экран график функции только в II и III четвертях (воспользоваться функциями из задания на 8 баллов). Скомпилируйте. Сохраните.

Читайте также:  Phpmyadmin как обновить версию

Измените цвет фона, цвет графика функции, цвет координатных осей. Скомпилируйте. Сохраните.

Измените цвет фона, цвет графика функции, цвет координатных осей. Скомпилируйте. Сохраните.

Выбранный для просмотра документ конспект.doc

Лицей №1 имени А.С. Пушкина

План-конспект урока по информатике (11 класс)

Тема: “Построение графиков”

способствовать формированию умений построения графиков в среде Pascal ABC , укреплять меж предметные связи с математикой, акцентировать внимание на прикладной роли программирования;

способствовать воспитывать у учащихся самостоятельность в работе;

способствовать развитию мышление, память, внимание.

Объяснение нового материала

Подведение итогов урока

1. Организационный момент

Организую внимание учащихся, предлагаю сесть.

– Здравствуйте. Сегодня у нас на уроке работа с графиками в Pascal ABC . Целью нашего занятия – научится строить графики в Pascal ABC .

2. Объяснение нового материала

– Очень часто в математике, чтобы исследовать функцию очень полезно строить графики, так вот и в Pascal ABC возможно строить графики самых различных функций.

– Давайте вспомним, в каких программах Вы уже строили графики? (Microsoft Excel)

Верно. А теперь давайте разберемся пример, как же построить график функции в Pascal ABC .

Задание: Составить программу, которая строит график зависимости y ( x )=0,4 x +2 sin 3 x на промежутке [-15;15].

var x0, y0, x1, y1, k: integer;

SetWindowSize(640,400); // размер окна

x0:=320; // координаты начала отсчета

line(20,y0, 620,y0); //ось абсцисс

line(x0,20, x0,380); //ось ординат

setPenColor(clRed); //цвет пера

y:=0.4*x+2*sin(3*x); // задание функции

x1:=trunc(x0+x*k); // экранные координаты

3. Задание на дом

§7 (п. 7.3) №1а страница 84.

4. Практическая работа

На карточках по вариантам.

Набрать программу. Скомпилировать. Сохранить.

var x0, y0, x1, y1, k: integer;

x0:=320; y0:=200; k:=20;

line(20,y0, 620,y0); line(x0,20, x0,380);

Увеличьте шаг в 10 раз. Скомпилируйте. Сохраните.

Измените промежуток на котором строится график функции на [-5, 10]. Скомпилируйте. Сохраните.

Измените функцию на: 1) tg ( x ) ; 2) sin ( x )+2* x .

Читайте также:  Acronis для создания образа системы

Выведите на экран график функции только в I и IV четвертях (воспользоваться функциями из задания на 8 баллов). Скомпилируйте. Сохраните.

Измените цвет фона, цвет графика функции, цвет координатных осей. Скомпилируйте. Сохраните.

Набрать программу. Скомпилировать. Сохранить.

var x0, y0, x1, y1, k: integer;

x0:=320; y0:=200; k:=20;

line(20,y0, 620,y0); line(x0,20, x0,380);

Увеличьте шаг на 100 раз. Скомпилируйте. Сохраните.

Измените промежуток на котором строится график функции на [-10, 20]. Скомпилируйте. Сохраните.

Измените функцию на: 1) ctg ( x ) ; 2) tg ( x )+2.

Выведите на экран график функции только в II и III четвертях (воспользоваться функциями из задания на 8 баллов). Скомпилируйте. Сохраните.

Измените цвет фона, цвет графика функции, цвет координатных осей. Скомпилируйте. Сохраните.

5. Подведение итогов урока

– С какой новой возможностью мы познакомили?

– Какие сложности возникли при выполнении заданий?

Выбранный для просмотра документ Пример.pptx

Описание презентации по отдельным слайдам:

program Grafik; uses GraphABC; var x0, y0, x1, y1, k: integer; x, y: real; begin Составить программу, которая строит график зависимости y(x)=0,4x+2sin3x на промежутке [-15;15]. SetWindowSize(640,400); // размер окна x0:=320; // координаты начала отсчета y0:=200; line(20,y0, 620,y0); //ось абсцисс line(x0,20, x0,380); //ось ординат k:=20; // шаг setPenColor(clRed); //цвет пера x:=-15; While x 300/600 ч.

Устанавливая рекомендуемое программное обеспечение вы соглашаетесь
с лицензионным соглашением Яндекс.Браузера и настольного ПО Яндекса .

  • Головач Александр ГригорьевичНаписать 11412 27.11.2015

Номер материала: ДВ-200565

Устанавливая рекомендуемое программное обеспечение вы соглашаетесь
с лицензионным соглашением Яндекс.Браузера и настольного ПО Яндекса .

    27.11.2015 1038
    27.11.2015 3550
    27.11.2015 2974
    27.11.2015 596
    27.11.2015 4724
    27.11.2015 1108
    27.11.2015 1974

Не нашли то что искали?

Вам будут интересны эти курсы:

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение редакции может не совпадать с точкой зрения авторов.

Читайте также:  Взорвалась батарея в телефоне

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

Что ты хочешь узнать?

Ответ

Проверено экспертом

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

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

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 =yLeft) and (y 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 =yLeft) and (y

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Adblock detector