Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  moyenne
Language: PASCAL
Code:
Program Bulletin_3emeinfo ;
Uses wincrt ;
var
arabe,francais,anglais,math,geo,histo :real;
phy,programation,tic,reseau,option,sport,philo :real;
DC,DS,Oral,TP,MG : real;
matiere : string;
Begin
writeln ('===========================================');
writeln ('Matiere => Arabe <= ');
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) ;
arabe := (DC + (DS*2)+ Oral )/4 ;
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 => Histoire <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20) ;
histo := (DC + (DS*2) )/3 ;
writeln ('Votre moyenne en histoire est : ', histo:2:2);
writeln ('===========================================');
writeln ('Matiere => Géographie <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20) ;
geo := (DC + (DS*2) )/3 ;
writeln ('Votre moyenne en geographie est : ', geo: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 => Systèmes & Réseaux <= ');
repeat
write ('DC = '); readln (DC);
write ('DS = '); readln (DS);
Until (DC>=0) and (DC <=20)and (DS>=0) and (DS <=20);
reseau:= (DC + (DS*2))/3 ;
writeln ('Votre moyenne en reseaux est : ', reseau: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') or (matiere = 'projet') or (matiere = 'espagniol')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 ('DS = '); readln (DS);
Until (DS>=0) and (DS <=20) ;
philo :=DS ;
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*2)+(anglais*2)+(math*3)+hi sto+geo+(phy*3)+(programation*3)+(reseau**** 1.5)+(tic*1.5)+option+philo+sport)/22;
writeln ('Votre Moyenne générale de cette trimestre est : ',MG:2:3);
If (MG >=0 ) and (MG <10) then
writeln ('C''est nul ! Inchallah la trimestre prochaine ^^ ');
if (MG >= 10 ) and (MG <=13 ) then
writeln ('Assez bien  ');
if (MG > 13) and (MG <16 ) then
writeln ('Bien  ')
else
writeln ('EXECELLENT ! ;D ');
end.
          
Comments: