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, je cherche un fournisseur IPTV dont les chaînes sont classés comme dans les catégories suivantes : FRANCE FHD, FRANCE HD, et FRANCE UHD (ou 4k, Hevc...)    En gros pour les chaînes francaise je ne veux pas plusieurs qualités dans une même catégorie pour faciliter le zapping. Pour permettre de passer directement de TF1 a France 2, sans passer par des doublons (sd, HD, FHD)    EXEMPLE :  -Catégorie FRANCE HD- TF1 HD, FRANCE 2HD, FRANCE 3 HD ☑️   -CATÉGORIE FRANCE-  TF1 SD, TF1 HD, TF1 HD, FRANCE 2 SD, FRANCE 2 HD, FRANCE 2 FHD, FRANCE 3 SD FRANCE 3 HD etc... 🤮❌
    • @laliche je pense que d'autres solutions existes, pourquoi pas mettre en place Une armoire a Fibre Optique dans un maximum de quartiers, et raccorder les clients a la demande, quit a faire payer le client une partie des frais de raccordement, celui qui veut la fibre paye, et celui qui veut rester en ADSL peut rester après les conversions de quartiers en entier ils sont libre de les faire.  le plan actuel et catastrophique. 
    • @yacine230 comme je l'ai toujours dis dans une situation de monopole il va y avoir des retards. Si les lois sur le dégroupage n'ont pas été avortées on en serait pas aujourd'hui dans cette situation. Si on avait d'autres opérateurs chacun d'eux aurait fibré sa partie .
    • J'arrive, mais tu vas le regretter, je suis un noob dans ce domaine 😅
    • Bonsoir a tous WILAYA DE ANNABA, AUCUNE avancée du Réseau, les travaux sont ridicules voir inexistants , que des Cité sociales encore inhabitées en grande partie, ou le soucis des habitants n'est pas la connexion mais la sécurité, le ramassage des ordures, la pollution, l'absence de routes... , et comme d'habitudes AUCUNE INFORMATION SUR LES DELAIS, et en Cherchant a droite a gauche tu déduit que Yaura PAS DE FIBRE la ou j'habite d'ici 2025 - 2026 ou encore plus loin. un Pays qui avance en arrière .        
×
×
  • Créer...