Форма капли

@pavlik94 · Регистрация: 09.12.2013

Author24 — интернет-сервис помощи студентам

помогите , дана программа написана в паскале нужно в турбо делфи переписать не получается.....
вот код в паскале

Pascal

uses
  crt,
  graph;
 
var dx,x,z,F,z1,u,du,al:real;zz,i,k,Gd,Gm,:integer;
  SysUtils;
begin
Gd:= Detected; InitGraph(Gd,Gm,'c:\bp\bgi') ;
For i:=1 to 4 do begin
  u:=0; z:=0.00008*i; x:=0.3; du:=0.001;
  Repeat u:=u+du;
  F:=-z*(1+z*z)/x-u*sqrt ((1+z*z)+(1+z*z)+(1+z*z));
  z:=z+F*dx; dx:=-du/z; x:=x+dx;
  circle(400+round(20*x),240-round(20*u),1);
  circle(400-round(20*x),240-round(20*u),1);
  Until (abs(z)>100 )or (KeyPressed);
end;
For i:=0 to 10 do begin
  dx:=0.0001; u:=-0.2*i-0.05; z:=0; x:=0;
  Repeat x:=x+dx;
  F:=-z*(1+z*z)/x-u*sqrt (abs((1+z*z)+(1+z*z)+(1+z*z)));
  z:=z+F*dx; u:=u-dx*z;
  circle(400+round(50*x),60-round(50*u),1);
  circle(400-round(50*x),60-round(50*u),1);
  Until (abs(z)>10 )or(KeyPressed);
end;
Repiat unit KeyPressed; CloseGraph;
  { TODO -oUser -cConsole Main : Insert code here }
end.

@pavlik94 · 20.12.2013, 12:59 **[ТС]**

хелп

@droider · 21.12.2013, 11:25

pavlik94, это и есть Delphi. Консольный вариант программы

@volvo · 21.12.2013, 13:10

Модуля Graph в Дельфи не было, и, я надеюсь, не будет никогда. И CRT тоже. Это Паскалевский вариант, причем совершенно непонятно что выводящий. Мне, скажем, терпения не хватило дождаться, пока программа завершит работу и покажет, наконец, окончательную картинку...

@pavlik94 · 23.12.2013, 17:06 **[ТС]**

Сообщение от UI

Модуля Graph в Дельфи не было, и, я надеюсь, не будет никогда. И CRT тоже. Это Паскалевский вариант, причем совершенно непонятно что выводящий. Мне, скажем, терпения не хватило дождаться, пока программа завершит работу и покажет, наконец, окончательную картинку...

набрал в паскале ошибку выдает

https://www.cyberforum.ru/atta... 1387803975

@Puporev · 23.12.2013, 17:31

Сообщение от UI

терпения не хватило дождаться, пока программа завершит работу и покажет,

В Турбо Паскале картинка не входит на экран.
Во Фрее после отладки выводит такое

@pavlik94 · 23.12.2013, 17:58 **[ТС]**

у меня тоже рисует , теперь нужно тоже самое изобразить в делфи , в чем вся и трудность...

@Puporev · 23.12.2013, 18:17

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormPaint(Sender: TObject);
var dx,x,z,F,u,du:real;
    xc,yc,i:integer;
begin
xc:=form1.ClientWidth div 2;
yc:=form1.ClientHeight div 2;
with form1.Canvas do
 begin
  For i:=1 to 4 do
   begin
    u:=0; z:=0.00008*i; x:=0.3; du:=0.001;
    Repeat
    u:=u+du;
    F:=-z*(1+z*z)/x-u*sqrt ((1+z*z)+(1+z*z)+(1+z*z));
    z:=z+F*dx; dx:=-du/z; x:=x+dx;
    ellipse(xc+round(20*x)-1,yc-round(20*u)-1,xc+round(20*x)+1,yc-round(20*u)+1);
    ellipse(xc-round(20*x)-1,yc-round(20*u)-1,xc-round(20*x)+1,yc-round(20*u)+1);
    Until abs(z)>100;
   end;
  For i:=0 to 10 do
   begin
    dx:=0.0001; u:=-0.2*i-0.05; z:=0; x:=0;
    Repeat
    x:=x+dx;
    F:=-z*(1+z*z)/x-u*sqrt (abs((1+z*z)+(1+z*z)+(1+z*z)));
    z:=z+F*dx; u:=u-dx*z;
    ellipse(xc+round(50*x)-1,yc-180-round(50*u)-1,xc+round(50*x)+1,yc-180-round(50*u)+1);
    ellipse(xc-round(50*x)-1,yc-180-round(50*u)-1,xc-round(50*x)+1,yc-180-round(50*u)+1);
    Until abs(z)>10;
  end;
