Версия для печати темы

Автор: iloveoov 15.05.2007 0:49

Здравствуйте,господа, помогите найти решение задачи,она вроде бы несложная,но никак не получается,годы свое берут,очень мало помню.. Спасибо огромное заранее!
-----------------------------------------------------------------------------------------------------
Составьте программу, создающую на графическом экране следующее изображение:
рисунок прилагается,а цвета конечно же не обязательно соблюдать..


Эскизы прикрепленных изображений

Автор: klem4 15.05.2007 21:48

Что-то вроде вот этого, с коэффициентами можно еще поэксперементировать

uses crt,graph;

const
  mx: Integer = 0;


function _inc(var X: Integer): Integer;
begin
  inc(X); _inc := X;
end;
var
  x, y, currX, currY, height,len: Single;
  gd, gm, i: Integer;

begin
  gd := detect;
  initgraph(gd, gm, '');


  mx := GetMaxX;

  len    := 600;
  height := 10;

  currx := mx div 2 - len / 2;
  curry := GetMaxY - 1;

  i := 0;

  repeat

    if odd(_inc(i)) then x := mx div 2 + len / 2
     else x := mx div 2 - len / 2;

    y := curry - height;

    SetColor(i - 1);

    line(round(currx), round(curry), round(x), round(y));

    currx := x; curry := y;

    len := len / 1.3;

  until i = 42;

  readkey;
  closegraph;
end.

Автор: iloveoov 17.05.2007 1:44

klem4,
спасибо огромное!
поправил немного,сдал..)
спасибо! :yes2:
как бы тебе пиво передать?))