Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2011, 22:23   #1
LockeD132
Новичок
Джуниор
 
Регистрация: 07.12.2011
Сообщений: 2
Восклицание Программы для построения множеств

Помогите с программами на паскале - для рисования множества Жюлиа и Мандельброта, компилируетса, но на экран ничего не выводит, подскажите что не так?
Первая
Код:
Program mandel;
Uses Crt,Graph; 
Var   a,b: integer;
   x,y,xy: integer;
   x2,y2: integer;   
r: real; 
  k: integer; 
  ch : char;
   GraphDriver,GraphMode : integer;
   Path : string;
 Begin
   clrscr;
   GraphDriver := EGA;
   GraphMode := EGALo;
   Write('Vvedite kolichestvo iteraciy ');
   Readln(k); 
  r:=0;
   x:=0; y:=0;
   InitGraph(GraphDriver,GraphMode,Path);
   While (k>0) and (r<4) do     begin
       x2:=x*x;
       y2:=y*y;
       xy:=x*y;
       x:=x2-y2+a;
       y:=2*xy+b;
       r:=x2+y2;
       dec(k);
       PutPixel(x,y,(k div 16));
      end;
    ch:= Readkey;
 End.

Вторая


Код:
Program second;
 Uses Crt,Graph;
 Var   i: integer;
   x,y,temp: integer;
   a,b: integer; 
  iter: integer;
   ch: char;
   GraphDriver,GraphMode : integer;
   Path : string;
 Begin
   clrscr;
   GraphDriver := EGA;
   GraphMode := EGALo;
   Write('Vvedite kolichestvo iteraciy ');
   Readln(iter);
   i:=0;
   x:=0;
   y:=0;
   InitGraph(GraphDriver,GraphMode,Path);
   Repeat
     temp:=sqr(x)-sqr(y)+a;
     y:=2*x*y+b;
     x:=temp;
     Inc(i);
     PutPixel(x,y,(i div (iter div 256)));
   Until (4<=sqr(x)+sqr(y)) or (i>=iter);
   ch:=readkey;
 End.
LockeD132 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа для вычисления значений координаты и скорости и для построения графика орбиты планет (Паскаль) katyazpk Помощь студентам 9 06.12.2011 05:16
Разработка программы построения графика на Delphi BuzzLighter Помощь студентам 1 19.11.2011 22:09
Разработка программы построения графика интерполяционного полинома. 13xxx Паскаль, Turbo Pascal, PascalABC.NET 0 19.11.2011 18:59
разработка программы построения графика интерполяционного полинома KORT Помощь студентам 4 07.11.2011 19:41
Разработка программы построения графиков функции в системе программирования Турбо-Паскаль S-Alex Помощь студентам 5 18.05.2009 20:13