Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1680 connectés 

  FORUM HardWare.fr
  Programmation

  Pascal Objet, au secours !!!

 
 


Dernière réponse
Sujet : Pascal Objet, au secours !!!
BifaceMcLeOD J'ai regardé un peu ton code (enfin, celui que j'ai reformatté), et je me dis qu'il y a quand même un petit problème... de conception.
Et effectivement, j'ai compris l'erreur de compilation.
 
A quoi il te sert ton objet ? Pourquoi tu passes un tableau à une des méthodes de l'objet, alors que tu l'as déjà dans l'objet, le tableau en question. A mon avis, le code correct aurait été de définir 2 objets : un "Vehicule" et un "StockVehicule", comme suit :

Code :
  1. unit bibstock;
  3. interface
  5.    uses crt, drivers;
  7.    const maxStock = 500;
  9.    type cVehic = object
  10.                     modele    : string[20];
  11.                     marque    : string[20];
  12.                     immatr    : string[20];
  13.                     anImmatr  : integer;
  14.                     prixVente : real;
  16.                     procedure saisie;
  17.                  end; { object }
  19.    type cStockVehic = object
  20.                          stock    : array[1..maxStock] of stockVehic;
  21.                          numVehic : integer;
  22.  
  23.                          procedure saisieTab;
  24.                          procedure affichSuivModel;
  25.                          procedure affichSuivPrix;
  26.                          procedure insert;
  27.                          procedure delete;
  28.                       end; { object }
  30. implementation
  32.    procedure cVehic.saisie;
  33.    begin
  34.       write ('MODELE : ');                   readln (self.modele);
  35.       write ('MARQUE : ');                   readln (self.marque);
  36.       write ('IMMATRICULATION : ');          readln (self.immatr);
  37.       write ('ANNEE D''IMMATRICULATION : '); readln (self.anImmatr);
  38.       write ('PRIX DE VENTE : ');            readln (self.prixVente);
  39.    end; { cVehic.saisie }
  41.    procedure cStockVehic.saisieTab;
  42.    var fin : boolean;
  43.        rep : string;
  44.    begin
  45.       fin           := false;
  46.       self.numVehic := 0;
  48.       repeat
  49.          Inc (self.numVehic);
  50.          self.stock[self.numVehic].saisie;
  52.          if (self.numVehic < maxStock) then begin
  53.             repeat
  54.                write ('Voulez-vous référencer un autre véhicule ? (O/N) ');
  55.                readln (rep);
  56.             until (rep='O') or (rep='o') or (rep='n') or (rep='N');
  58.             fin := ((rep='n') or (rep='N'));
  59.          end
  60.          else begin
  61.             fin := true;
  62.          end; { if }
  63.       until (fin);
  64.    end; { cStockVehic.saisieTab }
  66. end. { unit }


Mes souvenirs de Pascal sont très lointains, et j'ai arrêté de programmer en Pascal au moment où les extensions objet sont sorties. Donc je ne suis pas 100% sûr que c'est "self" qu'il faut utiliser, mais si ce n'est pas ce mot-là, le mot réservé qui fait la même chose ne doit pas être très différent (par exemple, d'autres langages comme C++ ou Java utilisent "this" pour cet usage).

 

[edit]--Message édité par BifaceMcLeOD--[/edit]

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
BifaceMcLeOD J'ai regardé un peu ton code (enfin, celui que j'ai reformatté), et je me dis qu'il y a quand même un petit problème... de conception.
Et effectivement, j'ai compris l'erreur de compilation.
 
A quoi il te sert ton objet ? Pourquoi tu passes un tableau à une des méthodes de l'objet, alors que tu l'as déjà dans l'objet, le tableau en question. A mon avis, le code correct aurait été de définir 2 objets : un "Vehicule" et un "StockVehicule", comme suit :

Code :
  1. unit bibstock;
  3. interface
  5.    uses crt, drivers;
  7.    const maxStock = 500;
  9.    type cVehic = object
  10.                     modele    : string[20];
  11.                     marque    : string[20];
  12.                     immatr    : string[20];
  13.                     anImmatr  : integer;
  14.                     prixVente : real;
  16.                     procedure saisie;
  17.                  end; { object }
  19.    type cStockVehic = object
  20.                          stock    : array[1..maxStock] of stockVehic;
  21.                          numVehic : integer;
  22.  
  23.                          procedure saisieTab;
  24.                          procedure affichSuivModel;
  25.                          procedure affichSuivPrix;
  26.                          procedure insert;
  27.                          procedure delete;
  28.                       end; { object }
  30. implementation
  32.    procedure cVehic.saisie;
  33.    begin
  34.       write ('MODELE : ');                   readln (self.modele);
  35.       write ('MARQUE : ');                   readln (self.marque);
  36.       write ('IMMATRICULATION : ');          readln (self.immatr);
  37.       write ('ANNEE D''IMMATRICULATION : '); readln (self.anImmatr);
  38.       write ('PRIX DE VENTE : ');            readln (self.prixVente);
  39.    end; { cVehic.saisie }
  41.    procedure cStockVehic.saisieTab;
  42.    var fin : boolean;
  43.        rep : string;
  44.    begin
  45.       fin           := false;
  46.       self.numVehic := 0;
  48.       repeat
  49.          Inc (self.numVehic);
  50.          self.stock[self.numVehic].saisie;
  52.          if (self.numVehic < maxStock) then begin
  53.             repeat
  54.                write ('Voulez-vous référencer un autre véhicule ? (O/N) ');
  55.                readln (rep);
  56.             until (rep='O') or (rep='o') or (rep='n') or (rep='N');
  58.             fin := ((rep='n') or (rep='N'));
  59.          end
  60.          else begin
  61.             fin := true;
  62.          end; { if }
  63.       until (fin);
  64.    end; { cStockVehic.saisieTab }
  66. end. { unit }


