Aller au contenu
Règlement du forum ×
IPTV et arnaques ×

urgent crer un bulletin de note avec pascal


aminou

Messages recommandés

ben shouf je ne veux pas te désespérer mais pour terminer le travail il te faut une journée voir plus

 

le programme peut avoir de 100 a 500 ligne, une petite estimation bien sûr

 

et pour que je t'aide il faut qu'on parle sinon je vais taper un journal.

rejoins moi sur mon serveur mumble.

 

Le nom du serveur: Amarsoft

Adresse IP: 87.98.131.215

Le port: 60581

 

http://amarsoftdz.blogspot.com/2009/01/comment-avoir-un-serveur-mumble-gratuit.html

Lien vers le commentaire
Partager sur d’autres sites

Salem,

2) est ce que l'affichage du bulletin se fait directement après la saisie des notes ou ces informations sont stockées sur disque pour consultation du bulletin à tout moment ?

 

et cette question, tu peux répondre?

 

tu dois quoi présenter sur papier, as tu un exemple? as tu plus de détail?

 

car c'est flou ya sadiki

Lien vers le commentaire
Partager sur d’autres sites

Dites moi si c'est juste ou faux Merci

 

program bulletin;

uses crt;

var nbmat,i,sem,promo,coef,coefgle:integer;

dev1,dev2,exam,note,notegle,moy,moygle:real;

nom,pre,dln,add,spe:string[50];

mat: string;

 

procedure lire_eleve ;

 

begin

clrscr;

write ('Nom:'); readln(nom);

write ('prenom: '); readln(pre);

write ('date et lieu de naissance: '); readln(dln);

write ('adresse: '); readln (add);

write ('promotion: '); readln (promo);

write ('sp‚cialit‚: '); readln (spe);

write ('semestre: '); readln (sem); readln;

end;

procedure lire_notes;

begin

write('nombre de matieres: '); read(nbmat);

i:=1;

note:=0;

coef:=0;

notegle:=0 ;

coefgle:=0;

dev1:=0;

dev2:=0;

moy:=0;

for i:=1 to nbmat do

begin

write ('Matiere: '); readln(mat);

write ('note au 1er devoire: '); readln(dev1);

write ('note au 2em devoire: '); readln(dev2);

write ('note d"examin /40: ') ;readln(exam);

write ('co‚ficiant de ',mat,': '); readln(coef);

 

moy:=((dev1+ dev2 + exam) /4) ;

note:= moy*coef;

coefgle:=coefgle + coef;

notegle:=notegle+note;

writeln('moyenne := ',moy:0:2);writeln

end;

end;

 

 

 

 

begin (*principale*)

lire_eleve;

lire_notes;

moygle:=0;

moygle:=notegle/coefgle;

write('moyenne general: ',moygle:0:2);

 

while not keypressed do ;

end.

Lien vers le commentaire
Partager sur d’autres sites

  • 2 weeks later...

dommage j'arrive en retard, j’ai consulté avant ce topic mais j’ai pas vue ce programme de pascal, le programme il est bien il fait le calcule mais il reste l’affichage de donnée sur ecran

Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

  • Messages

    • bonjour pour ma part sur tv samsung sous Tizen , iptv smarters pro marche bien
    • 2021 Associated Press Novice of the Year and Samuelsson Go To Nigerian Dining Establishment In NYCNew York Liberty ahead Michaela Onyenwere, 2021 Associated Press Newbie of the Year, goes to a Nigerian dining establishment in Brooklyn with prize-winning cook, business owner, writer and food activist Marcus Samuelsson on the most recent episode of Home Plate, the brand-new original shows series on the YES App, the YES Network's main this installment of Home base, Onyenwere, whose parents hail from Nigeria, and Samuelsson see Buka restaurant in Brooklyn, which concentrates on Nigerian cuisine. While there, she talks about with Samuelsson and Buka owner/chef Lookman Afolayan her hoping for home-cooked Nigerian meals and her interest for Nigerian society. Onyenwere also chats regarding fashion and her own line of by Samuelsson, Home base includes his coordinating with players from the New Yankees, Brooklyn Nets, New York Liberty and New York City FC, along with with celebs. Together, they check out New York City dining establishments focusing on food from the visitors' corresponding societies and family members heritages Esmery Martinez Jersey. The collection highlights the diverse societies and various foods represented in New York City restaurants, with Samuelsson and his guests discussing the vital duty that food has actually played in their is a brief clip from the YES App's Home Plate series is available to confirmed YES subscribers. The application can be downloaded and install below.
    • Looking for fun companions for night adventures? Authentic Ladies Premier Сasual Dating
    • Find a partner for a good time Actual Girls Superlative Сasual Dating
    • Performance speedtest en mars 2024 sur toutes les wilayas c'est nouveau ca y a même les communes 😁 https://www.speedtest.net/performance/algeria/algiers?fbclid=IwZXh0bgNhZW0CMTAAAR2EZ-br3gKlcAzx0oXT8UenXWtbjTkj2QOdqLLfd8yRosY_u6D3Q27_3ug_aem_AfH7waTumC2Pz7en4W640IUHAyksA4X4Y8nSL4ssJNIQNHEgNeqqnlcMWGkGeTzGHKhwthYFUiGePCB1KHW4DMP-
×
×
  • Créer...