2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




На страницу Пред.  1, 2, 3, 4, 5
 
 
Сообщение08.02.2006, 14:29 
А ломанную я сделала розовой, потому что так красивее
Код:
GraphResult = grOk then begin
        ClearDevice;
        MoveTo (320, 0);
        LineTo (320, 480);
        MoveTo (0, 240);
        LineTo (640, 240);
        MoveTo (320 + trunc (points [1]. x), 240 - trunc (points [1]. y));

        setcolor(13); {tak krasivchi};

for i := 2 to N do
            LineTo (320 + trunc (points [i]. x), 240 - trunc (points [i]. y));
        LineTo (320 + trunc (points [1]. x), 240 - trunc (points [1]. y));
    while not KeyPressed do ;
    end else
        Writeln ('graph initialization fault');
CloseGraph;

 
 
 
 не могу написать комментарии теперь.
Сообщение13.02.2006, 05:41 
Ребята! Привет! Я не могу теперь ко второй задачи которую вы решили написать комментарии :cry: . Я знаю только про цвет :cry:
Код:
uses
  graph,
  crt;

const K = 10;  {kol-vo tochek}

type tPoint = record
    x, y: real;
    n: integer;
end; { record}

type tPoints = array [1..K] of tPoint;

procedure dec2pol (var p: tPoint);
    var t: tPoint;
begin { dec2pol }
    t. n := p. n;
    if p. x = 0 then begin
   if p. y = 0 then
       t. x := 0
   else
       t. x := 90;
    end else
   t. x := 180 * arctan (p. y / p. x) / Pi;
    t. y := sqrt (sqr (p. x) + sqr (p. y));
    p := t;
end; { dec2pol }

procedure swap (var x, y: tPoint);
    var t: tPoint;
begin { swap}
    t := x;
    x := y;
    y := t;
end; { swap}

procedure transit (p1: tPoint; var p2: tPoint);
begin { transit}
    p2. x := p2. x - p1. x;
    p2. y := p2. y - p1. y;
end; { transit }

var points: tPoints;
    t, p1, p2: tPoint;
    i, j, N: integer;
    grDriver, grMode: integer;
    minXY: tPoint;

begin { main program }

    minXY. x := 0;
    minXY. y := 0;
    Write('Vvedite kolichestvo tochek (do 10-ti): ');
    ReadLn(N);
    WriteLn('Vvedite koordinaty tochek. -320<x<320 -240<y<240');
    for i := 1 to N do begin
   points [i]. n := i;
   Write('Tochka ', i, ':');
        readLn (points [i]. x, points [i]. y);
    end; {for}
    minXY := points [1];
    for i := 2 to N do begin
        if (points [i]. x < minXY. x) then
            minXY. x := points [i]. x;
        if (points [i]. y < minXY. y) then
            minXY. y := points [i]. y;
    end;
    for i := 1 to N - 1 do begin
        p1 := points [i];
        transit (minXY, p1);
        dec2pol (p1);
        for j := i + 1 to N do begin
            p2 := points [j];
            transit (minXY, p2);
            dec2pol (p2);
            if p2. x < p1. x then begin
                swap (points [i], points [j]);
                swap (p1, p2);
            end; { if }
        end; { for }
    end; { for }
    for i := 1 to N - 1 do begin
        p1 := points [i];
        transit (minXY, p1);
        dec2pol (p1);
        for j := i + 1 to N do begin
            p2 := points [j];
            transit (minXY, p2);
            dec2pol (p2);
            if (p2. x = p1. x) and (p2. y < p2. y) then begin
                swap (points [i], points [j]);
                swap (p1, p2);
            end; { if }
        end; { for }
    end; { for }
{vyvod poryadka obchoda tochek}
    write('Poryadok obhoda tochek: ');
    for i := 1 to N do
        Write(points [i]. n : 3);
    WriteLn;
    Write ('Zamknutaja lomannaja - nagmi <Enter>');
    ReadLn;
{risuem lomannuu}
    grDriver := 9;
    grMode := 2;
    InitGraph (grDriver, grMode, 'С:\BP\BGI');

    if GraphResult = grOk then begin
        ClearDevice;
        MoveTo (320, 0);
        LineTo (320, 480);
        MoveTo (0, 240);
        LineTo (640, 240);
        MoveTo (320 + trunc (points [1]. x), 240 - trunc (points [1]. y));
        setcolor(13); {choby lomannaja ne slivalas s osyami koordinat, i potomu chto
tak krasivee};
for i := 2 to N do
            LineTo (320 + trunc (points [i]. x), 240 - trunc (points [i]. y));
        LineTo (320 + trunc (points [1]. x), 240 - trunc (points [1]. y));
    while not KeyPressed do ;
    end else
        Writeln ('graph initialization fault');
CloseGraph;
end. {main program}

 
 
 
 
Сообщение13.02.2006, 09:06 
Ребята! Поддержите меня своими голосами!
http://www2.tcde.ru/gallery/view.php?id=97&cat=24

 
 
 
 
Сообщение13.02.2006, 09:07 
только пожалуйста ставьте пятерки. Это наш вуз конкурс проводит.

 
 
 [ Сообщений: 64 ]  На страницу Пред.  1, 2, 3, 4, 5


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group