Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 01.11.2015
Сообщений: 9
1

Составить программу на языке Pascal, которая строит график заданной функции

02.11.2015, 18:28. Показов 975. Ответов 2
Метки нет (Все метки)

Составить программу на языке Pascal, которая строит график заданной функции (в координатах (F (x), x) с координатной сеткой и подписанными и проградуированными осями координат)
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2015, 18:28
Ответы с готовыми решениями:

Составить программу, которая строит график функции, введенной с клавиатуры
Ребят, нужна помощь с курсовой работой! Нужно составить программу на делфи(с формой, как положено)...

Напишите программу, которая строит график функции y=tg(x)
Ребята помогите пожалуйста справится с задачей. Напишите программу, которая строит график функции...

Написать программу, которая строит график параметрической функции
Всем привет. Не могу понять задачу. Используя операторы цикла написать программу, которая...

Составить программу, которая по заданной строке S1 строит новую строку, полученную из S1
Ввести строку символов S1. Выполнить следующие действия: Составить программу, которая по заданной...

2
Эксперт Pascal/Delphi
6645 / 4470 / 4749
Регистрация: 05.06.2014
Сообщений: 21,971
02.11.2015, 19:39 2
Andreyko1, жаль, что мы так и не услышали начальника транспортного цеха увидели саму функцию.
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
02.11.2015, 20:11 3
Вот 4 графика F(x)=a*tg(cos(x));
Выбирай любой.
Код
uses graph;
const
x1=-7;{начало и конец графика в реальных значениях}
x2=7;
var
mx,my,a,x,dx,y1,y2,y3,y4:real;
x0,y0,grD,px,py,grM,i,k:integer;
s,s1:string;
begin
grD:=detect;
initgraph(grD,grM,'');
X0:=getmaxX div 2;{начало координат в центре экрана}
Y0:=getmaxY div 2;
{коэффициенты по осям для перевода реальных координат в экранные}
mx:=600/(x2-x1);{длина в пикселах по оси Х/реальная длина}
my:=420/(2*1.5*sin(1)/cos(1));{длина оси по У/(2*макс}
SetBkColor(7); {цвет фона}
setlinestyle(0,0,1);{сплошная линия}
SetColor(1);{цвет линий осей}
line(0,y0,getmaxX,y0); {ось Х}
line(x0,getmaxy,x0,0); {ось У}
setlinestyle(1,0,0);  {пунктирная линия}
Setcolor(9);  {цвет сетки}
for i:=1 to 7 do   {максимальное количество засечек в одну сторону}
   begin
    line(10,y0-round(i*my),630,y0-round(i*my));{засечки на оси У}
    line(10,y0+round(i*my),630,y0+round(i*my));
    line(x0+round(i*mx),0,x0+round(i*mx),getmaxY); {засечки на оси Х}
    line(x0-round(i*mx),0,x0-round(i*mx),getmaxY);
    str(i,s);
    {подпись оси У}
    outtextXY(x0-10,y0-round(i*my),s);{соответственно засечкам}
    outtextXY(x0-15,y0+round(i*my),'-'+s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+round(i*mx),y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
dx:=0.001;
{график}
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); {изменение по оси Х}
     y1:=-sin(cos(x))/cos(cos(x)); {график в реальных координатах}
     py:=y0-round(y1*my);{в экранных}
     putpixel(px,py,4);
     y2:=0.5*sin(cos(x))/cos(cos(x)); {график в реальных координатах}
     py:=y0-round(y2*my);{в экранных}
     putpixel(px,py,2);
     y3:=sin(cos(x))/cos(cos(x)); {график в реальных координатах}
     py:=y0-round(y3*my);{в экранных}
     putpixel(px,py,9);
     y4:=1.5*sin(cos(x))/cos(cos(x)); {график в реальных координатах}
     py:=y0-round(y4*my);{в экранных}
     putpixel(px,py,14);
     x:=x+dx; {наращиваем х}
   end;
setcolor(10);
setlinestyle(0,0,1);
outtextXY(75,30,'Grafik functii Y=A*tg(cosx)');
setcolor(4);
outtextXY(135,40,'A=-1');
setcolor(2);
outtextXY(135,50,'A=0.5');
setcolor(9);
outtextXY(135,60,'A=1');
setcolor(14);
outtextXY(135,70,'A=1.5');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2015, 20:11

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Написать программу, которая строит график функции: x=C1*(t-1/2*sin2t)+C2, y=C1*sin^2t
Здравствуйте! помогите пожалуйста написать программу которая строит график функции: ...

Скласты программу, которая строит на екране график функции двигающей стрелкой с рисунка.
Кривая графика появляется с кончика стрелки; скорость движения 1...2,5 см/сек; стрелка -...

Составить программу ,которая строит таблицу значений функции
Колличество строк в таблице n, начальное значение аргумента x0 и шаг изменения аргумента step...

Составить программу, которая строит таблицу значений функции x^3+5*x^2+x-10*sin(5*x)-1
Составьте программу, которая строит таблицу значений функции {x}^{3}+5{x}^{2}+x-10sin(5x)-1....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.