Парни помогите решить задачу, Необходимо взять из txt фаила данные , чтобы на экране появилась стрел Опции

[skilla.net]

сабж , парни , помогите , у нас начался Паскаль , а я полный ноль!!!! Необходимо взять координаты из txt фаила , чтобы во время запуска программы появилась стрелочка , у которой треугольник будет равнобедренным!!!

[Ozzя]

Ну и приложил бы этот тхт-файл. А уж как из него прочитать - поможем.

[Гость]

Ну и приложил бы этот тхт-файл. А уж как из него прочитать - поможем.

вот

[skilla.net]

Парни , помощь нужна срочно , завтра сдавать , тем кто поможет огромный респект!!! Надеюсь токо на вас...

[мисс_граффити]

Надо было либо делать вовремя, либо потратить 5 минут на обдумывание формулировки темы.

[skilla.net]

Надо было либо делать вовремя, либо потратить 5 минут на обдумывание формулировки темы.

а что неправильно сформулировано??

[мисс_граффити]

Слишком ярко выраженная дискриминация по половому признаку.

[Гость]

Слишком ярко выраженная дискриминация по половому признаку.

извини , плис))) спешу исправиться , господа и дамы , помогите будьте добры!!!

[LexaKazanskij]

Если задача- нарисовать стрелку вправо, и нет жестких требований к составлению проги, то можно попробовать дать, каждой цифре из файла, переменную или все цифры в массив. И вывести типа: line(x1,y1,x2,y2) и т. д.

[skilla.net]

Если задача- нарисовать стрелку вправо, и нет жестких требований к составлению проги, то можно попробовать дать, каждой цифре из файла, переменную или все цифры в массив. И вывести типа: line(x1,y1,x2,y2) и т. д.

У меня завтра 2 занятие по Паскалю , поэтому я еще этого непонимаю , если не сложно , напиши хоть , как это примерно выглядит ... может дальше додумаю сам ... буду очень признателен

[volvo]

skilla.net, вся проблема - в том, что даже если читать координаты из файла и сразу отрисовывать линии по этим координатам (используя MoveTo и LineTo), то такой стрелочки, которую ты ждешь, не получится... Получится нечто отдаленно ее напоминающее...

[skilla.net]

skilla.net, вся проблема - в том, что даже если читать координаты из файла и сразу отрисовывать линии по этим координатам (используя MoveTo и LineTo), то такой стрелочки, которую ты ждешь, не получится... Получится нечто отдаленно ее напоминающее...

вот фигня((( че же мне делать ...((

[volvo]

че же мне делать ...((

Задавать нормальные координаты... Вот, смотри что выходит:

uses graph;

var
  gd, gm: integer;
  X, Y: integer;
  f: text;

begin
  assign(f, 'strelka.txt');
  reset(f);

  initgraph(gd, gm, '');
  if graphresult = grOk then begin

    readln(f, X, Y);
    moveto(X, Y);

    while not eof(f) do begin
      readln(f, X, Y);
      lineto(X, Y);
    end;
    readln;
  end

  else writeln('error...');

  close(f);
end.

[skilla.net]

Задавать нормальные координаты... Вот, смотри что выходит:

uses graph;

var
  gd, gm: integer;
  X, Y: integer;
  f: text;

begin
  assign(f, 'strelka.txt');
  reset(f);

  initgraph(gd, gm, '');
  if graphresult = grOk then begin

    readln(f, X, Y);
    moveto(X, Y);

    while not eof(f) do begin
      readln(f, X, Y);
      lineto(X, Y);
    end;
    readln;
  end

  else writeln('error...');

  close(f);
end.

спасибо за образец !!! Огромный респект!!! С координатами ща разберусь)))

[LexaKazanskij]

А можно формулировку вопроса: слово в слово?

[skilla.net]

А можно формулировку вопроса: слово в слово?

Необходимо составить программу , которая по координатам из txt фаила , которые заданы построчно, будет рисовать стрелку на экране , вот так задиктовал задачу препод....

[LexaKazanskij]

Не надо мучаться, как делать не уточнено

program fd;
uses graph;
var
w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12:integer;
a,b:integer;
rsd:text;
begin
a:=detect;
initgraph(a,b,'');
assign(rsd,'texter.txt');
reset(rsd);
read(rsd,w1,w2);
read(rsd,w3,w4);
read(rsd,w5,w6);
read(rsd,w7,w8);
read(rsd,w9,w10);
read(rsd,w11,w12);
line(w2,w1,w4,w3);
line(w4,w3,w8,w7);
line(w8,w7,w5,w6);
line(w5,w6,w9,w10);
line(w9,w10,w11,w12);
close(rsd);
readln;
closegraph;
end.

[skilla.net]

Не надо мучаться, как делать не уточнено

program fd;
uses graph;
var
w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12:integer;
a,b:integer;
rsd:text;
begin
a:=detect;
initgraph(a,b,'');
assign(rsd,'texter.txt');
reset(rsd);
read(rsd,w1,w2);
read(rsd,w3,w4);
read(rsd,w5,w6);
read(rsd,w7,w8);
read(rsd,w9,w10);
read(rsd,w11,w12);
line(w2,w1,w4,w3);
line(w4,w3,w8,w7);
line(w8,w7,w5,w6);
line(w5,w6,w9,w10);
line(w9,w10,w11,w12);
close(rsd);
readln;
closegraph;
end.

а ведь точно , можно было и так сделать ))) каждую прочитать и нарисовать ))) спс за помощь!!!!!!!!

[LexaKazanskij]

Не за что , я подобным образом практику писал

[volvo]

я подобным образом практику писал

Если ты писал подобным образом практику, это совсем не значит, что этому бреду надо учить других... В следующий раз получишь минус в рейтинг за такой код...