Problème de compilation

Signaler
Messages postés
2
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
12 octobre 2009
-
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
-
Bonjour tout le monde,
Voilà j'ai un programme à exécuter mais je ne suis même pas sure que c'est du delphi, est-ce que kkn peut me confirmer et me dire quel compilateur utiliser? Merci :)

2 réponses

Messages postés
2
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
12 octobre 2009

Le voilà
Unit registre ;
Interface
Uses
Windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
Stdctrls;

Type
TForm 1= class(TForm)
Label1: Tlabel;
Label2: Tlabel;
Label3: Tlabel;
Edit1: TEdit;
Edit2: TEdit;
Label4: Tlabel;
Label6: Tlabel;
Edit5: TEdit;
Label7: Tlabel;
Edit6: TEdit;
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
Procedure Button2 Click(Sender: TObject);
Procedure Button1 Click(Sender: TObject);
Private
{ Déclarations privées}
Public
{ Déclarations publiques}
End ;
Var
Form 1: TForm 1;
n: integer;
l,d,c,s,t,p:real;
implementation
{$R*.DFM}
Procedure TForm1. Button2Click(Sender: TObject);
Begin
Close;
End;
Procedure TForm1. Button1Click(Sender: TObject);
Begin
d:=strtofloat(edit1.text);
l:= strtofloat(edit2.text);
t:= strtofloat(combobox1.text);
s:=0;
n:=0;
p:=3.14;
while n<=100 do
begin
s:=s+((1/((2*n+1)*(2*n+1)))*exp((-(2*n+1)*(2*n+1)*p*p*d*t)/(1*1)));
n:=n+1;
end;
edit5.text:=floattostr(s);
c:=s*(8/(p*p));
edit6.text:=floattostr(c);
end;
end.
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
8
Je confirme, c'est du Delphi

Cordialement, Bacterius !