Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.10.2015, 09:03   #1
Zevul
 
Регистрация: 21.10.2015
Сообщений: 6
По умолчанию построение графика в паскале

Помогите пожалуйста построить график,а то что-то понять не могу как это отобразить на графике.
Код:
uses graphABC;
var a,b,T,xn,xk,x,mx,my,dx:real;
    x0,y0,i,V1,V2,V3,V4,V5,V6,V7,V8:integer;
    s:string;
    V,P: array[1..8]of real;

begin
x0:=windowwidth div 2;
y0:=windowheight div 2;
xn:=-10;xk:=10;
mx:=(x0-30)/xk;
my:=y0/10;{ïî Ó}
line(0,y0,windowwidth,y0);
line(x0,0,X0,windowheight);
for i:=1 to 10 do
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); 
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    line(x0+3,y0-round(i*my),x0-3,y0-round(i*my)); 
    line(x0+3,y0+round(i*my),x0-3,y0+round(i*my));
    str(i,s);
    
    textout(x0+round(i*mx),y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
    
    textout(x0-25,y0-round(i*my),s);
    textout(x0-25,y0+round(i*my),'-'+s);
  end;

textout(x0+5,y0+10,'0');

textout(windowwidth-10,y0-10,'X');
textout(x0+5,10, 'Y');

x:=xn;
dx:=0.001;
begin
writeln('Введите объем газа V');
 for i:=1 to 8 do
begin
readln(V[i]);
 end;
  writeln('Введите  a');
  readln(a);
   writeln('Введите  b');
   readln(b);
    writeln('Введите температуру газа T');
    readln(T);
for i:=1 to 8 do
begin
P[i]:=((0.0635*T)/(V[i]-b))-((a/Power(V[i],2)));
writeln('Уравнение состояния расширения 1 кмоля углекислого газа = ',P[i]);
end;
end.
Zevul вне форума Ответить с цитированием
Старый 21.10.2015, 11:33   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

во-первых, этот код вообще не компилируется - у вас в коде лишний бессмысленный "begin" посреди кода, к тому же не закрытый "end"'ом.
и этого Вы не увидели, т.к. код не отформатирован нормально.
сравните с таким кодом, например:
Код:
uses
  graphABC;

var
  a, b, T, xn, xk, x, mx, my, dx: real;
  x0, y0, i, V1, V2, V3, V4, V5, V6, V7, V8: integer;
  s: string;
  V, P: array[1..8]of real;

begin
  x0 := windowwidth div 2;
  y0 := windowheight div 2;
  xn := -10;xk := 10;
  mx := (x0 - 30) / xk;
  my := y0 / 10;{ïî Ó}
  line(0, y0, windowwidth, y0);
  line(x0, 0, X0, windowheight);
  for i := 1 to 10 do
  begin
    line(x0 + round(i * mx), y0 - 3, x0 + round(i * mx), Y0 + 3); 
    line(x0 - round(i * mx), y0 - 3, x0 - round(i * mx), Y0 + 3);
    line(x0 + 3, y0 - round(i * my), x0 - 3, y0 - round(i * my)); 
    line(x0 + 3, y0 + round(i * my), x0 - 3, y0 + round(i * my));
    str(i, s);
    
    textout(x0 + round(i * mx), y0 + 10, s);
    textout(x0 - round(i * mx), y0 + 10, '-' + s);
    
    textout(x0 - 25, y0 - round(i * my), s);
    textout(x0 - 25, y0 + round(i * my), '-' + s);
  end;
  
  textout(x0 + 5, y0 + 10, '0');
  
  textout(windowwidth - 10, y0 - 10, 'X');
  textout(x0 + 5, 10, 'Y');
  
  x := xn;
  dx := 0.001;
  writeln('Введите объем газа V');
  for i := 1 to 8 do
    readln(V[i]);
  writeln('Введите  a');
  readln(a);
  writeln('Введите  b');
  readln(b);
  writeln('Введите температуру газа T');
  readln(T);
  for i := 1 to 8 do
  begin
    P[i] := ((0.0635 * T) / (V[i] - b)) - ((a / Power(V[i], 2)));
    writeln('Уравнение состояния расширения 1 кмоля углекислого газа = ', P[i]);
  end;
end.
во-вторых, оси у Вас рисуются. А что дальше? Ведь, чтобы построить график, нужно знать, график чего именно Вы хотите построить , что от чего зависит, что откладывать по оси X, что - по оси Y.
я, например, этого в вашем коде не вижу.
думайте. Надумаете, приходите, продолжим...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 23.10.2015, 06:41   #3
Zevul
 
Регистрация: 21.10.2015
Сообщений: 6
По умолчанию

вот условие,да согласен с вашими поправками.. возможно я не верно начал исполнение задачи.
Zevul вне форума Ответить с цитированием
Старый 23.11.2015, 10:33   #4
Zevul
 
Регистрация: 21.10.2015
Сообщений: 6
По умолчанию Помогите пожалуйста в построении графика.

Помогите пожалуйста с нанесением результатов на график,без использования констант.

Код:
var a,b,T,xn,xk,x,mx,my,dx:real;
    x0,y0,i,V1,V2,V3,V4,V5,V6,V7,V8:integer;
    s:string;
    V,P: array[1..8]of real;

begin
x0:=windowwidth div 2;{центр экрана}
y0:=windowheight div 2;
xn:=-10;xk:=10;{интервал по Х}
mx:=(x0-30)/xk;{масштаб по Х}
my:=y0/10;{по У}
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight);
for i:=1 to 10 do{максимальное количество засечек в одну сторону}
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    line(x0+3,y0-round(i*my),x0-3,y0-round(i*my)); {засечки на оси Y}
    line(x0+3,y0+round(i*my),x0-3,y0+round(i*my));
    str(i,s);
    {подпись оси Х}
    textout(x0+round(i*mx),y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
    {подпись оси Y}
    textout(x0-25,y0-round(i*my),s);
    textout(x0-25,y0+round(i*my),'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0+5,10, 'Y');
{график}
x:=xn;
dx:=0.001;
begin
writeln('Введите объем газа V');
 for i:=1 to 8 do
begin
readln(V[i]);
 end;
  writeln('Введите  a');
  readln(a);
   writeln('Введите  b');
   readln(b);
    writeln('Введите температуру газа T');
    readln(T);
for i:=1 to 8 do
begin
P[i]:=((0.0635*T)/(V[i]-b))-((a/Power(V[i],2)));{Вычисление значения p}
writeln('Уравнение состояния расширения 1 кмоля углекислого газа = ',P[i]);
end;

end;
end.
Изображения
Тип файла: jpg Условие.jpg (12.0 Кб, 121 просмотров)
Zevul вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
построение графика drimdonetsk Microsoft Office Excel 2 15.05.2014 10:41
Построение графика y=kx+b Mrsqler Общие вопросы Delphi 9 30.03.2012 20:43
построение графика 30gb Помощь студентам 1 20.10.2010 21:37
построение графика в турбо паскале. x-voron-7 Помощь студентам 1 20.06.2010 20:48
Построение графика в TP XanderV13 Помощь студентам 0 22.11.2009 10:55