end;
end;
end.

@pavlik94 · 25.12.2013, 22:57 **[ТС]**

выдает пустую форму

@Puporev · 26.12.2013, 06:39

Сообщение от pavlik94

нужно в турбо делфи переписать

У меня нет этого чуда, написал в Делфи 7.

@Puporev · 26.12.2013, 06:41

Сообщение от pavlik94

выдает пустую форму

Возможно Вы просто скопировали код и не инициировали процедуру

Delphi

1	procedure TForm1.FormPaint(Sender: TObject);

в Инспекторе Объектов на вкладке Events

@pavlik94 · 27.12.2013, 17:37 **[ТС]**

Спасибо за помощь , возможно как-нибудь сделать чтобы кривые ограничевались как здесь ?

@Puporev · 27.12.2013, 18:16

Я смысла не знаю, но вот что-то похожее получил так, нужно поиграться с помеченными строками

Delphi

xc:=form1.ClientWidth div 2;
yc:=form1.ClientHeight div 2+200;//эта
with form1.Canvas do
 begin
  For i:=1 to 4 do
   begin
    u:=0; z:=0.00008*i; x:=0.5; du:=0.001;
    Repeat
    u:=u+du;
    F:=-z*(1+z*z)/x-u*sqrt ((1+z*z)+(1+z*z)+(1+z*z));
    z:=z+F*dx; dx:=-du/z; x:=x+dx;
    ellipse(xc+round(20*x)-1,yc-round(10*u)-1,xc+round(20*x)+1,yc-round(10*u)+1);//эта k*u
    ellipse(xc-round(20*x)-1,yc-round(10*u)-1,xc-round(20*x)+1,yc-round(10*u)+1);//эта k*u
    Until abs(z)>10;
   end;
  For i:=0 to 10 do
   begin
    dx:=0.0001; u:=-0.2*i-0.05; z:=0; x:=0;
    Repeat
    x:=x+dx;
    F:=-z*(1+z*z)/x-u*sqrt (abs((1+z*z)+(1+z*z)+(1+z*z)));
    z:=z+F*dx; u:=u-dx*z;
    ellipse(xc+round(50*x)-1,yc-380-round(10*u)-1,xc+round(50*x)+1,yc-380-round(10*u)+1);//эта k*u
    ellipse(xc-round(50*x)-1,yc-380-round(10*u)-1,xc-round(50*x)+1,yc-380-round(10*u)+1);//эта k*u
    Until abs(z)>10;
  end;
end;
end;

@pavlik94 · 28.12.2013, 09:30 **[ТС]**

Спасибо большое, буду пробовать !

@pavlik94 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 7
	28.12.2013, 09:30 [ТС]	14
	Спасибо большое, буду пробовать ! 0

@pavlik94 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 7
	20.12.2013, 12:59 [ТС]	2
	хелп 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	21.12.2013, 11:25	3
	pavlik94, это и есть Delphi. Консольный вариант программы 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	21.12.2013, 13:10	4
	Модуля Graph в Дельфи не было, и, я надеюсь, не будет никогда. И CRT тоже. Это Паскалевский вариант, причем совершенно непонятно что выводящий. Мне, скажем, терпения не хватило дождаться, пока программа завершит работу и покажет, наконец, окончательную картинку... 1

@pavlik94 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 7
	23.12.2013, 17:06 [ТС]	5
	Сообщение от UI Модуля Graph в Дельфи не было, и, я надеюсь, не будет никогда. И CRT тоже. Это Паскалевский вариант, причем совершенно непонятно что выводящий. Мне, скажем, терпения не хватило дождаться, пока программа завершит работу и покажет, наконец, окончательную картинку... набрал в паскале ошибку выдает https://www.cyberforum.ru/atta... 1387803975 Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.12.2013, 17:31	6
	Сообщение от UI терпения не хватило дождаться, пока программа завершит работу и покажет, В Турбо Паскале картинка не входит на экран. Во Фрее после отладки выводит такое Миниатюры 0

@pavlik94 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 7
	23.12.2013, 17:58 [ТС]	7
	у меня тоже рисует , теперь нужно тоже самое изобразить в делфи , в чем вся и трудность... 0

@pavlik94 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 7
	25.12.2013, 22:57 [ТС]	9
	выдает пустую форму 0

@pavlik94 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 7
	27.12.2013, 17:37 [ТС]	12
	Спасибо за помощь , возможно как-нибудь сделать чтобы кривые ограничевались как здесь ? Миниатюры 0