hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , 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
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Thu 29 Apr - 12:07 (2010)    Post subject: solution pascal Reply with quote

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
Publicité






Posted: Thu 29 Apr - 12:07 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Thu 12 Aug - 00:57 (2010)    Post subject: solution pascal Reply with quote

Okay Okay Okay Okay Okay

 
Revenir en haut
Dioini monia


Offline

Joined: 15 Oct 2010
Posts: 1
Point(s): 1
Moyenne de points: 0

Posted: Fri 15 Oct - 08:57 (2010)    Post subject: solution pascal Reply with quote

mercie pour cette exercices parceque je compris le paxale

 
Revenir en haut
Contenu Sponsorisé






Posted: Today at 00:59 (2019)    Post subject: solution pascal

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation