Inserer en tete
Bonjour,
procedure insertion_tete (var listet :ptretud );
var etudiant : ptretud ;
code1 : integer ;
nom1,prenom1 : string[20] ;
begin
new (etudiant ) ;
write( 'code' ) ; readln (code1) ; etudiant^.code := code1 ;
write('nom !' ) ; readln (nom1) ; etudiant^.nom := nom1 ;
write (' prenom!'); readln (prenom1) ; etudiant^.penom:=prenom1 ;
etudiant^.suivant := listet ;
listet := elment ;
end ;
procedure insertion_tete (var listet :ptretud );
var etudiant : ptretud ;
code1 : integer ;
nom1,prenom1 : string[20] ;
begin
new (etudiant ) ;
write( 'code' ) ; readln (code1) ; etudiant^.code := code1 ;
write('nom !' ) ; readln (nom1) ; etudiant^.nom := nom1 ;
write (' prenom!'); readln (prenom1) ; etudiant^.penom:=prenom1 ;
etudiant^.suivant := listet ;
listet := elment ;
end ;
A voir également:
- Inserer en tete
- Insérer une vidéo dans powerpoint - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer espace insécable word - Guide
- Insérer sommaire word - Guide
