Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
aallee
0 / 0 / 0
Регистрация: 28.11.2011
Сообщений: 12
1

Задача с графикой!

29.11.2011, 08:15. Просмотров 594. Ответов 4
Метки нет (Все метки)

Построить график изотермы расширения 1кмоля углекислого газа по уравнению состояния P=((0.0635*T)/(V-b))-a/V^2,атм. при а=0,0288, b=0,032, температуре газа T=15,7 градусов Кельвина и объеме газа V=0.05; 0.1; 0.15; 0.2; 0.4; 0.6; 0.8 и 1м^3. Ответы: V=0.050; 0.100; ...; 1.000. P=45.66; 11.781; ...; 1.001

Добавлено через 19 часов 33 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Program 2222;
uses graphABC;
const a=0.0288;
      b=0.032;
      T=15.7*Pi/180;
      
var
      V:array [1..8] of real;
      I,mx,my,x,y,y1,x1:integer;
      p,ii:real;
      s:string;
begin
cls ;
      V[1]:=0.050;
Write ('V=', V[1]:9:0);
Str   (V[1],s);
For   i:=2 to 8 do
Begin
      If i<=4 then ii:=0.05  else ii:=0.2;
      V[i]:=V[i-1]+ii;
Write (V[i]:4:0);
End;
Writeln;
Write ('P=');
Write (P:10:6);
begin
 If i=1 then begin y1:=y; x1:=x;
 end;
 Line(x,x1,y,y1);y1:=y;x1:=x;
 TextOut(444,50+11*i,s);
 write(ii:5,6);
 textout(477,52+18*i,s);
 end;
moveto (20,400);
 setpencolor(clgreen);
 setpenwidth(4);
 lineto(575,400);
 Line(575,400,560,395);
 Line(575,400,560,404);
 line(20,10,20,400);
 S:='t';
 textout(580,390,s);
 setpenwidth(2);//надпись оx
 setpencolor(rgb(111,255,111));//штрихи по оу
 for i:=0 to 5 do line (10, 400-40*i, 30, 400-40*i);//колличество штрихов по Oy
 writeln('  график функции у=');
 textout(200,50,s);
 writeln;
 
Readln;
end.

набросок программы, но там есть ошибки
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 08:15
Ответы с готовыми решениями:

помогите с графикой
напишите пожалуйста кто-нибудь любую программу по графике только чтобы там...

Задание с графикой в АВС
Здраствуйте!Задание в том что-бы грузовик проехал вправо до конца!Понимаю...

Работа с графикой
Доброе утро, никак не могу сделать лабораторку. Помогите пожалуйста ! Задание...

Работа с графикой
(x^2+y^2)(x^2+y^2-20*a*x)-a^2*y^2=0, a&gt;0 нарисовать график.

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

4
Puporev
Модератор
54710 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
29.11.2011, 11:52 2
Так попробуй. Кстати первое значение по P не сходится.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses graphABC;
const a=0.0288;
      b=0.032;
      t=15.7;
      n=8;
var v,p:array[1..n] of real;
    i,w,h,xc,yc:integer;
    mx,my,pmx:real;
    s:string;
begin
v[1]:=0.05;
p[1]:=0.0635*t/(v[1]-b)-a/sqr(v[1]);
pmx:=p[1];
for i:=2 to n do
 begin
  if i<=4 then v[i]:=v[i-1]+0.05
  else v[i]:=v[i-1]+0.2;
  p[i]:=0.0635*t/(v[i]-b)-a/sqr(v[i]);
  if p[i]>pmx then pmx:=p[i];
 end;
for i:=1 to n do
writeln(v[i]:8:3,'  ',p[i]:8:3);
w:=500;
setwindowsize(w,w);
xc:=50;
yc:=450;
mx:=(w-60)/v[n];
my:=(yc-40)/pmx;
setpenwidth(2);
line(xc,yc,w-10,yc);
line(xc,yc,xc,20);
for i:=1 to 10 do
 begin
  line(xc+round(i*mx/10),yc+3,xc+round(i*mx/10),yc-3);
  str(i/10:0:1,s);
  textout(xc+round(i*mx/10)-10,yc+10,s);
 end;
