Exercice en Pascal
Résolu/Fermé
GrandShrek
Messages postés
2
Date d'inscription
jeudi 17 novembre 2011
Statut
Membre
Dernière intervention
17 novembre 2011
-
Modifié par GrandShrek le 17/11/2011 à 13:59
GrandShrek Messages postés 2 Date d'inscription jeudi 17 novembre 2011 Statut Membre Dernière intervention 17 novembre 2011 - 17 nov. 2011 à 23:52
GrandShrek Messages postés 2 Date d'inscription jeudi 17 novembre 2011 Statut Membre Dernière intervention 17 novembre 2011 - 17 nov. 2011 à 23:52
A voir également:
- Exercice en Pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Maud pascal le grand frère - Forum Cinéma / Télé
- Exercice informatique cm2 pdf ✓ - Forum Études / Formation High-Tech
2 réponses
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 429
Modifié par ccm81 le 17/11/2011 à 18:44
Modifié par ccm81 le 17/11/2011 à 18:44
bonsoir
après quelques corrections (en turbo pascal)
il te faudra écrire la procédure affiche ....
bonne suite
après quelques corrections (en turbo pascal)
il te faudra écrire la procédure affiche ....
program lancedede; uses crt; const LMAX = 100; type TabEntiers = array[1..LMAX] of integer; procedure initialise( var T : TAbEntiers;n,f:integer); var i : integer; begin for i:=1 to (n*f)-n+1 do T[i]:=0; end; { initialise } function lancer(f,n : integer) : integer; var s,i,r : integer; begin s:=0; for i:=1 to n do begin r := random(f)+1; s := s+r; end; lancer := s; end; { lancer } procedure experience(var T : TabEntiers;x,n,f : integer); var i,s : integer; begin for i := 1 to x do begin s := lancer(f,n); T[s-n+1]:=T[s-n+1]+1; end; end; var n,f,i,x : integer; T : TabEntiers; begin clrscr; randomize; write('Combien de des : '); readln(n); write('Combien de faces : '); readln(f); write('Combien de lancers: '); readln(x); initialise(T,n,f); experience(T,x,n,f); for i:=1 to n*f-n+1 do begin write(n+i-1:4); writeln(T[i]:4); end; end.
bonne suite
GrandShrek
Messages postés
2
Date d'inscription
jeudi 17 novembre 2011
Statut
Membre
Dernière intervention
17 novembre 2011
17 nov. 2011 à 23:52
17 nov. 2011 à 23:52
Merci beaucoup !
Modifié par ccm81 le 17/11/2011 à 20:57