сервис вопросов и ответовпомогите пожалуйста построить графики функции в паскале. (нужна сама программа)
10-11 класс|
|
y= 1/(x2+1);
y=cos(x2).
Delirium1
02 нояб. 2014 г., 0:53:25 (9 лет назад)
Kki03
02 нояб. 2014 г., 2:48:39 (9 лет назад)
Program Grafik;
uses GraphABC;
Var i,x0,y0,x1,y1,k: integer;
x,y: real;
Begin
setWindowSize(640,400);
x0:=320; y0:=200; k:=30;
line(x0,20,x0,380); line(20,y0,620,y0);
line(x0,20,x0-10,30); line(x0,20,x0+10,30);
line(630,y0,620,y0-10); line(630,y0,620,y0+10);
for i:=-10 to 10 do
begin
line(x0+(i*k),y0-10,x0+(i*k),y0+10);
textout(x0+(i*k),y0+10,inttostr(i));
end;
for i:=-5 to 5 do
begin
line(x0-10,y0+(i*k),x0+10,y0+(i*k));
if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
end;
setPenColor(clRed);
x:=-10;
While x<=10 do
begin
y:=1/(sqr(x)+1);;
x1:=trunc(x0+x*k); y1:=trunc(y0-y*k);
circle(x1,y1,2);
x:=x+0.01;
end;
End.
2
Program Grafik;
uses GraphABC;
Var i,x0,y0,x1,y1,k: integer;
x,y: real;
Begin
setWindowSize(640,400);
x0:=320; y0:=200; k:=30;
line(x0,20,x0,380); line(20,y0,620,y0);
line(x0,20,x0-10,30); line(x0,20,x0+10,30);
line(630,y0,620,y0-10); line(630,y0,620,y0+10);
for i:=-10 to 10 do
begin
line(x0+(i*k),y0-10,x0+(i*k),y0+10);
textout(x0+(i*k),y0+10,inttostr(i));
end;
for i:=-5 to 5 do
begin
line(x0-10,y0+(i*k),x0+10,y0+(i*k));
if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
end;
setPenColor(clRed);
x:=-10;
While x<=10 do
begin
y:=cos(sqr(X));;
x1:=trunc(x0+x*k); y1:=trunc(y0-y*k);
circle(x1,y1,2);
x:=x+0.01;
end;
End.
Ответить
Другие вопросы из категории
Помогите 1 курс.Borland Pascal/
Составить программу, в которой с помощью генератора случайных чисел получены три числа. Распечатать их в порядке получения, затем,если сумма первого и второго числа меньше третьего числа,то третье число заменить на полусумму первог и второго чисел и вновь распечатать значения всех чисел.
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Проверьте алгоритм трассировкой. Напишите
программу на Паскале пожалуйста помогите срочно
передача текстовой информации через это соединение заняла 15с.определите сколько символов содержал переданный текст ,если известно,что он был представлен
в 16-битовой кодировке Unicode.Пропускная способность канала связи равна кбайт/с.
Читайте также
Ребят, помогите, пожалуйста! В excel нужно построить на промежутке [-2;2] с шагом 0,4 таблицу значений функции: y= x в квадрате+0,2х для х меньше равно 0,
sin(0,1x) для х больше равно 0. Построить график полученной функции. Спасибо заранее
Помогите, пожалуйста, разобраться и составить верный алгоритм. В задаче требовалось написать программу на Паскале и сравнить её с приведенной в учебнике.
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!
Построить график функции в MS Excel
Решение напишите здесь а сам график скиньте пожалуйста документом на мыло:
[email protected]
Умоляю...вопрос жизни и смерти
Помогите пожалуйста...
Нужно построить график ф-ции 3 корня с х^2(х^2+2)^2
Через ексель,буду блогодарен!!!!
Вы находитесь на странице вопроса "помогите пожалуйста построить графики функции в паскале. (нужна сама программа)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.