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 ...
solution pascal
 
 
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: Jeu 29 Avr - 12:07 (2010)    Sujet du message: solution pascal Répondre en citant

PublicitéSupprimer les publicités ?
voici une solution pascal aqui utilise 6 modules
je vous passerais une solution recursive ou il suffit à chaque fois de trouve la somme de deux fraction(les deux premiers couples seront remplacés par un nouveau couple qu'on lui ajoute le numéro trois et ainsi de suite...)

program fraction;
uses wincrt;

type
Tab=array[1..20] of integer;
var
num,den:tab;
vnum,vden,n,d:integer;
procedure saisie (var n:integer);
begin
writeln('saisie du nombre de fractions');
repeat
readln(n);
until n in [2..20];
end;
procedure remplir (var t1,t2:tab; n:integer);
var
c:integer;
begin
for c:= 1 to n do
begin
writeln('fraction N° : ', c:3);
writeln ('donnez le numérateur');
readln(T1[c]);
writeln ('donnez le dénominateur');
readln(T2[c])
end;
end;
function pgcd (a , b : integer ) : integer;
var
int:integer;
begin
repeat
if b=0
then pgcd:= a
else
begin
int := b;
b := a mod b;
a:= int;
pgcd:=pgcd(a,b);
end;
until b=0;
end;

procedure calcul (t1,t2:tab;n:integer;var vnum,vden:integer);
var c,int:integer;
begin
vden:=1;

for c:=1 to n do
vden := vden * T2[c] ;
vnum:=0;
for c:=1 to n do
vnum:=vnum + ((T1[c] * vden) div T2[c]);
int:=vnum;
vnum:=vnum div pgcd(vnum,vden);
vden:=vden div pgcd(int,vden);
end;
procedure affichage (a,b:integer);
begin
writeln('la fraction resultante est : ', vnum:3 , '/', vden)
end;
begin
saisie(n);
remplir (num,den, n);
calcul (num,den,n,vnum,vden);

affichage (vnum,vden);
end.


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Jeu 12 Aoû - 00:57 (2010)    Sujet du message: solution pascal Répondre en citant

Okay Okay Okay Okay Okay

 
Revenir en haut
Dioini monia


Hors ligne

Inscrit le: 15 Oct 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Ven 15 Oct - 08:57 (2010)    Sujet du message: solution pascal Répondre en citant

mercie pour cette exercices parceque je compris le paxale

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:07 (2016)    Sujet du message: solution pascal

 
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