Форум программистов, компьютерный форум CyberForum.ru

Фрактал Кривая дракона - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ В строке заменить все точки троеточием http://www.cyberforum.ru/cpp-beginners/thread201593.html
Написать программу на СИ следующего содержания: В строке заменить все точки троеточием.
C++ Элементы каждого столбца прямоугольной матрицы упорядочить в порядке убывания. Добрый вечер.У меня задача на 2-х мерные массивы. Вот текст задачи: Элементы каждого столбца прямоугольной матрицы упорядочить в порядке убывания. http://www.cyberforum.ru/cpp-beginners/thread201581.html
C++ Блок схема 1,1
Помагите пожалуйста нарисовать блок схему этого задача uses crt; var ex,ey,kx,ky,gx,gy,rx,ry,i,a,b: integer; begin ex:=10; ey:=2;
C++ Блок схема1
Помагите пожалуйста нарисовать блок схему этого задача uses GraphABC; var i,j: integer; begin for i:=0 to WindowWidth-3 do for j:=0 to WindowHeight-1 do if (i-3350)*(i-5350)*(i-600)*(j-200)*(j-300)<120*120
C++ Где ошибка? http://www.cyberforum.ru/cpp-beginners/thread201567.html
Сейчас с товарищем сидим делаем лабу. У него работает у меня нет. Он мне скидывает скрин своего положения дел(кодим в QNX под VMWARE). На скрине терминал и блокнот с текстом проги. Вот его вариант http://ipicture.ru/Gallery/Viewfull/2388924.html вот мой http://ipicture.ru/Gallery/Viewfull/2388941.html Что же в моём тексте на строке пятой не так как у него???
C++ структура и указатель всем доброго времени суток! 1создать масив структур из использованием значений иницыалезаторов. использовать обычную адресацыю к елементам масива заменить значение любого поля структуры. 2 объявить указатель на структуру и используя данный указатель вивести состав всех елементов масива на екран. printf() СИ вот что-то набросал по первому заданию, но не уверен что правильно. typedef struct... подробнее

Показать сообщение отдельно
rfiz
0 / 0 / 0
Регистрация: 06.11.2010
Сообщений: 22
01.12.2010, 21:17     Фрактал Кривая дракона
Помогите пожалуйста перевести код Паскаля на СИ (Программа построения фрактала Кривая дракона)
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
Program dragon1;
Uses graph,crt;
Const
len=20;{Длина отрезков ломаной}
a=len div 5;{Длина катета "закругления"}
path=''; {Файлы *.BGI находятся в текущем каталоге}
var
d,r,n:integer;
i,angle,old_angle:word;
{Функция, определяющая значение кода направления поворота в конце
отрезка с номером i}
function K(i:word):byte;
  begin if Odd(i) then K:=i mod 4 else K:=K(i div 2) end;
  {Процедура рисования отрезка ломаной и предшествующего ему
   "закругления"}
  Procedure Step(angle:word; var old_angle:word);
   begin
    {Рассматриваем 4 варианта направления перемещения. Вычерчиваем
     "закругление" и очередной отрезок }
   Case angle of
    0: begin
        if old_angle=90 then LINEREL(-a,-a) else LINEREL(a,-a);
        LINEREL(0,-(len-2*a))
       end;
  180: begin
        if old_angle=90 then LINEREL(-a,a) else LINEREL(a,a);
        LINEREL(0,len-2*a)
       end;
  90: begin
        if old_angle=0 then LINEREL(-a,-a) else LINEREL(-a,a);
        LINEREL(-(len-2*a),0)
      end;
270: begin
        if old_angle=0 then LINEREL(a,-a) else LINEREL(a,a);
        LINEREL(len-2*a,0)
      end;
end;{Case angle}
old_angle:=angle
end;
BEGIN
d:=DETECT;{режим автоопределения типа монитора}
INITGRAPH(d, r, path); {Переход в графический режим}
MOVETO(190+a, 276); {Начальная точка ломаной}
angle:=270; {Угол наклона первого отрезка}
LINEREL(len-a,0); {Рисуем первый отрезок}
old_angle:=270;
n:=418; {Количество отрезков}
for i:=1 to n-1 do
   begin
    angle:=(angle+K(i)*90) mod 360;
    DELAY(2000);{Задеpжка}
    Step(angle, old_angle) {рисуем остальные отрезки линии}
   end;
repeat until keypressed;{Останов до нажатия любой клавиши}
END.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 12:14. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru