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

    • je réponds à ma propre question vu que personne ne l'a fait: voici le details que j'avais pas lu sur le site de la BNA (qui est bien fait)   WIMPAY-BNA  ? Disposer d’un système IOS ou Android ; Disposer d’une connexion internet ; Télécharger l’application ; Etre abonné au service « BNA.net » OU au service « Pack WIMPAY-BNA » OU être porteur d’une carte CIB et utilisateur du service SMS OTP (pour les opérations de e-Paiement).   Comment ça marche ? Cas client abonné au service « BNA.net » : Télécharger et installer l’application sur smartphone ; Utiliser l’identifiant et le mot de passe du service « BNA.net » ; Renseigner les informations du client ; Insertion d’un code d’utilisation personnel ; Acceptation des conditions générales d’utilisation ; Validation de la phase d’inscription en saisissant le mot de passe OTP reçu par SMS ou par email.   Cas client abonné au service « Pack WIMPAY-BNA » L’inscription à ce service est offerte gratuitement à chaque client particulier détenteur d’un compte chèque : – Au niveau de l’agence Création de l’abonnement au service « Pack WIMPAY-BNA » par le chargé de clientèle ; – Sur l’application : Réception d’un mail de confirmation comportant l’email d’identification et un code d’accès à usage unique ; Saisie de l’adresse mail d’identification et le code reçu par email ; Réception par SMS d’un mot de passe OTP ; Saisir le mot de passe reçu par SMS afin de valider l’inscription ; Acceptation des conditions générales d’utilisation ; Création d’un code PIN ; Création d’un mot de passe personnalisé.   Cas client porteurs de cartes CIB et utilisateurs du services SMS OTP (pour les opérations de e-Paiement) Ce service est offert gratuitement aux clients détenteurs de cartes CIB et utilisateurs du services SMS OTP (e-Paiement) : Choisir le mode de souscription « Par carte » ; Renseigner les six (06) premiers chiffres, les quatre (04) derniers chiffres et la date d’expiration de la carte CIB ; Renseigner un numéro de téléphone valide afin de recevoir un SMS OTP; Introduire le mot de passe OTP reçu pour la validation de l’inscription ; Renseigner les informations du client ; Insertion d’un code d’utilisation personnel ; Acceptation des conditions générales d’utilisation ; Création du mot de passe personnel WIMPAY.  
    • @Aizen tous les prix sont affichés dans toutes les config... je reste dispo pour d'autres infos frere, tu te fais rare ici !
    • Salem, c'est pour quelle utilisation ? Retrogaming ? 
    • @aminou merci pour ce retour, bizarre quand meme que EC ne dise rien; et correction c'est pas "conversation" mais "convention" hahahaha ! je crois aussi que 500 megas et 1giga ne seront pas concernés...en effet on devra probablement attendre un contrat qui aura lieu au bas mot fin 2025....bon on verra bien c'est dans 6 mois inchallah; deja savoir qu'on aura ces offres je crois que c'est du jamais vécu en algerie ou auparavant c'etait les rumeurs sur ce meme forum qui donnaient les infos ...
×
×
  • Créer...