Procedure SecSuiv (d heures, minutes, secondes : N)

EX 1

Ecrire un algo qui prend l'heure les minutes et les secondes et retourne l'heure obtenu une seconde plus tard

On considère que les données en entrée sont corrects

Procedure SecSuiv(d heures, minutes, secondes : N)

var heures2, minutes2, secondes2 : N

Debut

secondes2 := secondes + 1

heures2 := heures

minutes2 := minutes

Si secondes2 = 60 alors

secondes2 := 00

minutes2 := minutes2 + 1

FinSI

Si minutes2 = 60 alors

minutes2 := 00

heures2 := heures2 + 1

FinSI

Si heures2 = 24 alors

heures2 := 00

FinSI

Ecrire(heures2, minutes2, secondes2)

Fin

EX2

Ecrire un algo qui determine une durée d'un vol qui s'effectue en 24h max en connaissant l'heure du depart et l'heure d'arrivée

On considère que les données en entrée sont des données correctes.

Procedure dureeVOL(d hdep, mdep, sdep, harr, marr, sarr : N)

var hdur, mdur, sdur : N

Debut

Si harr < hdep alors

hdur := (harr + 24) - hdep

Sinon

hdur := harr - hdep

FinSI

Si marr < mdep alors

mdur := (marr + 60) - mdep

hdur := hdur - 1

Sinon

mdur := marr - mdep

FinSI

Si sarr < sdep alors

sdur := (sarr + 60) - sdep

mdur := mdur - 1

Sinon

sdur := sarr - sdep

FinSI

Ecrire(hdur, mdur, sdur)

Fin

EX3

Ecrire un algo qui prend en entrée 4 réels et affiche l'un des deux messages : le plus grand réel est le premier; le plus grand réel n'est pas le premier.

Procedure PlusGrand(d a, b, c, d :R)

...