Discussion :

[zineb2012]

Salut;

est-ce qu'il existe une syntaxe en Pascal qui permet de faire ça : if (t1=t2) alors .. car quand j'essaie je reçois une erreur ; ou bien je dois comparer les deux enregistrements champ par champ ? Sachant que t1 et t2 sont deux enregistrements déclarés comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
type
  time:record
    heure,minute,seconde:integer;
  end;
var
  t1,t2:time;

[Paul TOTH]

oui, champ par champ

[zineb2012]

d'accord merci.

[Dr.Who]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
type
  TTime : record
    heure, minute, seconde: word;
  end;
 
function createTime(aHeure, aMinute, aSeconde: word): TTime;
begin
  result.Heure := aHeure;
  result.aMinute := aMinute;
  result.aSeconde := aSeconde;
end;
 
function compareTime(A, B: TTime): integer;
var sA, sB: longword;
begin
  sA := A.Seconde + (A.Minute * 60) + (A.Heure * 3600);
  sB := B.Seconde + (B.Minute * 60) + (B.Heure * 3600);
  if sA > sB then
    result := 1
  else
  if sA < sB then
    result := -1
  else
    result := 0;
end;
 
 
var
  t1,t2: TTime;
  r : integer;
begin
  t1 := createTime(random(25), random(60), random(60));
  t2 := createTime(random(25), random(60), random(60));
 
  writeln('t1 = ',t1.Heure,' h ', t1.minute, ' m ', t1.seconde, ' s');
  writeln('t2 = ',t2.Heure,' h ', t2.minute, ' m ', t2.seconde, ' s');
 
  r := compareTime(t1, t2);
 
  case r of 
    -1 : writeln('t1 est plus petite que t2');
    0 : writeln('t1 et t2 sont égales');
    1 : writeln('t1 est supérieure à t2');
  end;
 
  readln;
end;