exercices

Aller en bas

exercices

Message  the dark le Mer 7 Nov - 0:18

1
program PGCD; {calcul itératif d'un PGCD}
var a,b:integer;

begin
write('a=');
readln(a);
write('b=');
readln(b);

while a<>b do
if a>b then
a:=a-b
else
b:=b-a;

writeln(a);
readln {pour Borland Turbo Pascal}
end.





2
program Moyenne_de_n_valeurs;
var n,i:integer;
s,v,m:real;

begin

repeat
read(n);
if n<0 then
writeln('erreur! (n>0!)')
until n>0;

s:=0.0;
for i:=1 to n do
begin
readln(v);
s:=s+v
end;

m:=s/n;
writeln('moyenne: ',m);
readln {pour Borland Turbo Pascal}
end.





3
program factorielle;
var n:integer; fact:real; i:integer;

begin
write('factorielle de ');
readln(n);

fact:=1;
for i:=1 to n do
fact:=fact*i;

writeln(n,'! = ',fact);
readln {pour Borland Turbo Pascal}
end.





transformer chaqun de ces programmes a des programmes recursives scratch
avatar
the dark

Messages : 19
Date d'inscription : 01/11/2007
Age : 28

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum