hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Exercice avec correction
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 19 Fév - 13:24 (2010)    Sujet du message: Exercice avec correction Répondre en citant

PublicitéSupprimer les publicités ?
ecrie un programme qui Saisir un produit et calculer la valeur du stock de ce produit



 
{CH1 - Les enregistrements activité n°2}
 
{Saisir un produit et calculer la valeur du stock de ce produit}
{ valeur du stock = quantité * PU}
{Si le produit n'existe pas en stock afficher un message }
program fiche_produit;
uses wincrt;
type produit = record
reference : string[10];
nom : string [50];
pu:real;
quantite:word;
exportation:byte;
end;
var p1 : produit;
begin
write ('donner la reference : ');
readln (p1.reference);
write ('donner le nom :');
readln (p1.nom) ;
write ('donner le P.U : ');
readln (p1.pu) ;
write ('donner la quantié : ');
readln (p1.quantite);
write ('Es ce que ce produit et à l''export (0 => Non, 1 => Oui : ');
readln (p1.exportation);

if p1.quantite = 0 then write ('le produit est indispo pour le moment !')
else write (p1.quantite *p1.pu:5:3,' DT');
end.


 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 3 Mar - 08:22 (2010)    Sujet du message: Exercice avec correction Répondre en citant

Okay Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 23:13 (2016)    Sujet du message: Exercice avec correction

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation