| Message |
Auteur |
 Posté le: 26 09 2002 18:11 Sujet du message: delphi: tools |
|
|
fichier Unit1 (dit _tools)
| Code: | unit Unit1;
interface
type _str=string ;
function _IntRange(Min,Max,Nombre:integer):boolean;
implementation
function _IntRange(Min,Max,Nombre:integer):boolean;
begin
if (Nombre >=Min) and (Nombre <= Max)
then _IntRange:=true
else _IntRange:= false;
end;
end.
|
fichier Unit 2
| Code: | unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Unit1;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
min,max,nombre:integer;
begin
writeln('entrez le min');
readln(min);
writeln('entrez le max');
readln(max);
writeln('entrez le nombre');
readln(nombre);
writeln(_intrange(min,max,nombre));
readln;
application.terminate;
end;
end.
|
|
|
Kaizen
Webmaster
Inscrit le: 07 Mar 2002
Messages: 2253
Localisation: Québec, France et ailleurs...
|
|
Revenir en haut |
|
|
|
|
| Posté le: 27 09 2002 10:39 Sujet du message: |
|
|
salut kaizen,
Excuse ma curiosité mais ..... qu'est-ce que ce code fait sur le forum ???
Bon il vérife si un nombre est dans un interval C cool (en plus C ecris dans un language que G jamais vu C encore plus kool), mais je ne vois pas ce q'uil fait là ....
Djer13 |
|
Djer13
Équipe Teamatic
Inscrit le: 07 Mar 2002
Messages: 693
Localisation: Chambéry
|
|
Revenir en haut |
|
| Posté le: 27 09 2002 11:49 Sujet du message: salut |
|
|
| C un code fait en pascal pour notre cours de programmation au cégep Kaizen a poster ce mesage pour que personne est besoin de réécrire le code au complet comme il avait terminé de l'écrire. |
|
Ice_man33
Posteur habitué
Inscrit le: 19 Sep 2002
Messages: 126
Localisation: Montréal
|
|
Revenir en haut |
|
| Posté le: 27 09 2002 15:21 Sujet du message: |
|
|
du pascal ? ha oui !! C vrai j'en ai entendu parler.... il me semble que l'ont à invebnter le pascal avant le binaire....
Enfin il parait que C LE meilleur language pour apprendre al prgramtion.
(personelement je pensse que de nos jour "aprendre la prog" sous entends "apprendre la prog orienté Objet" donc je ne pensse pas que le pascal sois vraiment adapté...).
enfin C kool de la part de kaizen 
Djer13 |
|
Djer13
Équipe Teamatic
Inscrit le: 07 Mar 2002
Messages: 693
Localisation: Chambéry
|
|
Revenir en haut |
|
| Posté le: 08 01 2003 19:12 Sujet du message: |
|
|
wow les gars!!! pastez moi vos tp svp!!! je fais du pascal orienté objet cette session avec murgu!
/me est mort |
|
Invité
|
|
Revenir en haut |
|
| Posté le: 10 01 2003 07:02 Sujet du message: |
|
|
ce n'est pas du pascal mais du delphi ... (pascal object)  |
|
Erwin Rommel
Nouveau posteur
Inscrit le: 20 Déc 2002
Messages: 62
Localisation: Switzerland
|
|
Revenir en haut |
|
| Posté le: 10 01 2003 12:52 Sujet du message: |
|
|
| J. Robert Oppenheimer a écrit: | | ce n'est pas du pascal mais du delphi ... (pascal object) |
Exact |
|
Kaizen
Webmaster
Inscrit le: 07 Mar 2002
Messages: 2253
Localisation: Québec, France et ailleurs...
|
|
Revenir en haut |
|
| Posté le: 10 01 2003 12:58 Sujet du message: |
|
|
| Anonymous a écrit: | wow les gars!!! pastez moi vos tp svp!!! je fais du pascal orienté objet cette session avec murgu!
/me est mort |
Salut,
Peux-tu signer tes messages et me donner une bonne raison de t'offrir tout mon travail ? |
|
Kaizen
Webmaster
Inscrit le: 07 Mar 2002
Messages: 2253
Localisation: Québec, France et ailleurs...
|
|
Revenir en haut |
|
| Posté le: 04 03 2003 17:07 Sujet du message: Demande d'aide |
|
|
Je suis un élève qui voudrai ce que c'est que la programmation en Pascal.
J'ai un problème dont je voudrai que vous m'aidez à trouver une solution.
Nous voulons écrire un programme qui permet de calculer 2 sommes et afficher à l'écran.
Le problème est le suivant :
- concevoir l'écran d'affichage
- concevoir le tableau d'affichage
Je compte sur votre bonne compréhension
Merci[/u][/i][/quote] |
|
Alain Paul
Invité
|
|
Revenir en haut |
|
| Posté le: 03 04 2003 16:38 Sujet du message: |
|
|
hmm salut
le code serait :
program addition;
uses crt;
var n1,n2,resultat: integer;
begin
clrscr;
writeln('Veuillez rentrer le nombre 1:');
readln(N1);
writeln('Veuillez rentrer le nombre 2:');
readln(N2);
resultat:=N1+N2;
writeln; (*passer une ligne*)
writeln('Le resultat est:',resultat);
readln;
end.
ps: a noter que le resultat et les 2 nombres lus c'est des entiers... tu peux les mettre en real dans ta declaration. (:real a la place de :integer).
have fun!
rabah. |
|
Invité
|
|
Revenir en haut |
|
|
S'enregistrer
Rechercher
FAQ
Connexion
