fonction GoVersOctets (entrée : Valeur est un entier) retourne un entier
début
  retourner (Valeur * (1024*1024*1024))
fin

Tests de validation de la fonction

Valeur	GoVersOctets
1	1 073 741 824
1024	1 099 511 627 776

 

fonction OctetsVersGo (entrée : Valeur est un entier) retourne un entier
début
  retourner (Valeur DIV(1024*1024*1024))
fin

Tests de validation de la fonction

Valeur	OctetsVersGo
1 000 000 000	0
1 073 741 823	0
1 073 741 824	1
2 147 483 647	1
2 147 483 648	2

 

programme Conversion_Go_vers_octets
données
  NbGo est entier

début
  afficher "Programme de conversion de Go vers Octets"
  afficher "Jean HENRI   version 0.0   septembre 2003"

  afficher "Saisir la valeur en Go : "
  saisir NbGo

  afficher "Cela donne : ", GoVersOctets(NbGo), " octets"
fin

programme Conversion_Octets_vers_Go
données
  NbOctets est entier

début
  afficher "Programme de conversion d'octets vers Go"
  afficher "Jean HENRI   version 0.0  septembre 2003"

  afficher "Saisir la valeur en Octets : "
  saisir NbOctets

  afficher "Cela donne : ", OctetsVersGo(NbOctets), " Go"
fin

programme Conversion_Unites_info
données
  Valeur, Resultat est entier
  Reponse est un caractère
  Unite est une chaine de caractères

début
  afficher "Programme de conversion d'unités informatiques"
  afficher "Jean HENRI      version 0.0     septembre 2003"

  afficher "Vous voulez convertir des octets en Go ... O"
  afficher "                      des Go en octets ... G"
  saisir Reponse

  afficher "Saisissez la valeur à convertir : "
  saisir Valeur

  si ((Reponse = "O") ou (Reponse = "o")) alors
    Resultat <-- OctetsVersGo (Valeur)
    Unite <-- "Go"
  sinon
    Resultat <-- GoVersOctets (Valeur)
    Unite <-- "octets"
  fin si

  afficher "Cela donne : ", Resultat, " ", Unite
fin