for i:=1 to 10 do
 begin
  line(xc-3,yc-round(5*i*my),xc+3,yc-round(5*i*my));
  str(i*5,s);
  textout(xc-30,yc-round(5*i*my),s);
 end;
setpencolor(clBlue);
circle(xc+round(v[1]*mx),yc-round(p[1]*my),2);
moveto(xc+round(v[1]*mx),yc-round(p[1]*my));
for i:=2 to n do
 begin
  setpencolor(clRed);
  lineto(xc+round(v[i]*mx),yc-round(p[i]*my));
  setpencolor(clBlue);
  circle(xc+round(v[i]*mx),yc-round(p[i]*my),2);
  setpencolor(clBlack);
 end;
end.
2
aallee
0 / 0 / 0
Регистрация: 28.11.2011
Сообщений: 12
12.12.2011, 18:12  [ТС] 3
А как можно подписать график в виде "График функции у=" и оси X и Y?
0
Puporev
Модератор
54710 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
12.12.2011, 18:19 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
uses graphABC;
const a=0.0288;
      b=0.032;
      t=15.7;
      n=8;
var v,p:array[1..n] of real;
    i,w,h,xc,yc:integer;
    mx,my,pmx:real;
    s:string;
begin
v[1]:=0.05;
p[1]:=0.0635*t/(v[1]-b)-a/sqr(v[1]);
pmx:=p[1];
for i:=2 to n do
 begin
  if i<=4 then v[i]:=v[i-1]+0.05
  else v[i]:=v[i-1]+0.2;
  p[i]:=0.0635*t/(v[i]-b)-a/sqr(v[i]);
  if p[i]>pmx then pmx:=p[i];
 end;
for i:=1 to n do
writeln(v[i]:8:3,'  ',p[i]:8:3);
w:=500;
setwindowsize(w,w);
xc:=50;
yc:=450;
mx:=(w-80)/v[n];
my:=(yc-40)/pmx;
setpenwidth(2);
line(xc,yc,w-10,yc);
line(xc,yc,xc,20);
for i:=1 to 10 do
 begin
  line(xc+round(i*mx/10),yc+3,xc+round(i*mx/10),yc-3);
  str(i/10:0:1,s);
  textout(xc+round(i*mx/10)-10,yc+10,s);
 end;
for i:=1 to 10 do
 begin
  line(xc-3,yc-round(5*i*my),xc+3,yc-round(5*i*my));
  str(i*5,s);
  textout(xc-30,yc-round(5*i*my),s);
 end;
textout(xc+10,20,'Y');
textout(w-20,yc-20,'X');
textout(w div 2-60,20,'График функции ?????');//сами пишите, я уже не помню что это
setpencolor(clBlue);
circle(xc+round(v[1]*mx),yc-round(p[1]*my),2);
moveto(xc+round(v[1]*mx),yc-round(p[1]*my));
for i:=2 to n do
 begin
  setpencolor(clRed);
  lineto(xc+round(v[i]*mx),yc-round(p[i]*my));
  setpencolor(clBlue);
  circle(xc+round(v[i]*mx),yc-round(p[i]*my),2);
  setpencolor(clBlack);
 end;
end.
2
aallee
0 / 0 / 0
Регистрация: 28.11.2011
Сообщений: 12
12.12.2011, 19:59  [ТС] 5
спасибо, очень выручили!
0
12.12.2011, 19:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2011, 19:59

Работа с Графикой
Здравствуйте. пишу прогу которая перемещает фигуры по экрану при помощи нажатия...

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

Не могу разобраться с графикой в Паскале
Всем привет. Помогите плиз. Только начал изучать Паскаль, дошел до графики... ...


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

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

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