/* CORRIGE CONTROLE 02 */

/* SUJET A */
/* EXERCICE 1 */

DATA poetes1;
	INFILE '/folders/myfolders/poetes.txt' DLM=',- ';
	INPUT prenom :$20.  nom :$20.    date1   date2   ville1 $    ville2 $  ;
RUN;

PROC PRINT DATA=poetes1;
RUN;

DATA poetes2;
	SET poetes1;
	prenom2=TRANWRD(prenom,'é','é');
	nom2=TRANWRD(nom,'é','é');
	DROP prenom nom ;
RUN;

PROC PRINT DATA=poetes2;
RUN;

/* EXERCICE 2*/

DATA temp;
	INPUT ville :$10. t1 t2;
CARDS;
Nice 21 23 
Strasbourg 15 17
Paris 16 16
Brest 16 16.5
Stockholm 12 13
Tombouctou 34 33
;RUN;

PROC PRINT DATA=temp;
RUN;

DATA climat;
 SET temp;
 moyenne=(t1+t2)/2;
 LENGTH appreciation $ 10;
 IF moyenne<10 THEN appreciation='froid';
 IF 10<=moyenne<20 THEN appreciation='frais';
 IF 20<=moyenne<30 THEN appreciation='chaud';
 IF 30<=moyenne THEN appreciation='tres chaud';
RUN;

PROC PRINT DATA=climat;
RUN;

/* SUJET B */
/* EXERCICE 1 */

DATA notes1;
	INPUT nom :$12. note ;
CARDS;
Haddock 12
Haddock 11
Haddock 14
Tournesol 17
Tournesol 12
Dupond 12.5
Castafiore 11.5
Castafiore 18
Castafiore 17
Castafiore 13
Dupont 12
Dupont 13
;RUN;

PROC SORT DATA=notes1;
	BY nom;
RUN;

DATA notes2;
	SET notes1;
	BY nom;
	IF first.prenom THEN DO;
		n=1;
		s_note=note;
	END;
	ELSE DO;
		n+1;
		s_note+note;
	END;
	IF last.nom THEN DO;
		moy=s_note/n;
		OUTPUT;
	END;
	DROP s_note n note;
RUN;

PROC PRINT	DATA=notes2;
RUN;

/* EXERCICE 2 */
DATA litanie;
	INPUT V1 $60. / V2 $60. / V3 $60. ;
CARDS;
Ô toi, le plus savant et le plus beau des Anges, 
Dieu trahi par le sort et privé de louanges,
Ô Satan, prends pitié de ma longue misère!
Ô Prince de l'exil, à qui l'on a fait tort 
Et qui, vaincu, toujours te redresses plus fort,
Ô Satan, prends pitié de ma longue misère!
Toi qui sais tout, grand roi des choses souterraines, 
Guérisseur familier des angoisses humaines,
Ô Satan, prends pitié de ma longue misère!
Toi qui, même aux lépreux, aux parias maudits, 
Enseignes par l'amour le goût du Paradis,
Ô Satan, prends pitié de ma longue misère!
;RUN;

PROC PRINT DATA=litanie;
RUN;

DATA litaniebis;
	SET litanie;
	X1=TRANWRD(V3,'Satan','Bacchus');
	DROP V3;
RUN;

PROC PRINT DATA=litaniebis;
RUN;