Рисуем график

@guabreva · Регистрация: 05.11.2009

Author24 — интернет-сервис помощи студентам

Ребята помогите решить такую темку:
Есть: строка s1 - ее содержимое: 40 300 200 600 300 500
Нарисовать линни (взяв координаты точек начала и конца линии из строки s1) c использованием графики/

делаю так:

Pascal

for i:=1 to Length(s1) do
begin 
if s1[i]=' ' 
continue;
MoveTo(?,?);
LineTo(?,?);

если пишу вместо ? - i или s1[i], то не там строит. Начинает от лев верх угла экрана, мне еще нужно чтобы начал с середины экрана.
Как правильно построить?
Заранее спасибо.

@Puporev · 03.05.2011, 18:08

Сообщение от guabreva

взяв координаты точек начала и конца линии из строки s1

Где там начала и концы линий? Там 3 пары координат, Сколько линий рисовать?

@guabreva · 03.05.2011, 18:19 **[ТС]**

Сообщение от Puporev

Где там начала и концы линий? Там 3 пары координат, Сколько линий рисовать?

например первая координата: 40 300 - точка начала линии, вторая пара конец линии напр 400 30

@Puporev · 03.05.2011, 19:13

Вот такой принцип. В строке должно быть кратное 4 количество чисел, разделенных одним пробелом.

Pascal

uses graph;
var k:array[1..4] of integer;
    d,m,i,c:integer;
    s,s1:string;
begin
d:=0;
initgraph(d,m,'');
s:='40 300 400 30 100 500 400 30';
s:=s+' ';
while s<>'' do
 begin
  for i:=1 to 4 do
   begin
    s1:=copy(s,1,pos(' ',s)-1);
    val(s1,k[i],c);
    delete(s,1,pos(' ',s));
   end;
  line(k[1],k[2],k[3],k[4]);
 end;
readln
end.

@Puporev · 03.05.2011, 19:34

guabreva, Это я перепутал, не в ту тему написал...

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.05.2011, 18:08	2
	Сообщение от guabreva взяв координаты точек начала и конца линии из строки s1 Где там начала и концы линий? Там 3 пары координат, Сколько линий рисовать? 0

@guabreva 37 / 36 / 5 Регистрация: 05.11.2009 Сообщений: 251
	03.05.2011, 18:19 [ТС]	3
	Сообщение от Puporev Где там начала и концы линий? Там 3 пары координат, Сколько линий рисовать? например первая координата: 40 300 - точка начала линии, вторая пара конец линии напр 400 30 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.05.2011, 19:34	5
	guabreva, Это я перепутал, не в ту тему написал... 0