Mes souvenirs de Pascal sont très lointains, et j'ai arrêté de programmer en Pascal au moment où les extensions objet sont sorties. Donc je ne suis pas 100% sûr que c'est "self" qu'il faut utiliser, mais si ce n'est pas ce mot-là, le mot réservé qui fait la même chose ne doit pas être très différent (par exemple, d'autres langages comme C++ ou Java utilisent "this" pour cet usage).

 

[edit]--Message édité par BifaceMcLeOD--[/edit]
BifaceMcLeOD Huh?? :??:  
 
Dis donc, désolé de commencer par critiquer, mais ça serait bien de l'indenter un peu mieux, ton programme. Parce que j'ai mis un certain temps à comprendre où commençaient et où finissaient certains blocs...
 
Ca c'est un peu mieux... :D

Code :
  1. unit bibstock;
  3. interface
  5. uses crt, drivers;
  7. type cVehic = object
  8.                 stockVehic : record
  9.                                modele    : string[20];
  10.                                marque    : string[20];
  11.                                immatr    : string[20];
  12.                                anImmatr  : integer;
  13.                                prixVente : real;
  14.                              end; { record }
  17.                 typTabVeh :array[1..500] of stockVehic;
  20.                 procedure saitab(var tabVeh : typTabVeh);
  21.                 procedure affichSuivModel(tablo : typTabVeh);
  22.                 procedure affichSuivPrix(tablo : typTabVeh);
  23.                 procedure insert;
  24.                 procedure delete;
  25.               end; { object }
  27. implementation
  29. procedure cVehic.saitab(var tabVeh : typTabVeh);
  30. var i, n : integer;
  31.     rep : string;
  32. begin
  33.    i := 1;
  34.    n := 500;
  36.    while (i <= n) do begin
  37.       write ('MODELE : ');                   readln (tabVeh[i].modele);
  38.       write ('MARQUE : ');                   readln (tabVeh[i].marque);
  39.       write ('IMMATRICULATION : ');          readln (tabVeh[i].immatr);
  40.       write ('ANNEE D''IMMATRICULATION : '); readln (tabVeh[i].anImmatr);
  41.       write ('PRIX DE VENTE : ');            readln (tabVeh[i].prixVente);
  43.       repeat
  44.          write ('Voulez-vous référencer un autre véhicule ? (O/N) ');
  45.          readln (rep);
  46.       until (rep='O') or (rep='o') or (rep='n') or (rep='N');
  48.       if (rep='n') or (rep='N') then begin
  49.          n := i;
  50.       end; { if }
  52.       i := i + 1;
  53.    end; { while }
  54. end; { cVehic.saitab }
  56. end. { unit }


En reformattant le code, j'ai remarqué j'ai remarqué qu'il manquait une apostrophe dans le "write ('ANNEE D''IMMATRICULATION : ');" Eh, oui, l'apostrophe doit être doublée pour pouvoir être affichée.
 
Sinon, je n'aime pas trop les types anonymes. Je te conseille fortement de définir un type nommé pour ton tableau et ton enregistrement dans ton objet. Evite aussi les "with", contrairement à ce qu'on pourrait croire, ça ne facilite pas la lisibilité (au contraire).
 
Au fait, question bête : c'est quoi, ton erreur de compilation ? :D

 

[edit]--Message édité par BifaceMcLeOD--[/edit]
Riton Comment fait-on pour déclarer une structure "record" dans une classe ? et comment l'affecter à un tableau ? J'ai fait cet exemple que je n'arrive pas à compiler :
 
unit bibstock;
 
interface
uses crt, drivers;
 
type
 
        cVehic = object
 
 stockVehic : record
  modele : string[20];
  marque : string[20];
  immatr : string[20];
  anImmatr : integer;
  prixVente : real;
 end;
 
 
 typTabVeh : array[1..500] of stockVehic;
 
 
 procedure saitab(var tabVeh : typTabVeh);
 procedure affichSuivModel(tablo : typTabVeh);
 procedure affichSuivPrix(tablo : typTabVeh);
 procedure insert;
 procedure delete;
end;
 
implementation
 
procedure cVehic.saitab(var tabVeh : typTabVeh);
var
 i, n : integer;
 rep : string;
begin
 i := 1;
 n := 500;
 while i <= n do
  begin
   with tabVeh[i] do
    begin
     write ('MODELE : '); readln (modele);
     write ('MARQUE : '); readln (marque);
     write ('IMMATRICULATION : '); readln (immatr);
     write ('ANNEE D'IMMATRICULATION : '); readln (anImmatr);
     write ('PRIX DE VENTE : '); readln (prixVente);
    end;
   repeat
    write ('Voulez-vous référencer un autre véhicule ? (O/N) '); readln (rep);
   until (rep='O') or (rep='o') or (rep='n') or (rep='N');
   if (rep='n') or (rep='N') then
    begin
     n := i;
    end;
   i := i+1;
  end;
end;
end.

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)