BAC INFO DJERBA

Program Bulletin_bacinfo ;
Uses wincrt ;
var
arabe,francais,anglais,math,geo,histo :real;
phy,programation,tic,base,option,sport,philo :real;
DC,DS,Oral,TP,MG : real;
matiere : string;
Begin

writeln ('===========================================');
writeln ('Matiere => Arabe <= ');
repeat
write ('DS = '); readln (DS);
write ('Oral = '); readln (Oral);
Until (DS>=0) and (DS <=20)and (Oral>=0) and (Oral <=20) ;
arabe := ((DS*2)+ Oral )/3 ;
writeln ('Votre moyenne en arabe est : ', arabe:2:2);
writeln ('===========================================');
writeln ('Matiere => Français <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
write ('Oral = '); readln (Oral);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20)and (Oral>=0) and (Oral <=20) ;
francais := (DC + (DS*2)+ Oral )/4 ;
writeln ('Votre moyenne en francais est : ', francais:2:2);
writeln ('===========================================');
writeln ('Matiere => Anglais <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
write ('Oral = '); readln (Oral);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20)and (Oral>=0) and (Oral <=20) ;
anglais := (DC + (DS*2)+ Oral )/4 ;
writeln ('Votre moyenne en anglais est : ', anglais:2:2);
writeln ('===========================================');
writeln ('Matiere => Mathématiques <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20) ;
math := (DC + (DS*2))/3 ;
writeln ('Votre moyenne en math est : ', math:2:2);
writeln ('===========================================');
writeln ('Matiere => Physique <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
write ('TP = '); readln (TP);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20)and (TP>=0) and (TP <=20) ;
phy := (DC + (DS*2)+ TP )/4 ;
writeln ('Votre moyenne en Physique est : ', phy:2:2);
writeln ('===========================================');
writeln ('Matiere => Programation <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
write ('TP = '); readln (TP);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20)and (TP>=0) and (TP <=20) ;
programation := (DC + (DS*2)+ TP )/4 ;
writeln ('Votre moyenne en Programation est : ', programation:2:2);
writeln ('===========================================');
writeln ('Matiere => TIC <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20);
tic := (DC + (DS*2))/3 ;
writeln ('Votre moyenne en TIC est : ', tic:2:2);
writeln ('===========================================');
writeln ('Matiere => base de donnee <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20);
base:= (DC + (DS*2))/3 ;
writeln ('Votre moyenne en base de donnee est : ', base:2:2);
writeln ('===========================================');
writeln ('Matiere => Option <= ');
writeln ('Quelle est votre Matiere d''Option ? : ');
readln (matiere);
if (matiere = 'allmend' )or (matiere = 'italien' ) then
begin
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
write ('Oral = '); readln (Oral);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20)and (Oral>=0) and (Oral <=20) ;
option := (DC + (DS*2)+ Oral )/4 ;
writeln ('Votre moyenne en ',matiere , ' est : ', option:2:2) ;
writeln ('===========================================') ;
end
else if (matiere = 'dessin')then
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20);
option := (DC + (DS*2))/3 ;
writeln ('Votre moyenne en ',matiere,' est : ', option:2:2);
writeln ('===========================================');
writeln ('Matiere => Philosophie <= ');
repeat
write('dc= ');readln(DC);
write ('DS = '); readln (DS);
write('oral=');readln(Oral);
Until (DS>=0) and (DS <=20) ;
philo :=(DS*2+DC+Oral)/4 ;
writeln ('Votre moyenne en philo est : ', philo:2:2);
writeln ('===========================================');
writeln ('Matiere => Sport <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20) ;
sport := (DC + (DS*2))/3;
writeln ('Votre moyenne en sport: ', sport:2:2);        
writeln ('===========================================');
{MOYENNE G?N?RALE}
MG:=(arabe+(francais)+(anglais)+(math*3)+(phy*2.5)+(programation*3)+
(base*1.5)+(tic*1.5)+option+philo+sport)/18;
writeln ('Votre Moyenne générale de cette trimestre ya bhim est : ',MG:2:3);
If (MG >=0 ) and (MG <10) then
writeln ('C''est nul ! ekbess rou7ek w na9ess mel fb ya weldi ^^ ');
if (MG >= 10 ) and (MG <=13 ) then
writeln ('nshallah ti hak msallek,ha naja7 esna mat5amemch :) ');
if (MG > 13) and (MG <16 ) then
writeln ('nar ommek nshalla tferrr :D ')
else
writeln ('admin ncha allah ;D ');
writeln('bac info djerba el mey');
end.

link download pascal