حصري لتلاميذ البكالوريا : احسبوا معدل البكالوريا بأنفسكم

Your Ads Here

أعزائي تلاميذ البكالوريا

أعدوا بيانات نقاطكم واحسبوا معدل البكالوريا بأنفسكم، في لحظات ، ذلك باستخدام

برنامج : Turbo Pascal 1.5

 البرنامج يعمل على نظام bits32 

 ادخال الاعداد حسب القيم التقديرية, يشمل البرنامج 1نقطة السيرة و خاصية 20%
*لتشغيل البرنامج*

1-انسخ الكود الموجود اسفل الشرح

2-فتح برنامج tpw 1.5

3-لصق الكود edit -->Paste

4-لتفعيل البرنامج اضغط على run -->run

5-ادخال النقاط ثم enter

Program Moyenne_Bac;
uses wincrt;
type
tab=array[1..20] of string;
var
progt,moy1,moy2,sport,math,phy,prog,tic,prat,bd,fr,ar,philo,opt,ang,bsport,asport,annuel:real;
begin
repeat
writeln('Donner la moyenne de Mathématiques');
readln(math);
until ( math >=0) and ( math <=20);
clrscr;
repeat
writeln('Donner la moyenne de Programmation (Théorique)');
readln(prog);
until ( prog >=0) and ( prog <=20);
clrscr;
repeat
writeln('Donner la moyenne de Physique');
readln(phy);
until ( phy >=0) and ( phy <=20);
clrscr;
repeat
writeln('Donner la moyenne de TIC');
readln(tic);
until ( tic >=0) and ( tic <=20);
clrscr;
repeat
writeln('Donner la moyenne de Base de Données');
readln(bd);
until ( bd >=0) and ( bd <=20);
clrscr;
repeat
writeln('Donner la moyenne de Programmation (Pratique)');
readln(prat);
until ( prat >=0) and ( prat <=20);
clrscr;
repeat
writeln('Donner la moyenne d''Français');
readln(fr);
until ( fr >=0) and ( fr <=20);
clrscr;
repeat
writeln('Donner la moyenne d''Anglais');
readln(ang);
until ( ang >=0) and ( ang<=20);
clrscr;
repeat
writeln('Donner la moyenne d''Arabe');
readln(ar);
until ( ar >=0) and ( ar <=20);
clrscr;
repeat
writeln('Donner la moyenne de Philosophie');
readln(philo);
until ( philo >=0) and ( philo<=20);
clrscr;
repeat
writeln('Donner la moyenne de Sport (Bac Sport)');
readln(bsport );
until ( bsport >=0) and ( bsport <=20);
clrscr;
repeat
writeln('Donner la moyenne de Sport(Annuel)');
readln(asport );
until ( asport >=0) and ( asport <=20);
clrscr;
repeat
writeln('Donner la moyenne de l''option');
readln(opt );
until ( opt>=0) and ( opt <=20);
clrscr;
repeat
writeln('Donner la moyenne Annuelle');
readln(annuel);
until (annuel <=20) and (annuel &gt;=0);
clrscr;

sport:=(bsport + asport)/2;
progt:=((prog*2.25)+(prat*0.75))/3;
moy1:=((math*3)+(phy*2)+(progt*3)+(tic*1.5)+(bd*1.5)+fr+ar+philo+ang+sport)/16;
if ((annuel-moy1) < 3) then
moy2:=((moy1*4)+annuel)/5;
if (moy2
begin
moy2:=((math*3)+(phy*2)+(progt*3)+(tic*1.5)+(bd*1.5)+fr+ar+philo+ang+sport+(opt-10))/16;
moy2:=((moy2*4)+annuel)/5;
end;

clrscr;

writeln('Math= ',math:2:2) ;
writeln('Programmation= ',progt:2:2) ;
writeln('Physique= ',phy:2:2) ;
writeln('TIC= ',tic:2:2) ;
writeln('Base de Données= ',bd:2:2 );
writeln('Arabe= ',ar:2:2) ;
writeln('Francais= ',fr:2:2) ;
writeln('Anglais= ',ang:2:2) ;
writeln('Option= ',opt:2:2 );
writeln('Sport= ',sport:2:2 );
writeln('Philosophie =',philo:2:2) ;
writeln('Clicker sur ENTER pour afficher votre moyenne');
readln;
writeln('Votre moyenne du BAC sans 20% =',moy1:2:2);
writeln('Votre moyenne du BAC =',moy2:2:2);
end. 

Your Ads Here

Your Ads Here

Your Ads Here

Your Ads Here