Par Hugo ETIEVANT
Ce test d'évaluation (n°4/5) pose quelques questions pièges afin de voir si vous avez assimilé les bases de la programmation en Turbo Pascal 7.0.
Correction automatique on line : il vous suffit de cliquer sur le bouton de validation en bas de ce formulaire (après avoir répondu à toutes les questions) pour voir apparaître une correction personnalisée.
String
SizeOf(chaine):=5; chaine[0]:=5; chaine[5]:=eof; chaine:=MemAvail(5);
Type tab = Record nom : String[20] ; age : Byte ; End ; tab:='CyberZoïde'.18 ; tab[1]:='CyberZoïde' ; tab.age:=18 ; tab.nom[10]:='CyberZoïde' ; tab[2].nom:='CyberZoïde' ;
Integer
Real
{ commentaire } <!-- commentaire --> /* commentaire */ [* commentaire *]
Const NMax = 100 ; Type Etudiant = Record nom, prenom : String[20] ; matricule : Integer ; End ; Var MonTab : Array[1..NMax] Of Etudiant ;
Type Riri = Integer ; Type Fifi = ^Integer ; Type Loulou = Integer^ ; Type Zaza^ = Integer ;
Type Eleve=Record nom,prenom : String ; notes : Array[1..5] of Integer ; End ; Var Classe : Array[1..30] Of ^Eleve ;
Classe^[3].nom := 'Etiévant' ; Classe[27]^.notes[0] := 14 ; CLasse[8]^.notes[5] := 10.5 ; Classe[12].prenom^ := 'Hugo' ; Classe[30].prenom := ^'Arnold' ; Classe[26]^.notes[3] := 18 ;
Var nom : String[27] ;