Discussion :

[Aboubakar Ahamda]

Bonjour à tous

Voila je veux me lancer dans la programmation ada mais en réalité c'est decourageant car je ne trouve pas assez des documents pour bien comprendre.

Mais pour l'instant j'ai un probleme au niveau de ce code.En effet quand je compile ,je reçois ce message d'erreur:
<< cannot use function "verifier" in a procedure call>> Alors je suis bloqué.
Voici le code: c'est just pour faire un petit essai:
Rq: j'utilise Ubuntu et je compile avec "gnatmake pratic3.adb ".

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
with ada.text_io;
use ada.text_io;
with ada.integer_text_io;
use ada.integer_text_io;
 
procedure pratic3 is
  --declation d'une fonction
     	function verifier(a:integer) return boolean is
		begin
	 	if (a mod 2=0) then
		return true; 
		else return false;
		end if;
 
		end verifier;
val:integer:=3;
 begin
 
	--appel de la founction Verifier
   verifier(val);
 end pratic3;

Merci d'avance

[Invité]

Bonjour,

Vous faites appel à une fonction sans affecter la valeur de retour de la dite fonction.

Il vous faut déclarer un booléen dans le programme principal est y affecter la valeur de retour de la fonction lors de l'appel à celle-ci.

[Aboubakar Ahamda]

Merci ,ça compile mais mais lorsque je fait put(var_boolean) pour afficher la valeur de retoure ca marche pas.Sachant que var_boolean est la variable que j'ai affecté la valeur de retour de la fonction.
Qu'est ce que je dois faire svp.
Merci.

[Invité]

Bonjour.

Pour chacun des types de base Ada, il existe l'attribut Image qui fonctionne comme une fonction et qui retourne l'image de la valeur du type de base.

Ca s'utilise comme suit :

Code ada :

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

1
2
 
text_io.put(Boolean'Image(Bool));

Ou bool est un boolean.

Si non, On peut faire une condition if Bool then put ("Vrai"); Else put("Faux");end if;