RayanRam

EXO4

Nov 29th, 2016
47
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. Algorithme Exo4;
  2.  
  3. variables : a,b,i,S : entier
  4. Debut
  5.  
  6. Faire
  7. Ecrire("Donnez a");
  8. Lire(a);
  9. Ecrire("Donnez b");
  10. Lire(b);
  11. Tant que (a<0 ou b<0);
  12.  
  13. Faire
  14. Ecrire("Donnez i ");
  15. Lire(i);
  16. Tant que(i<>-1 ou i<>0 ou i<>1)
  17.  
  18. si(i=-1)
  19. alors
  20. S<-a*b;
  21. sinon
  22. S<-(a*b)/2;
  23. fsi
  24.  
  25. Ecrire("Solution : ", S);
  26.  
  27. FIN
Add Comment
Please, Sign In to add comment